paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* the Exception constructors' AHelpContext parameter changed from Integer to

Browse Source 
Longint

git-svn-id: trunk@27043 -
This commit is contained in:
nickysn 2014-03-09 13:09:25 +00:00
parent c9f7c7d88c
commit 73494f004d
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/objpas/sysutils/sysutilh.inc
View File

@ -113,12 +113,12 @@ type
constructor CreateFmt(const msg : string; const args : array of const);
constructor CreateRes(ResString: PString);
constructor CreateResFmt(ResString: PString; const Args: array of const);
constructor CreateHelp(const Msg: string; AHelpContext: Integer);
constructor CreateHelp(const Msg: string; AHelpContext: Longint);
constructor CreateFmtHelp(const Msg: string; const Args: array of const;
AHelpContext: Integer);
constructor CreateResHelp(ResString: PString; AHelpContext: Integer);
AHelpContext: Longint);
constructor CreateResHelp(ResString: PString; AHelpContext: Longint);
constructor CreateResFmtHelp(ResString: PString; const Args: array of const;
AHelpContext: Integer);
AHelpContext: Longint);
Function ToString : String; override;
{ !!!! }
property HelpContext : longint read fhelpcontext write fhelpcontext;

8
rtl/objpas/sysutils/sysutils.inc
View File

@ -194,7 +194,7 @@ end;
end;
constructor Exception.CreateHelp(const Msg: string; AHelpContext: Integer);
constructor Exception.CreateHelp(const Msg: string; AHelpContext: Longint);
begin
inherited create;
@ -204,7 +204,7 @@ end;
constructor Exception.CreateFmtHelp(const Msg: string; const Args: array of const;
AHelpContext: Integer);
AHelpContext: Longint);
begin
inherited create;
@ -213,7 +213,7 @@ end;
end;
constructor Exception.CreateResHelp(ResString: PString; AHelpContext: Integer);
constructor Exception.CreateResHelp(ResString: PString; AHelpContext: Longint);
begin
inherited create;
@ -223,7 +223,7 @@ end;
constructor Exception.CreateResFmtHelp(ResString: PString; const Args: array of const;
AHelpContext: Integer);
AHelpContext: Longint);
begin
inherited create;