diff options
Diffstat (limited to 'rtl/inc/sstrings.inc')
| -rw-r--r-- | rtl/inc/sstrings.inc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rtl/inc/sstrings.inc b/rtl/inc/sstrings.inc index 23dad25481..f16f2c910f 100644 --- a/rtl/inc/sstrings.inc +++ b/rtl/inc/sstrings.inc @@ -2080,7 +2080,7 @@ end; {$ifndef FPC_HAS_SETSTRING_SHORTSTR} {$define FPC_HAS_SETSTRING_SHORTSTR} -Procedure SetString (Out S : Shortstring; Buf : PChar; Len : SizeInt); +Procedure {$ifdef FPC_HAS_CPSTRING}fpc_setstring_shortstr{$else}SetString{$endif}(Out S : Shortstring; Buf : PChar; Len : SizeInt); {$ifdef FPC_HAS_CPSTRING} compilerproc; {$endif FPC_HAS_CPSTRING} begin If Len > High(S) then Len := High(S); |