diff options
| -rw-r--r-- | backend/backendconvert.icl | 2 | ||||
| -rw-r--r-- | backend/backendpreprocess.icl | 4 | ||||
| -rw-r--r-- | frontend/syntax.dcl | 2 | ||||
| -rw-r--r-- | frontend/syntax.icl | 2 |
4 files changed, 5 insertions, 5 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index e18a968..3137a73 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -1878,7 +1878,7 @@ getVariableSequenceNumber varInfoPtr be = case vi of VI_SequenceNumber sequenceNumber -> (sequenceNumber,be) - VI_Alias {var_info_ptr} + VI_AliasSequenceNumber {var_info_ptr} -> getVariableSequenceNumber var_info_ptr be vi -> abort "getVariableSequenceNumber" <<- vi diff --git a/backend/backendpreprocess.icl b/backend/backendpreprocess.icl index 6b76e6c..92a47d7 100644 --- a/backend/backendpreprocess.icl +++ b/backend/backendpreprocess.icl @@ -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_AliasSequenceNumber alias_bound_var-> alias_bound_var + ss_varHeap = writePtr lb_dst.fv_info_ptr (VI_AliasSequenceNumber non_alias_bound_var) ss_varHeap -> { sequenceState & ss_varHeap = ss_varHeap } _ -> sequence lb_dst sequenceState diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl index d4253bd..21374fa 100644 --- a/frontend/syntax.dcl +++ b/frontend/syntax.dcl @@ -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 */ diff --git a/frontend/syntax.icl b/frontend/syntax.icl index be57141..3e868c1 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -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 */ |