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
2de3e767
Commit
2de3e767
authored
Jan 21, 2002
by
Martijn Vervoort
Browse files
bug fix: fold2St cannot deal with inifinite lists
parent
a4cd7445
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/overloading.icl
View file @
2de3e767
...
...
@@ -1042,7 +1042,7 @@ where
build_type_identification
dyn_type_code
ui
=:{
ui_x
={
x_module_id
=
No
}}
=
(
dyn_type_code
,
ui
)
build_type_identification
dyn_type_code
ui
=:{
ui_x
={
x_module_id
=
Yes
let_bind
}}
#
(
let_info_ptr
,
ui
)
=
let_ptr
ui
#
(
let_info_ptr
,
ui
)
=
let_ptr
1
ui
#
letje
=
Let
{
let_strict_binds
=
[],
let_lazy_binds
=
[
let_bind
],
...
...
@@ -1607,7 +1607,7 @@ where
convertTypecode
(
TCE_UniType
uni_vars
type_code
)
ui
#
(
let_binds
,
ui
)
=
createVariables
uni_vars
ui
(
let_expr
,
ui
)
=
convertTypecode
type_code
ui
(
let_info_ptr
,
ui
)
=
let_ptr
ui
(
let_info_ptr
,
ui
)
=
let_ptr
(
length
let_binds
)
ui
=
(
Let
{
let_strict_binds
=
[]
,
let_lazy_binds
=
let_binds
,
let_expr
=
let_expr
...
...
@@ -1679,8 +1679,8 @@ where
adjustClassExpression
symb_name
expr
ui
=
(
expr
,
ui
)
let_ptr
ui
=:{
ui_symbol_heap
}
#
(
expr_info_ptr
,
ui_symbol_heap
)
=
newPtr
(
EI_LetType
(
repeat
empty_attributed_type
))
ui_symbol_heap
let_ptr
nr_of_binds
ui
=:{
ui_symbol_heap
}
#
(
expr_info_ptr
,
ui_symbol_heap
)
=
newPtr
(
EI_LetType
(
repeat
n
nr_of_binds
empty_attributed_type
))
ui_symbol_heap
=
(
expr_info_ptr
,
{
ui
&
ui_symbol_heap
=
ui_symbol_heap
})
where
empty_attributed_type
::
AType
...
...
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