Commit ac8fa7b6 authored by Martijn Vervoort's avatar Martijn Vervoort
Browse files

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.
parent ed685a61
......@@ -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
......
......@@ -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..
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment