paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-25 03:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make sure it compiles with dotted units

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-06 16:40:48 +01:00
parent 8450d4f5e7
commit 75987e9f0a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/vcl-compat/src/wasm.pcrebridge.pas
View File

@ -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));