fix wrong handling of var para for size bug #961

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
 
-}
+}