/[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 221 by johnpye, Mon Jan 23 04:13:17 2006 UTC revision 222 by johnpye, Fri Jan 27 04:23:20 2006 UTC
# Line 479  void ExecuteInitExt(struct procFrame *fm Line 479  void ExecuteInitExt(struct procFrame *fm
479    funcname = ExternalStatFuncName(stat);    funcname = ExternalStatFuncName(stat);
480    efunc = LookupExtFunc(funcname);    efunc = LookupExtFunc(funcname);
481    
482    CONSOLE_DEBUG("EXECUTEINITEXT func name:'%s'",funcname);    /*CONSOLE_DEBUG("EXECUTEINITEXT func name:'%s'",funcname);*/
483    
484    if (efunc == NULL) {    if (efunc == NULL) {
485      CONSOLE_DEBUG("Failed to look up external function");      CONSOLE_DEBUG("Failed to look up external function");
# Line 489  void ExecuteInitExt(struct procFrame *fm Line 489  void ExecuteInitExt(struct procFrame *fm
489      return;      return;
490    }    }
491    
492    CONSOLE_DEBUG("FOUND EXT FUNC, name:%s, in:%d, out:%d\n", efunc->name, efunc->n_inputs, efunc->n_outputs);    CONSOLE_DEBUG("%s: in:%d, out:%d", efunc->name, efunc->n_inputs, efunc->n_outputs);
493    
494    eval_func = GetValueFunc(efunc);    eval_func = GetValueFunc(efunc);
495    if (eval_func == NULL) {    if (eval_func == NULL) {
# Line 548  void ExecuteInitExt(struct procFrame *fm Line 548  void ExecuteInitExt(struct procFrame *fm
548      return;      return;
549    }    }
550    
551    CONSOLE_DEBUG("CHECKED EXTERNAL ARGS, OK");    /*CONSOLE_DEBUG("CHECKED EXTERNAL ARGS, OK");*/
552    
553    Init_Slv_Interp(&slv_interp);    Init_Slv_Interp(&slv_interp);
554    nok = (*eval_func)(&slv_interp,fm->i,arglist);    nok = (*eval_func)(&slv_interp,fm->i,arglist);

Legend:
Removed from v.221  
changed lines
  Added in v.222

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