/[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 909 by johnpye, Thu Oct 26 10:18:53 2006 UTC revision 910 by johnpye, Thu Oct 26 13:35:25 2006 UTC
# Line 508  void ExecuteInitExt(struct procFrame *fm Line 508  void ExecuteInitExt(struct procFrame *fm
508      return;      return;
509    }    }
510    
511    CONSOLE_DEBUG("%s: in:%ld, out:%ld", efunc->name, efunc->n_inputs, efunc->n_outputs);    /* CONSOLE_DEBUG("%s: in:%ld, out:%ld", efunc->name, efunc->n_inputs, efunc->n_outputs); */
512    
513    eval_func = GetExtMethodRun(efunc);    eval_func = GetExtMethodRun(efunc);
514    user_data = GetExtMethodUserData(efunc);    user_data = GetExtMethodUserData(efunc);
# Line 568  void ExecuteInitExt(struct procFrame *fm Line 568  void ExecuteInitExt(struct procFrame *fm
568      return;      return;
569    }    }
570    
571    CONSOLE_DEBUG("CHECKED EXTERNAL ARGS, OK");    /* CONSOLE_DEBUG("CHECKED EXTERNAL ARGS, OK"); */
572    
573    nok = (*eval_func)(fm->i,arglist,user_data);    nok = (*eval_func)(fm->i,arglist,user_data);
574    
575    CONSOLE_DEBUG("BACK FROM RUNING FUNC AT %p",eval_func);    /* CONSOLE_DEBUG("BACK FROM RUNING FUNC AT %p",eval_func); */
576    
577    /* this should switch on Proc_CallXXXXX */    /* this should switch on Proc_CallXXXXX */
578      /* should switch on proc_enum call bits to translate Proc_Call      /* should switch on proc_enum call bits to translate Proc_Call
# Line 1509  static Line 1509  static
1509  void ExecuteInitStatement(struct procFrame *fm, struct Statement *stat)  void ExecuteInitStatement(struct procFrame *fm, struct Statement *stat)
1510  {  {
1511  #if IDB  #if IDB
1512  FPRINTF(fm->err,"\n");    FPRINTF(fm->err,"\n");
1513  FPRINTF(fm->err,"EIS-IN: %s\n",FrameControlToString(fm->flow));    FPRINTF(fm->err,"EIS-IN: %s\n",FrameControlToString(fm->flow));
1514  FPRINTF(fm->err,"EIS: "); WriteStatement(fm->err,stat,2);    FPRINTF(fm->err,"EIS: "); WriteStatement(fm->err,stat,2);
1515  #endif  #endif
1516    switch(StatementType(stat)){    switch(StatementType(stat)){
1517    case FOR:    case FOR:
# Line 1533  FPRINTF(fm->err,"EIS: "); WriteStatement Line 1533  FPRINTF(fm->err,"EIS: "); WriteStatement
1533      ExecuteInitFlow(fm);      ExecuteInitFlow(fm);
1534      break;      break;
1535    case EXT:    case EXT:
1536      CONSOLE_DEBUG("ABOUT TO ExecuteInitExt");      /* CONSOLE_DEBUG("ABOUT TO ExecuteInitExt"); */
1537      ExecuteInitExt(fm,stat);      ExecuteInitExt(fm,stat);
1538      break;      break;
1539    case CALL:    case CALL:

Legend:
Removed from v.909  
changed lines
  Added in v.910

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