Forráskód Böngészése

* Make sure it compiles with dotted units

Michaël Van Canneyt 9 hónapja
szülő
commit
75987e9f0a
1 módosított fájl, 5 hozzáadás és 1 törlés
  1. 5 1
      packages/vcl-compat/src/wasm.pcrebridge.pas

+ 5 - 1
packages/vcl-compat/src/wasm.pcrebridge.pas

@@ -5,7 +5,11 @@ unit wasm.pcrebridge;
 interface
 interface
 
 
 uses
 uses
+  {$IFDEF FPC_DOTTEDUNITS}
+  System.CTypes, System.SysUtils, wasm.regexp.objects;
+  {$ELSE}
   ctypes, sysutils, wasm.regexp.objects;
   ctypes, sysutils, wasm.regexp.objects;
+  {$ENDIF}
 
 
 {$IF SIZEOF(CHAR)=2}
 {$IF SIZEOF(CHAR)=2}
 {$DEFINE STRING_IS_UNICODE}
 {$DEFINE STRING_IS_UNICODE}
@@ -331,7 +335,7 @@ var
 
 
 begin
 begin
   {$IFDEF STRING_IS_UNICODE}
   {$IFDEF STRING_IS_UNICODE}
-  Res:='';
+  RS:='';
   SetLength(RS,aSubjectLen);
   SetLength(RS,aSubjectLen);
   if aSubjectLen>0 then
   if aSubjectLen>0 then
     Move(aSubject^,RS[1],aSubjectLen* SizeOf(Char));
     Move(aSubject^,RS[1],aSubjectLen* SizeOf(Char));