Browse Source

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

michael 5 years ago
parent
commit
8e58dc66b3
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/rtl/sysutils.pas

+ 2 - 0
packages/rtl/sysutils.pas

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