|
@@ -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
|
pierre