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
da0c2894
Commit
da0c2894
authored
Dec 11, 2003
by
Ronny Wichers Schreur
🏘
Browse files
bug fix: use a new ptr in expanded dynamic
parent
57005500
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/transform.icl
View file @
da0c2894
...
...
@@ -437,9 +437,11 @@ where
instance
unfold
DynamicExpr
where
unfold
expr
=:{
dyn_expr
}
ui
us
#
(
dyn_expr
,
us
)
=
unfold
dyn_expr
ui
us
=
({
expr
&
dyn_expr
=
dyn_expr
},
us
)
unfold
expr
=:{
dyn_expr
,
dyn_info_ptr
}
ui
us
=:{
us_symbol_heap
}
#
(
dyn_info
,
us_symbol_heap
)
=
readPtr
dyn_info_ptr
us_symbol_heap
#
(
new_dyn_info_ptr
,
us_symbol_heap
)
=
newPtr
dyn_info
us_symbol_heap
#
(
dyn_expr
,
us
)
=
unfold
dyn_expr
ui
{
us
&
us_symbol_heap
=
us_symbol_heap
}
=
({
expr
&
dyn_expr
=
dyn_expr
,
dyn_info_ptr
=
new_dyn_info_ptr
},
us
)
instance
unfold
Selection
where
...
...
Write
Preview
Supports
Markdown
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