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

* Extended Error methods so that exceptions are raised from the caller's

Browse Source 
address instead of the Error method
This commit is contained in:
sg 2000-11-17 13:39:49 +00:00
parent 33d42bd125
commit a4e93f299d
3 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fcl/inc/bits.inc
View File

@ -23,13 +23,13 @@ ResourceString
Procedure BitsError (Msg : string); Procedure BitsError (Msg : string);
begin begin
Raise EBitsError.Create(Msg); Raise EBitsError.Create(Msg) at get_caller_addr(get_frame);
end; end;
Procedure BitsErrorFmt (Msg : string; Args : array of const); Procedure BitsErrorFmt (Msg : string; Args : array of const);
begin begin
Raise EBitsError.CreateFmt(Msg,args); Raise EBitsError.CreateFmt(Msg,args) at get_caller_addr(get_frame);
end; end;
procedure TBits.CheckBitIndex (Bit : longint;CurrentSize : Boolean); procedure TBits.CheckBitIndex (Bit : longint;CurrentSize : Boolean);
@ -372,7 +372,11 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2000-10-15 10:04:39 peter Revision 1.5 2000-11-17 13:39:49 sg
* Extended Error methods so that exceptions are raised from the caller's
address instead of the Error method
Revision 1.4 2000/10/15 10:04:39 peter
+ Capitalization of TBits interface fixed; CheckBitIndex now checks for + Capitalization of TBits interface fixed; CheckBitIndex now checks for
size (merged) size (merged)

9
fcl/inc/lists.inc
View File

@ -132,8 +132,7 @@ end;
class procedure TList.Error(const Msg: string; Data: Integer); class procedure TList.Error(const Msg: string; Data: Integer);
begin begin
//!! Find a way to get call address Raise EListError.CreateFmt(Msg,[Data]) at get_caller_addr(get_frame);
Raise EListError.CreateFmt(Msg,[Data]);
end; end;
procedure TList.Exchange(Index1, Index2: Integer); procedure TList.Exchange(Index1, Index2: Integer);
@ -400,7 +399,11 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2000-09-14 18:39:31 michael Revision 1.4 2000-11-17 13:39:49 sg
* Extended Error methods so that exceptions are raised from the caller's
address instead of the Error method
Revision 1.3 2000/09/14 18:39:31 michael
+ Fixed setcapacity + Fixed setcapacity
Revision 1.2 2000/07/13 11:32:59 michael Revision 1.2 2000/07/13 11:32:59 michael

9
fcl/inc/stringl.inc
View File

@ -194,8 +194,7 @@ end;
Procedure TStrings.Error(const Msg: string; Data: Integer); Procedure TStrings.Error(const Msg: string; Data: Integer);
begin begin
//!! Need to get correct address !! Raise EStringListError.CreateFmt(Msg,[Data]) at get_caller_addr(get_frame);
Raise EStringListError.CreateFmt(Msg,[Data]);
end; end;
@ -957,7 +956,11 @@ end;
{ {
$Log$ $Log$
Revision 1.3 2000-11-13 15:46:55 marco Revision 1.4 2000-11-17 13:39:49 sg
* Extended Error methods so that exceptions are raised from the caller's
address instead of the Error method
Revision 1.3 2000/11/13 15:46:55 marco
* Unix renamefest for defines. * Unix renamefest for defines.
Revision 1.2 2000/07/13 11:33:01 michael Revision 1.2 2000/07/13 11:33:01 michael