From 08223328882279abff3b2a00a3f5c491ffb10f79 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 22 May 2000 12:47:52 +0000
Subject: [PATCH]  fix wrong handling of var para for size bug #961

---
 compiler/rautils.pas | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/compiler/rautils.pas b/compiler/rautils.pas
index c0ab8c373a..11d2db69b6 100644
--- a/compiler/rautils.pas
+++ b/compiler/rautils.pas
@@ -26,7 +26,7 @@ Interface
 Uses
   strings,
   cobjects,
-  globtype,systems,verbose,globals,files,
+  globtype,types,systems,verbose,globals,files,
   symconst,symtable,aasm,cpubase,cpuasm
 {$ifdef NEWCG}
   ,cgbase
@@ -812,6 +812,10 @@ Begin
                   opr.ref.offsetfixup:=0;
                   opr.ref.options:=ref_none;
                 end;
+              if (pvarsym(sym)^.varspez=vs_var) or
+                 ((pvarsym(sym)^.varspez=vs_const) and
+                 push_addr_param(pvarsym(sym)^.vartype.def)) then
+                SetSize(target_os.size_of_pointer,false);
             end;
           localsymtable :
             begin
@@ -1512,7 +1516,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.43  2000-05-18 17:05:16  peter
+  Revision 1.44  2000-05-22 12:47:52  pierre
+   fix wrong handling of var para for size bug 961
+
+  Revision 1.43  2000/05/18 17:05:16  peter
     * fixed size of const parameters in asm readers
 
   Revision 1.42  2000/05/11 09:56:22  pierre
@@ -1596,4 +1603,4 @@ end.
   Revision 1.20  1999/07/29 20:54:06  peter
     * write .size also
 
-}
+}
\ No newline at end of file