paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:09:20 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/paramgr.pas
View File

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