Преглед на файлове

palmos: some ifdefs for better feature support

git-svn-id: trunk@37247 -
Károly Balogh преди 8 години
родител
ревизия
e896c16b4f
променени са 1 файла, в които са добавени 2 реда и са изтрити 0 реда
  1. 2 0
      rtl/palmos/system.pp

+ 2 - 0
rtl/palmos/system.pp

@@ -154,7 +154,9 @@ begin
   ExitProc:=Nil;
 
   SysInitExceptions;
+{$ifdef FPC_HAS_FEATURE_UNICODESTRINGS}
   InitUnicodeStringManager;
+{$endif FPC_HAS_FEATURE_UNICODESTRINGS}
 { Setup stdin, stdout and stderr }
   SysInitStdIO;
 { Reset IO Error }