diff options
| author | martijnv | 2001-06-01 08:50:08 +0000 |
|---|---|---|
| committer | martijnv | 2001-06-01 08:50:08 +0000 |
| commit | 70c450f6780f7d4232ba3e8e7df529ea9b93bfeb (patch) | |
| tree | a839c7cba44a39cc9ef12e008c9822dfa1bee8ae | |
| parent | removed import pp in order to make the compiler compilable without my (diff) | |
The _Module generated for each icl-module conflicted with record of name
Module because the compiler prefixes it with an underscore. As a result
multiple defined _Module-symbols were reported by the compiler.
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@445 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/parse.icl | 2 | ||||
| -rw-r--r-- | frontend/predef.icl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 23eb048..f1e6f88 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -322,7 +322,7 @@ where # (ident, pState) = stringToIdent ("_" +++ mod_name +++ "_Module") IC_Type pState # td = MakeTypeDef ident [] (ConsList []) TA_None [] NoPos - # (pc_cons_name, pState) = stringToIdent "_Module" IC_Expression pState + # (pc_cons_name, pState) = stringToIdent "__Module" IC_Expression pState # cons = { pc_cons_name = pc_cons_name diff --git a/frontend/predef.icl b/frontend/predef.icl index 847c279..f9759ca 100644 --- a/frontend/predef.icl +++ b/frontend/predef.icl @@ -206,7 +206,7 @@ where // MV.. <<- ("DynamicTemp", IC_Type, PD_DynamicTemp) // <<- ("Module", IC_Type, PD_ModuleType) - <<- ("_Module", IC_Expression, PD_ModuleConsSymbol) + <<- ("__Module", IC_Expression, PD_ModuleConsSymbol) // ..MV // AA.. |