Skip to content
GitLab
Menu
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
7e2e225a
Commit
7e2e225a
authored
Apr 30, 2019
by
johnvg@science.ru.nl
Browse files
change type of field im_name, remove allocation of Symbol and Ident of name
parent
ab6766f3
Changes
2
Hide whitespace changes
Inline
Side-by-side
backendC/CleanCompilerSources/backend.c
View file @
7e2e225a
...
...
@@ -387,7 +387,6 @@ BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctio
{
int
i
;
char
*
cName
;
SymbolP
moduleNameSymbol
;
ImpMod
iclModule
;
BEIclP
icl
;
...
...
@@ -396,9 +395,6 @@ BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctio
if
(
cName
==
NULL
)
cName
=
ConvertCleanString
(
name
);
moduleNameSymbol
=
ConvertAllocType
(
SymbolS
);
moduleNameSymbol
->
symb_ident
=
Identifier
(
cName
);
/* Assert (strcmp (gBEState.be_modules [main_dcl_module_n].bem_name, cName) == 0); */
Assert
(
strncmp
(
cName
,
name
->
chars
,
name
->
length
)
==
0
);
...
...
@@ -414,7 +410,7 @@ BEDeclareIclModule (CleanString name, CleanString modificationTime, int nFunctio
DeclareModule
(
main_dcl_module_n
,
cName
,
False
,
nFunctions
,
nTypes
,
nConstructors
,
nFields
);
iclModule
=
icl
->
beicl_module
;
iclModule
->
im_name
=
moduleNameSymbol
;
iclModule
->
im_name
=
cName
;
iclModule
->
im_modification_time
=
ConvertCleanString
(
modificationTime
);
iclModule
->
im_def_module
=
im_def_module
;
iclModule
->
im_rules
=
NULL
;
...
...
@@ -744,7 +740,7 @@ BESpecialArrayFunctionSymbol (BEArrayFunKind arrayFunKind, int functionIndex, in
newRuleType
->
rule_type_rule
=
newTypeAlt
;
newsdef
->
sdef_ident
=
newIdent
;
newsdef
->
sdef_module
=
gBEState
.
be_icl
.
beicl_module
->
im_name
->
symb_ident
->
ident_name
;
newsdef
->
sdef_module
=
gBEState
.
be_icl
.
beicl_module
->
im_name
;
newsdef
->
sdef_mark
=
0
;
newsdef
->
sdef_isused
=
True
;
newsdef
->
sdef_exported
=
False
;
...
...
backendC/CleanCompilerSources/syntaxtr.t
View file @
7e2e225a
...
...
@@ -670,7 +670,7 @@ typedef FileTime ModuleFileTime;
#endif
typedef
struct
{
Symbol
im_name
;
char
*
im_name
;
Symbol
im_symbols
;
ImpRules
im_rules
;
struct
symbol_def
*
im_start
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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