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

Java: adapt FPC_ANSISTR_UNIQUE signature

Browse Source 
Conform to change made in 800bb3adc2
This commit is contained in:
Jonas Maebe 2022-01-07 22:06:28 +01:00
parent 5a9021c14c
commit 1aed740440
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/java/jastrings.inc
View File

@ -669,9 +669,10 @@ end;
{ can't implement reference counting since no control over what javacc-compiled { can't implement reference counting since no control over what javacc-compiled
code does with ansistrings -> always create a copy } code does with ansistrings -> always create a copy }
{$define FPC_SYSTEM_HAS_ANSISTR_UNIQUE} {$define FPC_SYSTEM_HAS_ANSISTR_UNIQUE}
procedure FPC_ANSISTR_UNIQUE(var s: AnsiString); inline; function FPC_ANSISTR_UNIQUE(var s: AnsiString): pointer; inline;
begin begin
s:=ansistring(AnsistringClass.Create(s,AnsiStringClass(s).fCodePage)); s:=ansistring(AnsistringClass.Create(s,AnsiStringClass(s).fCodePage));
result:=pointer(s);
end; end;