Commit ed10a9c8 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

exclude symbols from current dcl module from im_symbols (prevents multiple...

exclude symbols from current dcl module from im_symbols (prevents multiple record en constructor labels in abc)
updated version
parent 41eab7de
...@@ -402,12 +402,19 @@ BEDeclareDclModule (int moduleIndex, CleanString name, int isSystemModule, int n ...@@ -402,12 +402,19 @@ BEDeclareDclModule (int moduleIndex, CleanString name, int isSystemModule, int n
char *cName; char *cName;
SymbolP moduleNameSymbol; SymbolP moduleNameSymbol;
DefMod dclModule; DefMod dclModule;
SymbolP saveSymbols;
cName = ConvertCleanString (name); cName = ConvertCleanString (name);
moduleNameSymbol = ConvertAllocType (SymbolS); moduleNameSymbol = ConvertAllocType (SymbolS);
moduleNameSymbol->symb_ident = Identifier (cName); moduleNameSymbol->symb_ident = Identifier (cName);
if (moduleIndex == main_dcl_module_n)
{
saveSymbols = gBEState.be_allSymbols;
gBEState.be_allSymbols = NULL;
}
DeclareModule (moduleIndex, cName, isSystemModule, nFunctions, nTypes, nConstructors, nFields); DeclareModule (moduleIndex, cName, isSystemModule, nFunctions, nTypes, nConstructors, nFields);
dclModule = ConvertAllocType (DefRepr); dclModule = ConvertAllocType (DefRepr);
...@@ -417,6 +424,8 @@ BEDeclareDclModule (int moduleIndex, CleanString name, int isSystemModule, int n ...@@ -417,6 +424,8 @@ BEDeclareDclModule (int moduleIndex, CleanString name, int isSystemModule, int n
if (moduleIndex != main_dcl_module_n) if (moduleIndex != main_dcl_module_n)
AddOpenDefinitionModule (moduleNameSymbol, dclModule); AddOpenDefinitionModule (moduleNameSymbol, dclModule);
else
gBEState.be_allSymbols = saveSymbols;
} /* BEDeclareDclModule */ } /* BEDeclareDclModule */
void void
......
/* version info */ /* version info */
# define kBEVersionCurrent 0x02000204 # define kBEVersionCurrent 0x02000205
# define kBEVersionOldestDefinition 0x02000204 # define kBEVersionOldestDefinition 0x02000204
# define kBEVersionOldestImplementation 0x02000204 # define kBEVersionOldestImplementation 0x02000204
......
No preview for this file type
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