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

* allow v09912 to compile system

Browse Source
This commit is contained in:
pierre 1999-12-21 11:10:22 +00:00
parent 4bfe8086c4
commit 8b91888fc2
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/system.inc
View File

@ -420,7 +420,7 @@ var
addr : longint; addr : longint;
begin begin
addr:=get_caller_addr(frame); addr:=get_caller_addr(frame);
If ErrorProc<>Nil then If pointer(ErrorProc)<>Nil then
ErrorProc(Errno,pointer(addr)); ErrorProc(Errno,pointer(addr));
errorcode:=Errno; errorcode:=Errno;
exitcode:=Errno; exitcode:=Errno;
@ -552,7 +552,7 @@ End;
procedure AbstractError;[public,alias : 'FPC_ABSTRACTERROR']; procedure AbstractError;[public,alias : 'FPC_ABSTRACTERROR'];
begin begin
If AbstractErrorProc<>nil then If pointer(AbstractErrorProc)<>nil then
AbstractErrorProc(); AbstractErrorProc();
HandleErrorFrame(211,get_frame); HandleErrorFrame(211,get_frame);
end; end;
@ -560,7 +560,7 @@ end;
Procedure int_assert(Const Msg,FName:Shortstring;LineNo,ErrorAddr:Longint); [{$ifdef HASSAVEREGISTERS}SaveRegisters,{$endif}Public,Alias : 'FPC_ASSERT']; Procedure int_assert(Const Msg,FName:Shortstring;LineNo,ErrorAddr:Longint); [{$ifdef HASSAVEREGISTERS}SaveRegisters,{$endif}Public,Alias : 'FPC_ASSERT'];
begin begin
if AssertErrorProc<>nil then if pointer(AssertErrorProc)<>nil then
AssertErrorProc(Msg,FName,LineNo,ErrorAddr) AssertErrorProc(Msg,FName,LineNo,ErrorAddr)
else else
HandleErrorFrame(227,get_frame); HandleErrorFrame(227,get_frame);
@ -593,7 +593,10 @@ end;
{ {
$Log$ $Log$
Revision 1.76 1999-12-18 14:54:34 florian Revision 1.77 1999-12-21 11:10:22 pierre
* allow v09912 to compile system
Revision 1.76 1999/12/18 14:54:34 florian
* very basic widestring support * very basic widestring support
Revision 1.75 1999/12/12 13:29:34 jonas Revision 1.75 1999/12/12 13:29:34 jonas