Update of /cvsroot/monetdb/MonetDB5/src/compiler
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv5567/compiler
Modified Files:
mal_compiler.mx
Log Message:
Approvals of the changes due to major code patch.
Index: mal_compiler.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/compiler/mal_compiler.mx,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- mal_compiler.mx 24 Dec 2007 12:28:24 -0000 1.24
+++ mal_compiler.mx 2 Jan 2008 08:23:05 -0000 1.25
@@ -241,7 +241,7 @@
int sz = 0;
ValPtr val;
- val = &getConstant(mb, i);
+ val = &getVarConstant(mb, i);
if (val->vtype == TYPE_str) {
stream_printf(f, "\"%s\"", val->val.sval);
} else {
@@ -326,7 +326,7 @@
}
for (i = 1; i < mb->vtop; i++)
- if( !isTypeVar(mb,i)){
+ if( !isVarTypedef(mb,i)){
tpe = getTypeName(getVarType(mb, i));
seenbat += isaBatType(getVarType(mb,i));
v = getVarName(mb, i);
@@ -448,7 +448,7 @@
if( p->retc+i <p->argc){
mccVar(f, mb, getArg(p, i));
stream_printf(f, " = ");
- if( isConstant(mb,getArg(p,p->retc+i-1)))
+ if( isVarConstant(mb,getArg(p,p->retc+i-1)))
mccValue(f,mb, getArg(p,p->retc+i-1));
else
mccVar(f, mb, getArg(p, p->retc+i-1));
@@ -580,7 +580,7 @@
if (getModuleId(pn))
setModuleId(p,NULL);
setModuleId(pn, NULL);
- setFunctionId(pn, GDKstrdup(getConstant(mb,
pn->argv[pn->retc]).val.sval));
+ setFunctionId(pn, GDKstrdup(getVarConstant(mb,
pn->argv[pn->retc]).val.sval));
delArgument(pn, pn->retc);
typeChecker(MCgetClient()->nspace, mb, pn, TRUE);
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
