Browse Source

* Make sure it compiles with FPC 3.2.2 for pas2js...

Michaël Van Canneyt 2 năm trước cách đây
mục cha
commit
24bc93430e

+ 5 - 0
packages/fcl-passrc/src/pscanner.pp

@@ -113,6 +113,11 @@ resourcestring
   SWarnIgnoringLinkLib = 'Ignoring LINKLIB directive %s -> %s (Options: %s)';
   SWarnIgnoringLinkLib = 'Ignoring LINKLIB directive %s -> %s (Options: %s)';
 
 
 type
 type
+  {$IF NOT DECLARED(RTLSTRING)}
+    RTLString = ansistring;
+    TRTLStringDynArray = array of RTLString;
+  {$ENDIF}
+
   // String used for scanning
   // String used for scanning
   TPasScannerString = RawByteString;
   TPasScannerString = RawByteString;
   // String used for interfacing with PasTree
   // String used for interfacing with PasTree