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

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

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

revision 2360 by jpye, Wed Dec 15 06:35:43 2010 UTC revision 2361 by jpye, Mon Jan 10 12:17:38 2011 UTC
# Line 92  symchar *g_statio_stattypenames[WILLBE+1 Line 92  symchar *g_statio_stattypenames[WILLBE+1
92  static  static
93  symchar *g_statio_flowtypenames[fc_stop+1];  symchar *g_statio_flowtypenames[fc_stop+1];
94    
95    void statio_clear_stattypenames(void){
96        g_statio_stattypenames[0]=NULL;
97    }
98    
99    
100  static  static
101  void Indent(FILE *f, register int i)  void Indent(FILE *f, register int i)
102  {  {
# Line 673  void WriteStatementError(const error_sev Line 678  void WriteStatementError(const error_sev
678          , ...          , ...
679  ){  ){
680      va_list args;      va_list args;
   
681      error_reporter_start(sev,Asc_ModuleFileName(stat->mod),stat->linenum,SCP(StatementTypeString(stat)));      error_reporter_start(sev,Asc_ModuleFileName(stat->mod),stat->linenum,SCP(StatementTypeString(stat)));
682      va_start(args,fmt);      va_start(args,fmt);
683      vfprintf_error_reporter(ASCERR,fmt,args);      vfprintf_error_reporter(ASCERR,fmt,args);
# Line 780  symchar *StatementTypeString(CONST struc Line 784  symchar *StatementTypeString(CONST struc
784  {  {
785    static symchar *error_statement_sym;    static symchar *error_statement_sym;
786    assert(s!=NULL);    assert(s!=NULL);
787    if (g_statio_stattypenames[0]==NULL) {    if(g_statio_stattypenames[0]==NULL) {
788      error_statement_sym = AddSymbol("Unknown-statement-type");      error_statement_sym = AddSymbol("Unknown-statement-type");
789      g_statio_stattypenames[ALIASES] = AddSymbol("ALIASES");      g_statio_stattypenames[ALIASES] = AddSymbol("ALIASES");
790      g_statio_stattypenames[ISA] = AddSymbol("IS_A");      g_statio_stattypenames[ISA] = AddSymbol("IS_A");
Legend:
Removed from v.2360  
changed lines
  Added in v.2361
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22