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
c7236c69
Commit
c7236c69
authored
Jul 18, 2001
by
Ronny Wichers Schreur
🏢
Browse files
replaced VI_Alias with VI_AliasSequenceNumber to avoid potential clashes
with VI_Aliases from previous phases
parent
64d2dd7b
Changes
4
Hide whitespace changes
Inline
Side-by-side
backend/backendconvert.icl
View file @
c7236c69
...
...
@@ -1878,7 +1878,7 @@ getVariableSequenceNumber varInfoPtr be
=
case
vi
of
VI_SequenceNumber
sequenceNumber
->
(
sequenceNumber
,
be
)
VI_Alias
{
var_info_ptr
}
VI_Alias
SequenceNumber
{
var_info_ptr
}
->
getVariableSequenceNumber
var_info_ptr
be
vi
->
abort
"getVariableSequenceNumber"
<<-
vi
...
...
backend/backendpreprocess.icl
View file @
c7236c69
...
...
@@ -159,8 +159,8 @@ instance sequence LetBind where
#
(
vi
,
ss_varHeap
)
=
readPtr
var_info_ptr
sequenceState
.
ss_varHeap
non_alias_bound_var
=
case
vi
of
VI_SequenceNumber
_
->
bound_var
VI_Alias
alias_bound_var
->
alias_bound_var
ss_varHeap
=
writePtr
lb_dst
.
fv_info_ptr
(
VI_Alias
non_alias_bound_var
)
ss_varHeap
VI_Alias
SequenceNumber
alias_bound_var
->
alias_bound_var
ss_varHeap
=
writePtr
lb_dst
.
fv_info_ptr
(
VI_Alias
SequenceNumber
non_alias_bound_var
)
ss_varHeap
->
{
sequenceState
&
ss_varHeap
=
ss_varHeap
}
_
->
sequence
lb_dst
sequenceState
...
...
frontend/syntax.dcl
View file @
c7236c69
...
...
@@ -524,7 +524,7 @@ cIsALocalVar :== False
VI_ForwardClassVar
!
VarInfoPtr
|
/* to hold the dictionary variable generated during overloading */
VI_Forward
!
BoundVar
|
VI_LetVar
!
LetVarInfo
|
VI_LetExpression
!
LetExpressionInfo
|
VI_CaseVar
!
VarInfoPtr
|
VI_CorrespondenceNumber
!
Int
|
/* it is assumed that this alternative is _only_ used in module comparedefimp */
VI_SequenceNumber
!
Int
|
VI_SequenceNumber
!
Int
|
VI_AliasSequenceNumber
!
BoundVar
|
VI_Used
|
/* for indicating that an imported function has been used */
VI_PropagationType
!
SymbolType
|
/* for storing the type with propagation environment of an imported function */
VI_ExpandedType
!
SymbolType
|
/* for storing the (expanded) type of an imported function */
...
...
frontend/syntax.icl
View file @
c7236c69
...
...
@@ -509,7 +509,7 @@ cIsALocalVar :== False
VI_ForwardClassVar
!
VarInfoPtr
|
/* to hold the dictionary variable generated during overloading */
VI_Forward
!
BoundVar
|
VI_LetVar
!
LetVarInfo
|
VI_LetExpression
!
LetExpressionInfo
|
VI_CaseVar
!
VarInfoPtr
|
VI_CorrespondenceNumber
!
Int
|
/* it is assumed that this alternative is _only_ used in module comparedefimp */
VI_SequenceNumber
!
Int
|
VI_SequenceNumber
!
Int
|
VI_AliasSequenceNumber
!
BoundVar
|
VI_Used
|
/* for indicating that an imported function has been used */
VI_PropagationType
!
SymbolType
|
/* for storing the type with propagation environment of an imported function */
VI_ExpandedType
!
SymbolType
|
/* for storing the (expanded) type of an imported function */
...
...
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