/[ascend]/trunk/base/generic/compiler/initialize.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/initialize.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 202 by johnpye, Tue Jan 17 05:48:00 2006 UTC revision 203 by johnpye, Mon Jan 23 04:13:17 2006 UTC
# Line 276  ExecuteInitFix(struct procFrame *fm, str Line 276  ExecuteInitFix(struct procFrame *fm, str
276    }    }
277    
278    /* iterate through the variable list */    /* iterate through the variable list */
279    CONSOLE_DEBUG("STARTING 'FIX' STATEMENT EXECUTION");    /* CONSOLE_DEBUG("STARTING 'FIX' STATEMENT EXECUTION"); */
280    vars = stat->v.fx.vars;    vars = stat->v.fx.vars;
281    while(vars!=NULL){    while(vars!=NULL){
282      name = NamePointer(vars);      name = NamePointer(vars);
# Line 289  ExecuteInitFix(struct procFrame *fm, str Line 289  ExecuteInitFix(struct procFrame *fm, str
289      for(i=1; i<=len; i++){      for(i=1; i<=len; i++){
290          i1 = (struct Instance *)gl_fetch(temp,i);          i1 = (struct Instance *)gl_fetch(temp,i);
291      instname = WriteInstanceNameString(i1,NULL);      instname = WriteInstanceNameString(i1,NULL);
292      CONSOLE_DEBUG("ABOUT TO FIX %s",instname);      /* CONSOLE_DEBUG("ABOUT TO FIX %s",instname); */
293      ascfree(instname);      ascfree(instname);
294      if(InstanceKind(i1)!=REAL_ATOM_INST){      if(InstanceKind(i1)!=REAL_ATOM_INST){
295        fm->ErrNo = Proc_illegal_type_use;        fm->ErrNo = Proc_illegal_type_use;
# Line 320  ExecuteInitFix(struct procFrame *fm, str Line 320  ExecuteInitFix(struct procFrame *fm, str
320      }      }
321      vars = NextVariableNode(vars);      vars = NextVariableNode(vars);
322    }    }
323    CONSOLE_DEBUG("DONE WITH VARLIST");    /* CONSOLE_DEBUG("DONE WITH VARLIST"); */
324    
325    /* return 'ok' */    /* return 'ok' */
326    fm->ErrNo = Proc_all_ok;    fm->ErrNo = Proc_all_ok;

Legend:
Removed from v.202  
changed lines
  Added in v.203

john.pye@anu.edu.au
ViewVC Help
Powered by ViewVC 1.1.22