Browse Source

palmos: some ifdefs for better feature support

git-svn-id: trunk@37247 -
Károly Balogh 8 năm trước cách đây
mục cha
commit
e896c16b4f
1 tập tin đã thay đổi với 2 bổ sung0 xóa
  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 }