瀏覽代碼

Java: adapt FPC_ANSISTR_UNIQUE signature

Conform to change made in 800bb3adc23
Jonas Maebe 3 年之前
父節點
當前提交
1aed740440
共有 1 個文件被更改,包括 2 次插入1 次删除
  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;