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

Added exception EObjectCheck for object reference check (runtime error 210).

Browse Source 
rtl/objpas/sysconst.pp:
  + add resourcestring SObjectCheckError
rtl/objpas/sysutilh.inc:
  + add new Exception descendant EObjectCheck
rtl/objpas/sysutils.inc:
  + use EObjectCheck with message SObjectCheckError for runtime error 210

git-svn-id: trunk@23656 -
This commit is contained in:
svenbarth 2013-02-24 22:22:38 +00:00
parent 5f0996d78d
commit db6385ef33
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/sysconst.pp
View File

@ -82,6 +82,7 @@ resourcestring
SNoThreadSupport = 'Threads not supported. Recompile program with thread driver.'; SNoThreadSupport = 'Threads not supported. Recompile program with thread driver.';
SMissingWStringManager = 'Widestring manager not available. Recompile program with appropriate manager.'; SMissingWStringManager = 'Widestring manager not available. Recompile program with appropriate manager.';
SSigQuit = 'SIGQUIT signal received.'; SSigQuit = 'SIGQUIT signal received.';
SObjectCheckError = 'Object reference is Nil';
SOSError = 'System error, (OS Code %d):'+LineEnding+'%s'; SOSError = 'System error, (OS Code %d):'+LineEnding+'%s';
SOutOfMemory = 'Out of memory'; SOutOfMemory = 'Out of memory';
SOverflow = 'Floating point overflow'; SOverflow = 'Floating point overflow';

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

@ -189,6 +189,7 @@ type
EAbort = Class(Exception); EAbort = Class(Exception);
EAbstractError = Class(Exception); EAbstractError = Class(Exception);
EAssertionFailed = Class(Exception); EAssertionFailed = Class(Exception);
EObjectCheck = Class(Exception);
EPropReadOnly = class(Exception); EPropReadOnly = class(Exception);
EPropWriteOnly = class(Exception); EPropWriteOnly = class(Exception);

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

@ -351,7 +351,7 @@ type
end; end;
const const
exceptmap: array[0..27] of TExceptMapEntry = ( exceptmap: array[0..28] of TExceptMapEntry = (
(code: 200; cls: EDivByZero; msg: @SDivByZero), (code: 200; cls: EDivByZero; msg: @SDivByZero),
(code: 201; cls: ERangeError; msg: @SRangeError), (code: 201; cls: ERangeError; msg: @SRangeError),
(code: 202; cls: EStackOverflow; msg: @SStackOverflow), (code: 202; cls: EStackOverflow; msg: @SStackOverflow),
@ -360,6 +360,7 @@ const
(code: 207; cls: EInvalidOp; msg: @SInvalidOp), (code: 207; cls: EInvalidOp; msg: @SInvalidOp),
{ Delphi distinguishes reDivByZero from reZeroDivide, but maps both to code 200. } { Delphi distinguishes reDivByZero from reZeroDivide, but maps both to code 200. }
(code: 208; cls: EZeroDivide; msg: @SZeroDivide), (code: 208; cls: EZeroDivide; msg: @SZeroDivide),
(code: 210; cls: EObjectCheck; msg: @SObjectCheckError),
(code: 211; cls: EAbstractError; msg: @SAbstractError), (code: 211; cls: EAbstractError; msg: @SAbstractError),
(code: 212; cls: EExternalException; msg: @SExternalException), (code: 212; cls: EExternalException; msg: @SExternalException),
(code: 214; cls: EBusError; msg: @SBusError), (code: 214; cls: EBusError; msg: @SBusError),