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

* Fixed ExceptionErrorMessage (string const didn't match Format() call)

Browse Source
This commit is contained in:
sg 2004-09-14 01:13:43 +00:00
parent 5252a60769
commit c1d0445cbc
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -36,7 +36,7 @@ Const
SDispatchError = 'No variant method call dispatch';
SDivByZero = 'Division by zero';
SEndOfFile = 'Read past end of file';
SExceptionErrorMessage = 'exception at %p';
SExceptionErrorMessage = 'exception at %p: %s';
SExternalException = 'External exception %x';
SFileNotAssigned = 'File not assigned';
SFileNotFound = 'File not found';
@ -77,7 +77,10 @@ Const
{
$Log$
Revision 1.2 2003-11-26 20:12:08 michael
Revision 1.3 2004-09-14 01:13:43 sg
* Fixed ExceptionErrorMessage (string const didn't match Format() call)
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

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

@ -364,7 +364,7 @@ Var
Len : Integer;
begin
S:=Format(SExceptionErrorMessage,[ExceptObject.ClassName,ExceptAddr]);
S:=Format(SExceptionErrorMessage,[ExceptAddr,ExceptObject.ClassName]);
If ExceptObject is Exception then
S:=Format('%s:'#10'%s',[S,Exception(ExceptObject).Message]);
Len:=Length(S);