paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 19:39:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use voidpointer.size instead of sizeof(pint) in tparamanager.push_size in

Browse Source 
order to properly support i8086 far data memory models

git-svn-id: trunk@26933 -
This commit is contained in:
nickysn 2014-03-02 22:51:37 +00:00
parent 229ebf33a8
commit 9321d9916d
1 changed files with 2 additions and 2 deletions

4
compiler/paramgr.pas
View File

@ -223,12 +223,12 @@ implementation
vs_constref,
vs_out,
vs_var :
push_size:=sizeof(pint);
push_size:=voidpointertype.size;
vs_value,
vs_const :
begin
if push_addr_param(varspez,def,calloption) then
push_size:=sizeof(pint)
push_size:=voidpointertype.size
else
begin
{ special array are normally pushed by addr, only for