aboutsummaryrefslogtreecommitdiff
path: root/backendC/CleanCompilerSources/overloading_2.c
diff options
context:
space:
mode:
Diffstat (limited to 'backendC/CleanCompilerSources/overloading_2.c')
-rw-r--r--backendC/CleanCompilerSources/overloading_2.c80
1 files changed, 0 insertions, 80 deletions
diff --git a/backendC/CleanCompilerSources/overloading_2.c b/backendC/CleanCompilerSources/overloading_2.c
index b79912f..e69de29 100644
--- a/backendC/CleanCompilerSources/overloading_2.c
+++ b/backendC/CleanCompilerSources/overloading_2.c
@@ -1,80 +0,0 @@
-/*
- Version 1.0 - 24 okt 1994
-
- Author: Sjaak Smetsers
-*/
-
-#include "compiledefines.h"
-#include "types.t"
-#include "system.h"
-#include "settings.h"
-#include "syntaxtr.t"
-#include "comsupport.h"
-
-#include "scanner.h"
-#include "comparser.h"
-#include "sizes.h"
-#include "checker.h"
-#include "checksupport.h"
-#include "transform.h"
-#include "sa.h"
-#include "statesgen.h"
-#include "tctypes.t"
-#include "typechecker.h"
-#include "typechecker2.h"
-#include "typeconv.h"
-#include "tcsupport.h"
-#include "refcountanal.h"
-#include "overloading.h"
-#include "buildtree.h"
-
-#ifdef _DEBUG_
- static char *OV = "overloading";
-#endif
-
-PolyList NewPolyListElem (void *elem, PolyList next, HeapDescr hd)
-{
- PolyList new = TH_AllocType (hd, struct poly_list);
- new -> pl_elem = elem;
- new -> pl_next = next;
- return new;
-
-} /* NewPolyListElem */
-
-void InsertSymbolInSymbolList (SymbolList *symbols, SymbDef new_symbol, Bool take_icl_def, void *alloc (SizeT size))
-{
- SymbolList new_elem;
-
- for (; *symbols; symbols = & (*symbols) -> sl_next)
- { int cmp = strcmp ((*symbols) -> sl_symbol -> sdef_ident -> ident_name, new_symbol -> sdef_ident -> ident_name);
- if (cmp == 0)
- return;
- else if (cmp > 0)
- break;
- }
-
- new_elem = (SymbolListS *) alloc (SizeOf (SymbolListS));
-
- if (take_icl_def && new_symbol -> sdef_main_dcl)
- new_elem -> sl_symbol = new_symbol -> sdef_dcl_icl;
- else
- new_elem -> sl_symbol = new_symbol;
-
- new_elem -> sl_kind = SLK_Symbol;
- new_elem -> sl_next = *symbols;
-
- *symbols = new_elem;
-
-} /* InsertSymbolInSymbolList */
-
-void ConvertClassSymbolTreeToList (SymbolList symbols, SymbolList * result_list, void *alloc (SizeT size))
-{
- SymbolList next_symbol;
- for (next_symbol = symbols; next_symbol -> sl_kind == SLK_TreeOfLists; next_symbol = next_symbol -> sl_next_tree)
- ConvertClassSymbolTreeToList (next_symbol -> sl_next, result_list, alloc);
- if (next_symbol -> sl_kind == SLK_ListNumber)
- next_symbol = next_symbol -> sl_next;
- for (; next_symbol; next_symbol = next_symbol -> sl_next)
- InsertSymbolInSymbolList (result_list, next_symbol -> sl_symbol, cTakeIclDef, alloc);
-
-} /* ConvertClassSymbolTreeToList */