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
char *cName;
SymbolP moduleNameSymbol;
DefMod dclModule;
SymbolP saveSymbols;
cName = ConvertCleanString (name);
moduleNameSymbol = ConvertAllocType (SymbolS);
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);
dclModule = ConvertAllocType (DefRepr);
......@@ -417,6 +424,8 @@ BEDeclareDclModule (int moduleIndex, CleanString name, int isSystemModule, int n
if (moduleIndex != main_dcl_module_n)
AddOpenDefinitionModule (moduleNameSymbol, dclModule);
else
gBEState.be_allSymbols = saveSymbols;
} /* BEDeclareDclModule */
void
......
/* version info */
# define kBEVersionCurrent 0x02000204
# define kBEVersionCurrent 0x02000205
# define kBEVersionOldestDefinition 0x02000204
# define kBEVersionOldestImplementation 0x02000204
......
No preview for this file type
Markdown is supported
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