paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ New runerror 231 (exception stack error) and 232 (nothread support)

Browse Source
This commit is contained in:
michael 2003-11-26 20:12:08 +00:00
parent 4b2084fb50
commit 0271650b3a
4 changed files with 22 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/except.inc
View File

@ -58,7 +58,7 @@ end;
function AcquireExceptionObject: Pointer;
begin
If ExceptObjectStack=nil then begin
runerror(0); // which error?
runerror(231); // which error?
end else begin
Inc(ExceptObjectStack^.refcount);
AcquireExceptionObject := ExceptObjectStack^.FObject;
@ -68,10 +68,10 @@ end;
procedure ReleaseExceptionObject;
begin
If ExceptObjectStack=nil then begin
runerror(0); // which error?
runerror(231); // which error?
end else begin
if ExceptObjectStack^.refcount = 0 then begin
runerror(0); // which error?
runerror(231); // which error?
end;
Dec(ExceptObjectStack^.refcount);
end;
@ -311,7 +311,10 @@ begin
end;
{
$Log$
Revision 1.12 2003-10-06 15:59:20 florian
Revision 1.13 2003-11-26 20:12:08 michael
+ New runerror 231 (exception stack error) and 232 (nothread support)
Revision 1.12 2003/10/06 15:59:20 florian
+ applied patch for ref. counted exceptions by Johannes Berg
Revision 1.11 2003/09/06 21:56:29 marco

6
rtl/objpas/sysutils/stre.inc
View File

@ -61,6 +61,7 @@ Const
SInvalidPointer = 'Invalid pointer operation';
SInvalidVarCast = 'Invalid variant type case';
SInvalidVarOp = 'Invalid variant operation';
SNoThreadSupport = 'Threads not supported. Recompile program with thread driver.';
SOutOfMemory = 'Out of memory';
SOverflow = 'Floating point overflow';
SPrivilege = 'Privileged instruction';
@ -76,7 +77,10 @@ Const
{
$Log$
Revision 1.1 2003-10-06 21:01:06 peter
Revision 1.2 2003-11-26 20:12:08 michael
+ New runerror 231 (exception stack error) and 232 (nothread support)
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl
Revision 1.8 2003/01/01 20:58:07 florian

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

@ -152,6 +152,7 @@ type
EPackageError = class(Exception);
ESafecallException = class(Exception);
ENoThreadSupport = Class(Exception);
{ Exception handling routines }
@ -218,7 +219,10 @@ Type
{
$Log$
Revision 1.3 2003-11-26 20:00:19 florian
Revision 1.4 2003-11-26 20:12:08 michael
+ New runerror 231 (exception stack error) and 232 (nothread support)
Revision 1.3 2003/11/26 20:00:19 florian
* error handling for Variants improved
Revision 1.2 2003/10/25 23:43:59 hajny

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

@ -237,6 +237,7 @@ begin
228 : E:=EExternalException.Create(SExternalException);
229 : E:=EIntfCastError.Create(SIntfCastError);
230 : E:=ESafecallException.Create(SSafecallException);
232 : E:=ENoThreadSupport.Create(SNoThreadSupport);
else
E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]);
end;
@ -382,7 +383,10 @@ end;
{
$Log$
Revision 1.2 2003-11-26 20:00:19 florian
Revision 1.3 2003-11-26 20:12:08 michael
+ New runerror 231 (exception stack error) and 232 (nothread support)
Revision 1.2 2003/11/26 20:00:19 florian
* error handling for Variants improved
Revision 1.1 2003/10/06 21:01:06 peter