paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 19:05:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix wrong handling of var para for size bug #961

Browse Source
This commit is contained in:
pierre 2000-05-22 12:47:52 +00:00
parent d75d13eda1
commit 0822332888
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/rautils.pas
View File

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