From 978a419f80c9d85b44ffca175e56763f3e93812e Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 18 Jul 2001 16:17:41 +0000
Subject: 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
---
 backend/backendconvert.icl    | 2 +-
 backend/backendpreprocess.icl | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'backend')

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
-- 
cgit v1.2.3