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

* pass shortstrings (and longstrings) by reference to C routines (this is

Browse Source 
what Apple's universal interfaces expect)

git-svn-id: trunk@3343 -
This commit is contained in:
Jonas Maebe 2006-04-27 13:02:36 +00:00
parent 75661893fc
commit 34f1c427eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/i386/cpupara.pas
View File

@ -206,7 +206,7 @@ unit cpupara;
objectdef : objectdef :
result:=is_object(def); result:=is_object(def);
stringdef : stringdef :
result:=not(calloption in [pocall_cdecl,pocall_cppdecl]) and (tstringdef(def).string_typ in [st_shortstring,st_longstring]); result:= (tstringdef(def).string_typ in [st_shortstring,st_longstring]);
procvardef : procvardef :
result:=not(calloption in [pocall_cdecl,pocall_cppdecl]) and (po_methodpointer in tprocvardef(def).procoptions); result:=not(calloption in [pocall_cdecl,pocall_cppdecl]) and (po_methodpointer in tprocvardef(def).procoptions);
setdef : setdef :