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

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

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

revision 62 by johnpye, Wed Nov 30 05:53:20 2005 UTC revision 67 by johnpye, Wed Nov 30 16:31:29 2005 UTC
# Line 5326  static void DefineFType(symchar *sym, en Line 5326  static void DefineFType(symchar *sym, en
5326    def = CreateAtomTypeDef(sym,NULL,t,NULL,0,EmptyStatementList(),NULL,    def = CreateAtomTypeDef(sym,NULL,t,NULL,0,EmptyStatementList(),NULL,
5327                    0,0.0,WildDimension(),0,NULL,0);                    0,0.0,WildDimension(),0,NULL,0);
5328    if (def) {    if (def) {
5329        //FPRINTF(ASCERR,"----\nADD FUND TYPE %s...\n",sym);
5330      AddType(def);      AddType(def);
5331        //FPRINTF(ASCERR,"... ADD FUND TYPE %s...\n",sym);
5332    } else {    } else {
5333      FPRINTF(ASCERR,"%sUnable to define fundamental atom %s.\n",      FPRINTF(ASCERR,"%sUnable to define fundamental atom %s.\n",
5334        StatioLabel(3),SCP(sym));        StatioLabel(3),SCP(sym));

Legend:
Removed from v.62  
changed lines
  Added in v.67

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