diff options
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 2 | ||||
| -rw-r--r-- | backend/backendpreprocess.icl | 4 |
2 files changed, 3 insertions, 3 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 |