From afa9ef279ed38ff8d67444469d88c2f3ff2bebaf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 1 Apr 2019 16:51:05 +0000
Subject: [PATCH] * Use cwstring on non-windows

git-svn-id: trunk@41811 -
---
 packages/fcl-registry/examples/testunicode.pp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/packages/fcl-registry/examples/testunicode.pp b/packages/fcl-registry/examples/testunicode.pp
index 55bdf18105..da88205c07 100644
--- a/packages/fcl-registry/examples/testunicode.pp
+++ b/packages/fcl-registry/examples/testunicode.pp
@@ -1,11 +1,16 @@
 program testunicode;
 
+{ Unicode test program using UTF8String }
+
 {$mode objfpc}{$H+}
 {$codepage utf8}
 {$IFNDEF UNIX}
 {$APPTYPE CONSOLE}
 {$ENDIF}
 uses
+{$ifdef unix}
+  cwstring,
+{$endif}
   sysutils, classes, registry;
 
 Var