paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-04 14:40:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Henrique to improve stub generation for Delphi (bug ID 37568)

Browse Source
This commit is contained in:
michael 2020-08-14 10:26:02 +00:00
parent 2248f6abe2
commit 8e58dc66b3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/rtl/sysutils.pas
View File

@ -1251,6 +1251,7 @@ begin
Raise EAbort.Create(SAbortError); Raise EAbort.Create(SAbortError);
end; end;
{$IFNDEF MAKESTUB}
Type Type
TCharSet = Set of Char; TCharSet = Set of Char;
@ -1259,6 +1260,7 @@ Function CharInSet(Ch: Char;Const CSet : TCharSet) : Boolean; overload;
begin begin
Result:=Ch in CSet; Result:=Ch in CSet;
end; end;
{$ENDIF}
function CharInSet(Ch: Char; const CSet: array of char): Boolean; overload; function CharInSet(Ch: Char; const CSet: array of char): Boolean; overload;