Update of /cvsroot/monetdb/MonetDB5/src/scheduler
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv5567/scheduler

Modified Files:
        mal_memorun.mx mal_scheduler.mx 
Log Message:
Approvals of the changes due to major code patch.


Index: mal_scheduler.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/scheduler/mal_scheduler.mx,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- mal_scheduler.mx    24 Dec 2007 12:28:25 -0000      1.21
+++ mal_scheduler.mx    2 Jan 2008 08:23:31 -0000       1.22
@@ -290,8 +290,8 @@
 RUNinline(MalBlkPtr mb, MalStkPtr stk, InstrPtr p)
 {
        Symbol qc;
-       str modnme = getConstant(mb, getArg(p, 1)).val.sval;
-       str fcnnme = getConstant(mb, getArg(p, 2)).val.sval;
+       str modnme = getVarConstant(mb, getArg(p, 1)).val.sval;
+       str fcnnme = getVarConstant(mb, getArg(p, 2)).val.sval;
 
        (void) stk;
        (void) p;

Index: mal_memorun.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/scheduler/mal_memorun.mx,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- mal_memorun.mx      16 Mar 2007 18:08:41 -0000      1.11
+++ mal_memorun.mx      2 Jan 2008 08:23:30 -0000       1.12
@@ -162,7 +162,7 @@
                                p->token = -p->token; /* temporary NOOP */
                if( p->token<0)
                        for(i=0; i<p->retc; i++)
-                               setVarUsed(mb,getArg(p,i),-1);
+                               setVarDisabled(mb,getArg(p,i));
        }
 }
 @-
@@ -196,7 +196,7 @@
                mincost= *(int*) getArgReference(stk,p,1);
                for(i=3; i<p->argc; i+= 2){
                        cost= *(int*) getArgReference(stk,p,i);
-                       if( cost <mincost && isVarUsed(mb,getArg(p,i+1))> -1 ){
+                       if( cost <mincost && !isVarDisabled(mb,getArg(p,i+1))){
                                mincost= cost;
                                target= getArg(p,i+1);
                        }
@@ -210,7 +210,7 @@
 
                mincost= -1;
                for(j=2;j<p->argc; j++){
-                       if(     isVarUsed(mb,getArg(p,j))> -1 )
+                       if(     !isVarDisabled(mb,getArg(p,j)) )
                        for(i= pc+1; i<mb->stop; i++){
                                InstrPtr q= getInstrPtr(mb,i);
                                if(p->token >=0 && getArg(q,0)== getArg(p,j)){
@@ -230,8 +230,8 @@
        /* remove non-qualifying variables */
        for(i=2; i<p->argc; i+= 2)
                if( getArg(p,i) != target){
-                       setVarUsed(mb,getArg(p,i-1),-1);
-                       setVarUsed(mb,getArg(p,i),-1);
+                       setVarDisabled(mb,getArg(p,i-1));
+                       setVarDisabled(mb,getArg(p,i));
                }
        propagateNonTarget(mb,pc+1);
 #ifdef DEBUG_RUN_MEMORUN
@@ -253,7 +253,7 @@
 
        lhs= &stk->stk[getArg(p,0)];
        for(i=p->retc; i<p->argc; i++)
-               if( isVarUsed(mb,getArg(p,i))> -1){
+               if( !isVarDisabled(mb,getArg(p,i))){
                        rhs= &stk->stk[getArg(p,i)];
                        if( (rhs)->vtype < TYPE_str) 
                                *lhs = *rhs; 


-------------------------------------------------------------------------
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

Reply via email to