/[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 1289 by johnpye, Tue Jan 23 05:09:50 2007 UTC revision 1290 by johnpye, Mon Feb 26 04:54:45 2007 UTC
# Line 35  Line 35 
35  #include <general/dstring.h>  #include <general/dstring.h>
36    
37  #include "symtab.h"  #include "symtab.h"
   
   
38  #include "functype.h"  #include "functype.h"
39  #include "expr_types.h"  #include "expr_types.h"
40  #include "forvars.h"  #include "forvars.h"
# Line 49  Line 47 
47  #include "statement.h"  #include "statement.h"
48  #include "statio.h"  #include "statio.h"
49  #include "switch.h"  #include "switch.h"
 #include "module.h"  
50  #include "evaluate.h"  #include "evaluate.h"
51  #include "value_type.h"  #include "value_type.h"
52  #include "setinstval.h"  #include "setinstval.h"
# Line 59  Line 56 
56  #include "nameio.h"  #include "nameio.h"
57  #include "atomvalue.h"  #include "atomvalue.h"
58  #include "instquery.h"  #include "instquery.h"
 #include "slist.h"  
 #include "child.h"  
59  #include "type_desc.h"  #include "type_desc.h"
60  #include "library.h"  #include "library.h"
61  #include "extcall.h"  #include "extcall.h"
# Line 200  struct InitProcedure *SearchProcList(CON Line 195  struct InitProcedure *SearchProcList(CON
195  }  }
196    
197  struct InitProcedure *FindProcedure(CONST struct Instance *i,  struct InitProcedure *FindProcedure(CONST struct Instance *i,
198                          symchar *procname)                          symchar *procname
199  {  ){
200    struct TypeDescription *desc;    struct TypeDescription *desc;
   struct gl_list_t *plist;  
   struct InitProcedure *result = NULL;  
   
201    desc = InstanceTypeDesc(i);    desc = InstanceTypeDesc(i);
202    plist = GetInitializationList(desc);    return FindMethod(desc, procname); /* this code in type_desc.c now -- JP */
   if (plist != NULL){  
     result = SearchProcList(plist,procname);  
   }  
   plist = GetUniversalProcedureList();  
   if (result == NULL && plist != NULL) {  
     /* try for a UNIVERSAL method seen since parsing MODEL of i */  
     result = SearchProcList(plist,procname);  
   }  
   return result;  
203  }  }
204    
205    

Legend:
Removed from v.1289  
changed lines
  Added in v.1290

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