Changeset: 8823923658fe for MonetDB
URL: https://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=8823923658fe
Modified Files:
monetdb5/mal/mal_instruction.h
monetdb5/mal/mal_parser.c
Branch: default
Log Message:
Minor addition
diffs (23 lines):
diff --git a/monetdb5/mal/mal_instruction.h b/monetdb5/mal/mal_instruction.h
--- a/monetdb5/mal/mal_instruction.h
+++ b/monetdb5/mal/mal_instruction.h
@@ -38,6 +38,7 @@
#define garbageControl(P) ((P)->gc & GARBAGECONTROL)
#define getInstrPtr(M,I) (M)->stmt[I]
+#define putInstrPtr(M,I,P) (M)->stmt[I] = P
#define getSignature(S) getInstrPtr((S)->def,0)
#define isMain(M) ((getInstrPtr(M,0))->fcnname==
putName("main",4))
#define getFcnName(M) getFunctionId(getInstrPtr(M,0))
diff --git a/monetdb5/mal/mal_parser.c b/monetdb5/mal/mal_parser.c
--- a/monetdb5/mal/mal_parser.c
+++ b/monetdb5/mal/mal_parser.c
@@ -1261,7 +1261,7 @@ fcnHeader(Client cntxt, int kind)
}
if (curInstr != getInstrPtr(curBlk, 0)) {
freeInstruction(getInstrPtr(curBlk, 0));
- getInstrPtr(curBlk, 0) = curInstr;
+ putInstrPtr(curBlk, 0, curInstr);
}
return curBlk;
}
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
