Explorar o código

Java: adapt FPC_ANSISTR_UNIQUE signature

Conform to change made in 800bb3adc23
Jonas Maebe %!s(int64=3) %!d(string=hai) anos
pai
achega
1aed740440
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      rtl/java/jastrings.inc

+ 2 - 1
rtl/java/jastrings.inc

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