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
61d0095b
Commit
61d0095b
authored
Nov 24, 2005
by
John van Groningen
Browse files
repair error introduced by previous revision (put symbol table back in state)
parent
8e02a38c
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/checktypes.icl
View file @
61d0095b
...
...
@@ -306,13 +306,13 @@ where
=
addExistentionalTypeVariablesToSymbolTable
cti_lhs_attribute
cons_def
.
cons_exi_vars
ti_type_heaps
cs
(
st_args
,
cons_arg_vars
,
st_attr_env
,
(
ts
,
ti
,
cs
))
=
bind_types_of_cons
cons_def
.
cons_type
.
st_args
cti
free_vars
[]
(
ts
,
{
ti
&
ti_type_heaps
=
ti_type_heaps
},
cs
)
cs_
symbol_table
=
removeAttributedTypeVarsFromSymbolTable
cGlobalScope
/* cOuterMostLevel */
exi_vars
cs
.
cs_symbol_table
symbol_table
=
removeAttributedTypeVarsFromSymbolTable
cGlobalScope
/* cOuterMostLevel */
exi_vars
cs
.
cs_symbol_table
attr_vars
=
add_universal_attr_vars
st_args
free_attrs
cons_type
=
{
cons_def
.
cons_type
&
st_vars
=
free_vars
,
st_args
=
st_args
,
st_result
=
type_lhs
,
st_attr_vars
=
attr_vars
,
st_attr_env
=
st_attr_env
}
(
new_type_ptr
,
ti_var_heap
)
=
newPtr
VI_Empty
ti
.
ti_var_heap
cons_def
=
{
cons_def
&
cons_type
=
cons_type
,
cons_index
=
cons_index
,
cons_type_index
=
cti
.
cti_type_index
,
cons_exi_vars
=
exi_vars
,
cons_type_ptr
=
new_type_ptr
,
cons_arg_vars
=
cons_arg_vars
}
=
({
ts
&
ts_cons_defs
.[
ds_index
]
=
cons_def
},
{
ti
&
ti_var_heap
=
ti_var_heap
},
cs
)
=
({
ts
&
ts_cons_defs
.[
ds_index
]
=
cons_def
},
{
ti
&
ti_var_heap
=
ti_var_heap
},
{
cs
&
cs_symbol_table
=
symbol_table
}
)
where
bind_types_of_cons
::
![
AType
]
!
CurrentTypeInfo
![
TypeVar
]
![
AttrInequality
]
!(!*
TypeSymbols
,
!*
TypeInfo
,
!*
CheckState
)
->
(![
AType
],
![[
ATypeVar
]],
![
AttrInequality
],
!(!*
TypeSymbols
,
!*
TypeInfo
,
!*
CheckState
))
...
...
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