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

* cosmetics

Browse Source 
git-svn-id: trunk@46211 -
This commit is contained in:
florian 2020-08-03 19:58:47 +00:00
parent 7281ea7a2c
commit 87702d7cda
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -101,7 +101,7 @@ type
PWordarray = ^TWordArray; PWordarray = ^TWordArray;
TWordArray = array[0..{$ifdef CPU16}16382{$else}16383{$endif}] of Word; TWordArray = array[0..{$ifdef CPU16}16382{$else}16383{$endif}] of Word;
TBytes = array of Byte; TBytes = array of Byte;
{ exceptions } { exceptions }
Exception = class(TObject) Exception = class(TObject)
@ -120,10 +120,9 @@ type
constructor CreateResFmtHelp(ResString: PString; const Args: array of const; constructor CreateResFmtHelp(ResString: PString; const Args: array of const;
AHelpContext: Longint); AHelpContext: Longint);
Function ToString : String; override; Function ToString : String; override;
{ !!!! }
property HelpContext : longint read fhelpcontext write fhelpcontext; property HelpContext : longint read fhelpcontext write fhelpcontext;
property Message : string read fmessage write fmessage; property Message : string read fmessage write fmessage;
end; end;
ExceptClass = class of Exception; ExceptClass = class of Exception;
@ -141,7 +140,7 @@ type
end; end;
{ integer math exceptions } { integer math exceptions }
EInterror = Class(EExternal); EIntError = Class(EExternal);
EDivByZero = Class(EIntError); EDivByZero = Class(EIntError);
ERangeError = Class(EIntError); ERangeError = Class(EIntError);
EIntOverflow = Class(EIntError); EIntOverflow = Class(EIntError);