* i386-win32: Pass const variants by reference to safecall procedures, confirmed this behavior with Delphi (in general, safecall on win32 must behave as close as possible to stdcall).

git-svn-id: trunk@17323 -
2025-08-16 04:09:15 +02:00 · 2011-04-15 12:12:36 +00:00 · 2011-04-15 12:12:36 +00:00 · 06311e5aad
commit 06311e5aad
parent 6408dbfbb3
1 changed files with 1 additions and 1 deletions
--- a/compiler/i386/cpupara.pas
+++ b/compiler/i386/cpupara.pas
@ -169,7 +169,7 @@ unit cpupara;
                windows/delphi (FK)
              }
              if ((target_info.system=system_i386_win32) and
-                 (calloption=pocall_stdcall) and
+                 (calloption in [pocall_stdcall,pocall_safecall]) and
                 (varspez=vs_const)) or
                 (calloption=pocall_register) then
                result:=true