瀏覽代碼

fcl-passrc: fixed compile with pas2js

git-svn-id: trunk@46809 -
Mattias Gaertner 5 年之前
父節點
當前提交
0f466cbed7
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      packages/fcl-passrc/src/pasresolver.pp

+ 1 - 1
packages/fcl-passrc/src/pasresolver.pp

@@ -20264,7 +20264,7 @@ begin
     btAnsiChar: aName:='tkChar';
     {$endif}
     btWideChar: aName:='tkWChar';
-    btString: if BaseTypeString=btAnsiString then aName:='tkAString' else aName:='tkUString';
+    btString: {$ifdef FPC_HAS_CPSTRING}if BaseTypeString=btAnsiString then aName:='tkAString' else {$ENDIF}aName:='tkUString';
     {$ifdef FPC_HAS_CPSTRING}
     btAnsiString,
     btShortString,