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

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

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

revision 707 by johnpye, Mon Jun 26 04:55:05 2006 UTC revision 708 by johnpye, Tue Jun 27 07:34:31 2006 UTC
# Line 90  void DestroyExtCall(struct ExtCallNode * Line 90  void DestroyExtCall(struct ExtCallNode *
90  }  }
91    
92  struct Instance *GetSubjectInstance(struct gl_list_t *arglist,  struct Instance *GetSubjectInstance(struct gl_list_t *arglist,
93                       unsigned long varndx)          unsigned long varndx
94  {  ){
95    struct Instance *arg;    struct Instance *arg;
96    struct gl_list_t *branch;    struct gl_list_t *branch;
97    unsigned long len1,c=1L,len2,count=0L;    unsigned long len1,c=1L,len2,count=0L;
# Line 107  struct Instance *GetSubjectInstance(stru Line 107  struct Instance *GetSubjectInstance(stru
107        if (count>=varndx){        if (count>=varndx){
108      safetycheck = len2-count+varndx;      safetycheck = len2-count+varndx;
109      if (safetycheck<=0){      if (safetycheck<=0){
110        FPRINTF(ASCERR,"Something really wrong in GetSubjectInstance\n");        ERROR_REPORTER_HERE(ASC_PROG_ERR,"Something really wrong (%s)",__FUNCTION__);
       FPRINTF(ASCERR,"Please report to%s\n",ASC_BIG_BUGMAIL);  
111        return NULL;        return NULL;
112      }      }
113      arg = (struct Instance *)gl_fetch(branch,(unsigned long)safetycheck);      arg = (struct Instance *)gl_fetch(branch,(unsigned long)safetycheck);
# Line 286  struct Instance *ExternalCallVarInstance Line 285  struct Instance *ExternalCallVarInstance
285    return i;    return i;
286  }  }
287    
   
   
   
   
   
   
   
   
Legend:
Removed from v.707  
changed lines
  Added in v.708
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22