diff options
author | clean | 2000-07-12 14:59:46 +0000 |
---|---|---|
committer | clean | 2000-07-12 14:59:46 +0000 |
commit | 90461e5831717920426c9c1d7c861a3724f89715 (patch) | |
tree | 59d48b852f0adce522157ff7c27e24b759561b0d /backendC/CleanCompilerSources/checksupport.h | |
parent | changes to avoid bug in module refmark when compiling compiler with itself (diff) |
clean 1.3.3 backend again again
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@189 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backendC/CleanCompilerSources/checksupport.h')
-rw-r--r-- | backendC/CleanCompilerSources/checksupport.h | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/backendC/CleanCompilerSources/checksupport.h b/backendC/CleanCompilerSources/checksupport.h new file mode 100644 index 0000000..bb70209 --- /dev/null +++ b/backendC/CleanCompilerSources/checksupport.h @@ -0,0 +1,39 @@ + +#define cTypeDelimiter ';' +#define cTypeFirstArg '<' +#define cTypeLastArg '>' + +extern char *ConvertSymbolKindToString (SymbKind skind); + +extern void CheckError (char *msg1,char *msg2); +extern void CheckNodeError (char *msg1,char *msg2,NodeP node_p); +extern void CheckNodeSymbolError (struct symbol *symbol,char *msg,NodeP node_p); +extern void CheckSymbolError (struct symbol *symbol,char *msg); +extern void CheckWarning (char *msg1,char *msg2); +extern void CheckSymbolWarning (struct symbol *symbol,char *msg); +extern void CheckWarningOrError (Bool error,char *msg1,char *msg2); +extern void CheckWarningOrError2 (Bool error,char *msg1,char *msg2,char *msg3); +extern void CheckSymbolWarningOrError (Bool error,struct symbol *symbol,char *msg); +extern void TupleError (void); + +extern char *Earity,*Enodeid3,*Ecyclicsyn,*Enodeid2,*EwrongdefS,*Einfix_imp_def, + *EImplandDef1,*EImplandDef5; + +extern unsigned RuleCount,TypeSymbolCount; +extern SymbDef StackTop; + +#define PushOnDepStack(sdef) \ + sdef->sdef_parent=StackTop; \ + StackTop=sdef + +#define PopFromDepStack(sdef) \ + sdef=StackTop; \ + StackTop=sdef->sdef_parent; \ + sdef->sdef_parent=NULL + +#define IsOnDepStack(sdef) ((sdef)->sdef_parent!=NULL) + +#define NameOfSymbol(symb) ((symb)->symb_def ->sdef_ident->ident_name) + +extern void PrintSymbolOfIdent (Ident sid,unsigned line_nr,File file); + |