Commit 504fe0e6 authored by John van Groningen's avatar John van Groningen
Browse files

set im_def_module field so that the bit in .comp that

indicates a system module will be set
parent 91f39a06
......@@ -369,6 +369,8 @@ BESetMainDclModuleN (int main_dcl_module_n_parameter)
main_dcl_module_n=main_dcl_module_n_parameter;
}
static DefMod im_def_module;
void
BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctions, int nTypes, int nConstructors, int nFields)
{
......@@ -403,7 +405,7 @@ BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctio
iclModule = icl->beicl_module;
iclModule->im_name = moduleNameSymbol;
iclModule->im_modification_time = ConvertCleanString (modificationTime);
iclModule->im_def_module = NULL;
iclModule->im_def_module = im_def_module;
iclModule->im_rules = NULL;
iclModule->im_start = NULL;
iclModule->im_symbols = gBEState.be_allSymbols;
......@@ -463,8 +465,10 @@ BEDeclareDclModule (int moduleIndex, CleanString name, CleanString modificationT
AddOpenDefinitionModule (moduleNameSymbol, dclModule);
if (moduleIndex == main_dcl_module_n)
if (moduleIndex == main_dcl_module_n){
gBEState.be_allSymbols = saveSymbols;
im_def_module=dclModule;
}
} /* BEDeclareDclModule */
void
......@@ -3749,6 +3753,8 @@ BEInit (int argc)
gBEState.be_initialised = True;
im_def_module = NULL;
return ((BackEnd) &gBEState);
} /* BEInit */
......
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