From 9a0c1f50e927fda4b0c62ea4b5db7dd91f00f958 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 25 May 2003 09:27:13 +0000
Subject: [PATCH]   - undid previous patch, it was not necessary and on top of
 that, it     contained a bug :/

---
 compiler/ncgcnv.pas | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/compiler/ncgcnv.pas b/compiler/ncgcnv.pas
index e60c95e30d..4c8cf00614 100644
--- a/compiler/ncgcnv.pas
+++ b/compiler/ncgcnv.pas
@@ -93,20 +93,18 @@ interface
         if (ressize<>leftsize) and
            not is_void(left.resulttype.def) then
           begin
+            location_copy(location,left.location);
             { reuse a loc_reference when the newsize is smaller than
               than the original, else load it to a register }
             if (location.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
                (ressize<leftsize) then
              begin
-               left.location.size:=newsize;
+               location.size:=newsize;
                if (target_info.endian = ENDIAN_BIG) then
-                 inc(left.location.reference.offset,leftsize-ressize);
+                 inc(location.reference.offset,leftsize-ressize);
              end
             else
-              begin
-                location_force_reg(exprasmlist,left.location,newsize,false);
-              end;
-            location_copy(location,left.location);
+             location_force_reg(exprasmlist,location,newsize,false);
           end
         else
           begin
@@ -513,8 +511,9 @@ end.
 
 {
   $Log$
-  Revision 1.41  2003-05-24 11:59:42  jonas
-    * fixed integer typeconversion problems
+  Revision 1.42  2003-05-25 09:27:13  jonas
+    - undid previous patch, it was not necessary and on top of that, it
+      contained a bug :/
 
   Revision 1.40  2003/05/23 14:27:35  peter
     * remove some unit dependencies