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

Diff of /trunk/base/generic/compiler/type_desc.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 24  Line 24 
24      Last in CVS: $Revision: 1.41 $ $Date: 1998/05/18 16:36:48 $ $Author: ballan $      Last in CVS: $Revision: 1.41 $ $Date: 1998/05/18 16:36:48 $ $Author: ballan $
25  */  */
26    
27    #include "type_desc.h"
28    #include "type_descio.h"
29    
30  #include <stdarg.h>  #include <stdarg.h>
 #include <utilities/ascConfig.h>  
 #include <utilities/ascMalloc.h>  
31    
32    #include <utilities/ascMalloc.h>
33  #include <utilities/ascPanic.h>  #include <utilities/ascPanic.h>
 #include <general/list.h>  
   
34    
35  #include "functype.h"  #include "functype.h"
36  #include "expr_types.h"  #include "expr_types.h"
# Line 41  Line 41 
41  #include "stattypes.h"  #include "stattypes.h"
42  #include "statement.h"  #include "statement.h"
43  #include "statio.h"  #include "statio.h"
 #include "slist.h"  
44  #include "select.h"  #include "select.h"
 #include "child.h"  
 #include "childinfo.h"  
45  #include "instance_enum.h"  #include "instance_enum.h"
46  #include "cmpfunc.h"  #include "cmpfunc.h"
 #include "module.h"  
47  #include "library.h"  #include "library.h"
48  #include "watchpt.h"  #include "watchpt.h"
49  #include "initialize.h"  #include "initialize.h"
 #include "type_desc.h"  
 #include "type_descio.h"  
50    
51  #define TYPELINKDEBUG 0  #define TYPELINKDEBUG 0
52  /*  /*
# Line 1203  int ReplaceMethods(struct TypeDescriptio Line 1197  int ReplaceMethods(struct TypeDescriptio
1197    }    }
1198  }  }
1199    
1200    struct InitProcedure *FindMethod(const struct TypeDescription *d, const symchar *procname){
1201        struct gl_list_t *plist;
1202        struct InitProcedure *result = NULL;
1203    
1204        plist = GetInitializationList(d);
1205        if(plist != NULL){
1206            result = SearchProcList(plist,procname);
1207        }
1208        plist = GetUniversalProcedureList();
1209        if(result == NULL && plist != NULL) {
1210            /* try for a UNIVERSAL method seen since parsing MODEL of i */
1211            result = SearchProcList(plist,procname);
1212        }
1213        return result;
1214    }
1215    
1216    
1217  void CopyTypeDescF(struct TypeDescription *d)  void CopyTypeDescF(struct TypeDescription *d)
1218  {  {
1219    AssertAllocatedMemory(d,sizeof(struct TypeDescription));    AssertAllocatedMemory(d,sizeof(struct TypeDescription));

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

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