Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
504fe0e6
Commit
504fe0e6
authored
Dec 10, 2002
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/backend.c
View file @
504fe0e6
...
...
@@ -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 */
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment