|
@@ -3,10 +3,20 @@
|
|
{$mode objfpc}
|
|
{$mode objfpc}
|
|
{$endif fpc}
|
|
{$endif fpc}
|
|
|
|
|
|
-uses
|
|
|
|
-{$ifdef unix}
|
|
|
|
- cthreads, {$ifdef darwin}iosxwstr{$else}cwstring{$endif},
|
|
|
|
|
|
+{$ifdef go32v2}
|
|
|
|
+ {$define USE_FPWIDESTRING_UNIT}
|
|
|
|
+ {$define USE_UNICODEDUCET_UNIT}
|
|
{$endif}
|
|
{$endif}
|
|
|
|
+uses
|
|
|
|
+ {$ifdef unix}
|
|
|
|
+ {$ifdef darwin}iosxwstr{$else}cwstring{$endif},
|
|
|
|
+ {$endif}
|
|
|
|
+ {$ifdef USE_FPWIDESTRING_UNIT}
|
|
|
|
+ fpwidestring,
|
|
|
|
+ {$endif}
|
|
|
|
+ {$ifdef USE_UNICODEDUCET_UNIT}
|
|
|
|
+ unicodeducet,
|
|
|
|
+ {$endif}
|
|
Classes, SysUtils;
|
|
Classes, SysUtils;
|
|
|
|
|
|
type
|
|
type
|