paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 19:53:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid run time error if compiled with -CR option

Browse Source 
git-svn-id: trunk@39999 -
This commit is contained in:
pierre 2018-10-20 18:44:05 +00:00
parent 0cc3be49fa
commit 3715dbdf41
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/m68k/cpupara.pas
View File

@ -268,7 +268,7 @@ unit cpupara;
We also have to figure out a better switch for this, because this is
now compiler and platform specific... (KB) }
if (tprocdef(p).proccalloption in [pocall_syscall,pocall_cdecl,pocall_cppdecl]) and
if (tabstractprocdef(p).proccalloption in [pocall_syscall,pocall_cdecl,pocall_cppdecl]) and
(target_info.system in [system_m68k_palmos,system_m68k_linux]) and
assigned(result.def) and
(result.def.typ in [stringdef,pointerdef,classrefdef,objectdef,
@ -408,9 +408,9 @@ unit cpupara;
return a struct by address. we will probably need some kind of a
switch to support these various ABIs when generating cdecl calls (KB) }
if ((vo_is_funcret in hp.varoptions) and
(tprocdef(p).proccalloption in [pocall_cdecl,pocall_cppdecl]) and
(tabstractprocdef(p).proccalloption in [pocall_cdecl,pocall_cppdecl]) and
(target_info.system in [system_m68k_linux]) and
(tprocdef(p).returndef.typ = recorddef)) then
(tabstractprocdef(p).returndef.typ = recorddef)) then
begin
paraloc^.loc:=LOC_REGISTER;
paraloc^.register:=NR_M68K_STRUCT_RESULT_REG;