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
ea06df93
Commit
ea06df93
authored
Aug 28, 2001
by
Martijn Vervoort
Browse files
bug fix: count of let bindings was wrong which caused convertcases to crash
parent
b90e3660
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/convertDynamics.icl
View file @
ea06df93
...
...
@@ -926,7 +926,7 @@ where
// ...TIJDELIJK
*/
/* Sjaak ... */
(
let_info_ptr
,
ci
)
=
let_ptr
2
ci
(
let_info_ptr
,
ci
)
=
let_ptr
(
2
+
length
let_binds
)
ci
(
case_info_ptr
,
ci
)
=
bool_case_ptr
ci
/* ... Sjaak */
...
...
@@ -1242,6 +1242,7 @@ bool_case_ptr ci=:{ci_expr_heap}
let_ptr
::
!
Int
!*
ConversionInfo
->
(
ExprInfoPtr
,
!*
ConversionInfo
)
let_ptr
nr_of_binds
ci
=:{
ci_expr_heap
}
#
(
expr_info_ptr
,
ci_expr_heap
)
=
newPtr
(
EI_LetType
(
repeatn
nr_of_binds
empty_attributed_type
))
ci_expr_heap
#
(
expr_info_ptr
,
ci_expr_heap
)
=
newPtr
(
EI_LetType
(
repeatn
nr_of_binds
empty_attributed_type
))
ci_expr_heap
=
(
expr_info_ptr
,
{
ci
&
ci_expr_heap
=
ci_expr_heap
})
...
...
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