瀏覽代碼

* compilation on Windows fixed

git-svn-id: trunk@48958 -
nickysn 4 年之前
父節點
當前提交
a9f4c8a16b
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      rtl/inc/wstringh.inc

+ 1 - 1
rtl/inc/wstringh.inc

@@ -15,7 +15,7 @@
  **********************************************************************}
 
 
-Procedure UniqueString (Var S : WideString);external name 'FPC_WIDESTR_UNIQUE';{$ifndef VER3_2}}discardresult;{$endif VER3_2}
+Procedure UniqueString (Var S : WideString);external name 'FPC_WIDESTR_UNIQUE';{$ifndef VER3_2}discardresult;{$endif VER3_2}
 Function Pos (Const Substr : WideString; Const Source : WideString; Offset : SizeInt = 1) : SizeInt;
 Function Pos (c : Char; Const s : WideString; Offset : SizeInt = 1) : SizeInt;
 Function Pos (c : WideChar; Const s : WideString; Offset : SizeInt = 1) : SizeInt;