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

* raise takes now a void pointer as at and frame address

Browse Source 
instead of a longint, fixed
This commit is contained in:
florian 2002-07-16 13:57:39 +00:00
parent ac8643e1d2
commit 106ba3fd82
3 changed files with 37 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
fcl/inc/bits.inc
View File

@ -23,13 +23,21 @@ ResourceString
Procedure BitsError (Msg : string); Procedure BitsError (Msg : string);
begin begin
{$ifdef VER1_0}
Raise EBitsError.Create(Msg) at get_caller_addr(get_frame); Raise EBitsError.Create(Msg) at get_caller_addr(get_frame);
{$else VER1_0}
Raise EBitsError.Create(Msg) at pointer(get_caller_addr(get_frame));
{$endif VER1_0}
end; end;
Procedure BitsErrorFmt (Msg : string; Args : array of const); Procedure BitsErrorFmt (Msg : string; Args : array of const);
begin begin
{$ifdef VER1_0}
Raise EBitsError.CreateFmt(Msg,args) at get_caller_addr(get_frame); Raise EBitsError.CreateFmt(Msg,args) at get_caller_addr(get_frame);
{$else VER1_0}
Raise EBitsError.CreateFmt(Msg,args) at pointer(get_caller_addr(get_frame));
{$endif VER1_0}
end; end;
procedure TBits.CheckBitIndex (Bit : longint;CurrentSize : Boolean); procedure TBits.CheckBitIndex (Bit : longint;CurrentSize : Boolean);
@ -372,7 +380,11 @@ end;
{ {
$Log$ $Log$
Revision 1.6 2001-02-02 23:51:27 peter Revision 1.7 2002-07-16 14:00:55 florian
* raise takes now a void pointer as at and frame address
instead of a longint, fixed
Revision 1.6 2001/02/02 23:51:27 peter
* bit field to cardinal instead of longint * bit field to cardinal instead of longint
Revision 1.5 2000/11/17 13:39:49 sg Revision 1.5 2000/11/17 13:39:49 sg

10
fcl/inc/lists.inc
View File

@ -159,7 +159,11 @@ end;
class procedure TList.Error(const Msg: string; Data: Integer); class procedure TList.Error(const Msg: string; Data: Integer);
begin begin
{$ifdef VER1_0}
Raise EListError.CreateFmt(Msg,[Data]) at get_caller_addr(get_frame); Raise EListError.CreateFmt(Msg,[Data]) at get_caller_addr(get_frame);
{$else VER1_0}
Raise EListError.CreateFmt(Msg,[Data]) at pointer(get_caller_addr(get_frame));
{$endif VER1_0}
end; end;
procedure TList.Exchange(Index1, Index2: Integer); procedure TList.Exchange(Index1, Index2: Integer);
@ -427,7 +431,11 @@ end;
{ {
$Log$ $Log$
Revision 1.6 2001-12-03 21:39:58 peter Revision 1.7 2002-07-16 14:00:55 florian
* raise takes now a void pointer as at and frame address
instead of a longint, fixed
Revision 1.6 2001/12/03 21:39:58 peter
* seek(int64) overload only for 1.1 compiler * seek(int64) overload only for 1.1 compiler
Revision 1.5 2001/07/17 22:07:29 sg Revision 1.5 2001/07/17 22:07:29 sg

19
rtl/objpas/sysutils.inc
View File

@ -242,7 +242,11 @@ begin
else else
E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]); E:=Exception.CreateFmt (SUnKnownRunTimeError,[Errno]);
end; end;
{$ifdef VER1_0}
Raise E at longint(Address){$ifdef ENHANCEDRAISE},longint(Frame){$endif}; Raise E at longint(Address){$ifdef ENHANCEDRAISE},longint(Frame){$endif};
{$else VER1_0}
Raise E at Address{$ifdef ENHANCEDRAISE},Frame){$endif};
{$endif VER1_0}
end; end;
@ -352,7 +356,11 @@ end;
procedure Abort; procedure Abort;
begin begin
Raise EAbort.Create(SAbortError) at Get_Caller_addr(Get_Frame) {$ifdef VER1_0}
Raise EAbort.Create(SAbortError) at Get_Caller_addr(Get_Frame);
{$else VER1_0}
Raise EAbort.Create(SAbortError) at Pointer(Get_Caller_addr(Get_Frame));
{$endif VER1_0}
end; end;
procedure OutOfMemoryError; procedure OutOfMemoryError;
@ -363,7 +371,11 @@ end;
{ {
$Log$ $Log$
Revision 1.9 2002-01-25 17:42:03 peter Revision 1.10 2002-07-16 13:57:39 florian
* raise takes now a void pointer as at and frame address
instead of a longint, fixed
Revision 1.9 2002/01/25 17:42:03 peter
* interface helpers * interface helpers
Revision 1.8 2002/01/25 16:23:03 peter Revision 1.8 2002/01/25 16:23:03 peter
@ -389,5 +401,4 @@ end;
Revision 1.2 2000/08/20 15:46:46 peter Revision 1.2 2000/08/20 15:46:46 peter
* sysutils.pp moved to target and merged with disk.inc, filutil.inc * sysutils.pp moved to target and merged with disk.inc, filutil.inc
}
}