aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/checksupport.h
diff options
context:
space:
mode:
authorclean2000-07-12 14:59:46 +0000
committerclean2000-07-12 14:59:46 +0000
commit90461e5831717920426c9c1d7c861a3724f89715 (patch)
tree59d48b852f0adce522157ff7c27e24b759561b0d /backendC/CleanCompilerSources/checksupport.h
parentchanges 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.h39
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);
+