浏览代码

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;