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

* Fix bug ID 37544 (add overload modifier for CharInSet)

Browse Source
This commit is contained in:
michael 2020-08-11 13:38:02 +00:00
parent 02a759f94d
commit bb2faaa7fe
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl/sysutils.pas
View File

@ -186,7 +186,7 @@ Const
HexDisplayPrefix: string = '$'; HexDisplayPrefix: string = '$';
LeadBytes = [] unimplemented; LeadBytes = [] unimplemented;
Function CharInSet(Ch: Char;Const CSet : array of char) : Boolean; Function CharInSet(Ch: Char;Const CSet : array of char) : Boolean; overload;
function LeftStr(const S: string; Count: Integer): String; assembler; function LeftStr(const S: string; Count: Integer): String; assembler;
function RightStr(const S: string; Count: Integer): String; assembler; function RightStr(const S: string; Count: Integer): String; assembler;
@ -1254,13 +1254,13 @@ end;
Type Type
TCharSet = Set of Char; TCharSet = Set of Char;
Function CharInSet(Ch: Char;Const CSet : TCharSet) : Boolean; Function CharInSet(Ch: Char;Const CSet : TCharSet) : Boolean; overload;
begin begin
Result:=Ch in CSet; Result:=Ch in CSet;
end; end;
function CharInSet(Ch: Char; const CSet: array of char): Boolean; function CharInSet(Ch: Char; const CSet: array of char): Boolean; overload;
Var Var
I : integer; I : integer;