浏览代码

fcl-passrc: adaptions for pas2js

git-svn-id: trunk@39968 -
Mattias Gaertner 7 年之前
父节点
当前提交
27ec656ab7
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      packages/fcl-passrc/src/pasresolveeval.pas

+ 4 - 0
packages/fcl-passrc/src/pasresolveeval.pas

@@ -61,6 +61,10 @@ unit PasResolveEval;
 
 
 {$mode objfpc}{$H+}
 {$mode objfpc}{$H+}
 
 
+{$ifdef fpc}
+  {$define UsePChar}
+{$endif}
+
 {$IFOPT Q+}{$DEFINE OverflowCheckOn}{$ENDIF}
 {$IFOPT Q+}{$DEFINE OverflowCheckOn}{$ENDIF}
 {$IFOPT R+}{$DEFINE RangeCheckOn}{$ENDIF}
 {$IFOPT R+}{$DEFINE RangeCheckOn}{$ENDIF}