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

* fixed the passing of pushaddr paramaters for pocall_register in i8086 far data

Browse Source 
memory models

git-svn-id: trunk@27708 -
This commit is contained in:
nickysn 2014-05-01 16:43:35 +00:00
parent f28dbdafcc
commit 906412411f
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/i8086/cpupara.pas
View File

@ -609,8 +609,8 @@ unit cpupara;
pushaddr:=push_addr_param(hp.varspez,hp.vardef,p.proccalloption); pushaddr:=push_addr_param(hp.varspez,hp.vardef,p.proccalloption);
if pushaddr then if pushaddr then
begin begin
paralen:=sizeof(aint); paralen:=voidpointertype.size;
paracgsize:=OS_ADDR; paracgsize:=int_cgsize(voidpointertype.size);
paradef:=getpointerdef(paradef); paradef:=getpointerdef(paradef);
end end
else else