Changeset: a0ecfa1b848e for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=a0ecfa1b848e
Modified Files:
monetdb5/mal/mal_interpreter.h
Branch: default
Log Message:
Added getArgReference_hge.
diffs (28 lines):
diff --git a/monetdb5/mal/mal_interpreter.h b/monetdb5/mal/mal_interpreter.h
--- a/monetdb5/mal/mal_interpreter.h
+++ b/monetdb5/mal/mal_interpreter.h
@@ -128,6 +128,14 @@ mal_export ptr getArgReference(MalStkPtr
assert(v->vtype == TYPE_lng); \
&v->val.lval;
\
})
+#ifdef HAVE_HGE
+#define getArgReference_hge(s, pci, k) \
+ ({
\
+ ValRecord *v = &(s)->stk[(pci)->argv[k]]; \
+ assert(v->vtype == TYPE_hge); \
+ &v->val.hval;
\
+ })
+#endif
#define getArgReference_str(s, pci, k) \
({
\
ValRecord *v = &(s)->stk[(pci)->argv[k]]; \
@@ -147,6 +155,9 @@ mal_export ptr getArgReference(MalStkPtr
#define getArgReference_flt(s, pci, k) (&(s)->stk[(pci)->argv[k]].val.fval)
#define getArgReference_dbl(s, pci, k) (&(s)->stk[(pci)->argv[k]].val.dval)
#define getArgReference_lng(s, pci, k) (&(s)->stk[(pci)->argv[k]].val.lval)
+#ifdef HAVE_HGE
+#define getArgReference_hge(s, pci, k) (&(s)->stk[(pci)->argv[k]].val.hval)
+#endif
#define getArgReference_str(s, pci, k) (&(s)->stk[(pci)->argv[k]].val.sval)
#endif
_______________________________________________
checkin-list mailing list
[email protected]
https://www.monetdb.org/mailman/listinfo/checkin-list
