diff options
| author | ronny | 2001-07-18 16:17:41 +0000 |
|---|---|---|
| committer | ronny | 2001-07-18 16:17:41 +0000 |
| commit | 978a419f80c9d85b44ffca175e56763f3e93812e (patch) | |
| tree | 48eba39af7b7b388e15370a8583414799ed93534 /backend | |
| parent | removed MW comments (diff) | |
replaced VI_Alias with VI_AliasSequenceNumber to avoid potential clashes
with VI_Aliases from previous phases
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@557 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
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 |