浏览代码

palmos: some ifdefs for better feature support

git-svn-id: trunk@37247 -
Károly Balogh 7 年之前
父节点
当前提交
e896c16b4f
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      rtl/palmos/system.pp

+ 2 - 0
rtl/palmos/system.pp

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