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
b09775cd
Commit
b09775cd
authored
Oct 29, 1999
by
Sjaak Smetsers
Browse files
*** empty log message ***
parent
fa3d88dd
Changes
2
Hide whitespace changes
Inline
Side-by-side
frontend/type.icl
View file @
b09775cd
...
...
@@ -1328,7 +1328,7 @@ where
#
(
equi
,
attr_var_env
,
type_heaps
)
=
equivalent
clean_fun_type
tmp_fun_type
defs
attr_var_env
type_heaps
|
equi
#
type_with_lifted_arg_types
=
addLiftedArgumentsToSymbolType
fun_type
tst_lifted
st_args
st_vars
st_attr_vars
(
type_heaps
,
expr_heap
)
=
updateExpressionTypes
clean_fun_type
fun
_type
case_and_let_exprs
type_heaps
expr_heap
(
type_heaps
,
expr_heap
)
=
updateExpressionTypes
clean_fun_type
type_with_lifted_arg
_type
s
case_and_let_exprs
type_heaps
expr_heap
=
({
fun_env
&
[
fun
]
=
CheckedType
type_with_lifted_arg_types
},
attr_var_env
,
type_heaps
,
expr_heap
,
error
)
// ---> ("check_function_type", clean_fun_type, fun_type, type_with_lifted_arg_types)
=
(
fun_env
,
attr_var_env
,
type_heaps
,
expr_heap
,
specification_error
clean_fun_type
error
)
...
...
frontend/typesupport.icl
View file @
b09775cd
...
...
@@ -378,7 +378,7 @@ instance bindInstances Type
=
bindInstances
r1
r2
(
bindInstances
l1
l2
type_var_heap
)
bindInstances
(
TB
_)
(
TB
_)
type_var_heap
=
type_var_heap
bindInstances
(
(
CV
l1
)
:@:
r1
)
(
(
CV
l2
)
:@:
r2
)
type_var_heap
bindInstances
(
CV
l1
:@:
r1
)
(
CV
l2
:@:
r2
)
type_var_heap
=
bindInstances
r1
r2
(
bindInstances
(
TV
l1
)
(
TV
l2
)
type_var_heap
)
instance
bindInstances
[
a
]
|
bindInstances
a
...
...
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