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

* at and frame addresses in raise statements changed to pointer; fixed

Browse Source
This commit is contained in:
florian 2002-07-17 11:52:01 +00:00
parent 2f5a4e8a82
commit 392311d002
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/stringl.inc
View File

@ -244,7 +244,11 @@ end;
Procedure TStrings.Error(const Msg: string; Data: Integer);
begin
{$ifdef VER1_0}
Raise EStringListError.CreateFmt(Msg,[Data]) at get_caller_addr(get_frame);
{$else VER1_0}
Raise EStringListError.CreateFmt(Msg,[Data]) at pointer(get_caller_addr(get_frame));
{$endif VER1_0}
end;
@ -1031,7 +1035,10 @@ end;
{
$Log$
Revision 1.10 2001-05-20 12:10:03 peter
Revision 1.11 2002-07-17 11:52:01 florian
* at and frame addresses in raise statements changed to pointer; fixed
Revision 1.10 2001/05/20 12:10:03 peter
* fixed setcommatext
Revision 1.9 2001/04/13 18:03:28 peter