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

Diff of /trunk/ascend/compiler/initialize.c

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

revision 2396 by jpye, Wed Dec 29 11:52:16 2010 UTC revision 2397 by jpye, Mon Feb 28 12:18:48 2011 UTC
# Line 74  Line 74 
74  #define IDB 0  #define IDB 0
75    
76  //#define INIT_DEBUG  //#define INIT_DEBUG
77    #define FIXFREE_DEBUG
78    
79  /*********************************************************************\  /*********************************************************************\
80    There is a stack of procedure calls kept for tracing and breaking    There is a stack of procedure calls kept for tracing and breaking
# Line 248  execute_init_fix_or_free(int val, struct Line 249  execute_init_fix_or_free(int val, struct
249      struct gl_list_t *temp;      struct gl_list_t *temp;
250      unsigned i, len;      unsigned i, len;
251      struct Instance *i1, *i2;      struct Instance *i1, *i2;
252      //char *instname;  #ifdef FIXFREE_DEBUG
253        char *instname;
254    #endif
255      struct TypeDescription *t, *st;      struct TypeDescription *t, *st;
256      CONST struct Name *name;      CONST struct Name *name;
257      symchar *fixed;      symchar *fixed;
# Line 276  execute_init_fix_or_free(int val, struct Line 279  execute_init_fix_or_free(int val, struct
279              return;              return;
280          }          }
281          len = gl_length(temp);          len = gl_length(temp);
282    #ifdef FIXFREE_DEBUG
283            CONSOLE_DEBUG("There are %d items in the %s list", len, val?"FIX":"FREE");
284    #endif
285          for(i=1; i<=len; i++){          for(i=1; i<=len; i++){
286              i1 = (struct Instance *)gl_fetch(temp,i);              i1 = (struct Instance *)gl_fetch(temp,i);
287  #ifdef FIXFREE_DEBUG  #ifdef FIXFREE_DEBUG
# Line 288  execute_init_fix_or_free(int val, struct Line 294  execute_init_fix_or_free(int val, struct
294              ascfree(instname);              ascfree(instname);
295  #endif  #endif
296              if(InstanceKind(i1)!=REAL_ATOM_INST){              if(InstanceKind(i1)!=REAL_ATOM_INST){
297                    CONSOLE_DEBUG("Attempted to FIX or FREE variable that is not a real atom type.");
298                  fm->ErrNo = Proc_illegal_type_use;                  fm->ErrNo = Proc_illegal_type_use;
299                  ProcWriteFixError(fm,name);                  ProcWriteFixError(fm,name);
300                  return;                  return;

Legend:
Removed from v.2396  
changed lines
  Added in v.2397

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