Browse Source

* Make sure it compiles with dotted units

Michaël Van Canneyt 9 months ago
parent
commit
75987e9f0a
1 changed files with 5 additions and 1 deletions
  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
 
 uses
+  {$IFDEF FPC_DOTTEDUNITS}
+  System.CTypes, System.SysUtils, wasm.regexp.objects;
+  {$ELSE}
   ctypes, sysutils, wasm.regexp.objects;
+  {$ENDIF}
 
 {$IF SIZEOF(CHAR)=2}
 {$DEFINE STRING_IS_UNICODE}
@@ -331,7 +335,7 @@ var
 
 begin
   {$IFDEF STRING_IS_UNICODE}
-  Res:='';
+  RS:='';
   SetLength(RS,aSubjectLen);
   if aSubjectLen>0 then
     Move(aSubject^,RS[1],aSubjectLen* SizeOf(Char));