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
dd62f07e
Commit
dd62f07e
authored
Jan 23, 2002
by
Martijn Vervoort
Browse files
bug fix: adapted collect_used_dynamics which didn't eliminate all unused
dynamics.
parent
89e65960
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/transform.icl
View file @
dd62f07e
...
...
@@ -1520,16 +1520,16 @@ where
EI_UnmarkedDynamic
_
_
->
(
used_dynamics
,
symbol_heap
)
EI_Dynamic
opt_dyn_type
ptrs
#
(
new_ptrs
,
cos_
symbol_heap
)
=
foldSt
collect_used_dynmic
ptrs
([],
cos_
symbol_heap
)
#
cos_
symbol_heap
=
writePtr
dyn_expr_ptr
(
EI_Dynamic
opt_dyn_type
new_ptrs
)
#
(
new_ptrs
,
symbol_heap
)
=
foldSt
collect_used_dynmic
ptrs
([],
symbol_heap
)
#
symbol_heap
=
writePtr
dyn_expr_ptr
(
EI_Dynamic
opt_dyn_type
new_ptrs
)
symbol_heap
->
([
dyn_expr_ptr
:
used_dynamics
],
symbol_heap
)
EI_DynamicTypeWithVars
type_vars
dyn_type
ptrs
#
(
new_ptrs
,
cos_
symbol_heap
)
=
foldSt
collect_used_dynmic
ptrs
([],
cos_
symbol_heap
)
#
cos_
symbol_heap
=
writePtr
dyn_expr_ptr
(
EI_DynamicTypeWithVars
type_vars
dyn_type
new_ptrs
)
#
(
new_ptrs
,
symbol_heap
)
=
foldSt
collect_used_dynmic
ptrs
([],
symbol_heap
)
#
symbol_heap
=
writePtr
dyn_expr_ptr
(
EI_DynamicTypeWithVars
type_vars
dyn_type
new_ptrs
)
symbol_heap
->
([
dyn_expr_ptr
:
used_dynamics
],
symbol_heap
)
...
...
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