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

* fixed functions returning int64 on i8086

Browse Source 
git-svn-id: branches/i8086@23807 -
This commit is contained in:
nickysn 2013-03-12 15:09:24 +00:00
parent 763ed6835a
commit 4ea86a445e
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i8086/cpupara.pas
View File

@ -149,6 +149,15 @@ unit cpupara;
end;
end;
end;
{ 64-bit types are returned as a parameter pointer, since putting them
in registers would require 4 registers on the i8086 }
if def.size > 4 then
begin
result:=true;
exit;
end;
result:=inherited ret_in_param(def,pd);
end;
@ -373,6 +382,8 @@ unit cpupara;
begin
paraloc:=result.add_location;
paraloc^.loc:=LOC_REGISTER;
if retcgsize in [OS_64,OS_S64] then
internalerror(2013031201);
if retcgsize in [OS_32,OS_S32] then
begin
{ low 16bits }