Browse Source

fcl-passrc: fixed compile with pas2js

git-svn-id: trunk@46808 -
Mattias Gaertner 4 years ago
parent
commit
13c10cc622
1 changed files with 2 additions and 2 deletions
  1. 2 2
      packages/fcl-passrc/src/pasresolver.pp

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

@@ -20259,11 +20259,11 @@ begin
     begin
     bt:=ParamResolved.BaseType;
     case bt of
-    btChar: if BaseTypeChar=btAnsiChar then aName:='tkChar' else aName:='tkWChar';
+    btChar: {$ifdef FPC_HAS_CPSTRING}if BaseTypeChar=btAnsiChar then aName:='tkChar' else {$ENDIF}aName:='tkWChar';
     {$ifdef FPC_HAS_CPSTRING}
     btAnsiChar: aName:='tkChar';
     {$endif}
-    btWideChar: aName:='tkWideChar';
+    btWideChar: aName:='tkWChar';
     btString: if BaseTypeString=btAnsiString then aName:='tkAString' else aName:='tkUString';
     {$ifdef FPC_HAS_CPSTRING}
     btAnsiString,