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

* fix working with short record function results under OS/2

Browse Source 
git-svn-id: trunk@28885 -
This commit is contained in:
Tomas Hajny 2014-10-20 15:40:17 +00:00
parent ccbe03fc37
commit 09e0734b7c
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/i386/cpupara.pas
View File

@ -114,6 +114,23 @@ unit cpupara;
end;
end;
end;
system_i386_os2,
system_i386_emx:
begin
case def.typ of
recorddef :
begin
{ EMX port of GCC returns small records in the FUNCTION_RETURN_REG up to 4 bytes in registers. }
if ((pd.proccalloption in [pocall_cdecl,pocall_cppdecl]) and
(def.size>0) and
(def.size<=4)) then
begin
result:=false;
exit;
end;
end;
end;
end;
system_i386_freebsd,
system_i386_openbsd,
system_i386_darwin,