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

* changes needed for VP/2 to compile it

Browse Source
This commit is contained in:
Tomas Hajny 2000-07-09 07:41:47 +00:00
parent 21c4b53ab2
commit ee5879aab6
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
api/inc/apicomm.pas
View File

@ -219,7 +219,11 @@ function GetErrorInfo: Pointer;
{$IFDEF PPC_BP}
function SetErrorHandler(AErrorHandler: TErrorHandler): Pointer;
{$ELSE}
{$IFDEF PPC_VIRTUAL}
function SetErrorHandler(AErrorHandler: TErrorHandler): Pointer;
{$ELSE}
function SetErrorHandler(AErrorHandler: TErrorHandler): TErrorHandler;
{$ENDIF}
{$ENDIF}
{ Sets ErrorHandler to AErrorHandler, and returns the old one }
function DefaultErrorHandler(AErrorCode: Longint; AErrorInfo: Pointer): TErrorHandlerReturnValue;
@ -250,11 +254,19 @@ begin
ErrorHandler := AErrorHandler;
end;
{$ELSE}
{$IFDEF PPC_VIRTUAL}
function SetErrorHandler(AErrorHandler: TErrorHandler): Pointer;
begin
SetErrorHandler := @ErrorHandler;
ErrorHandler := AErrorHandler;
end;
{$ELSE}
function SetErrorHandler(AErrorHandler: TErrorHandler): TErrorHandler;
begin
SetErrorHandler := ErrorHandler;
ErrorHandler := AErrorHandler;
end;
{$ENDIF}
{$ENDIF}
function DefaultErrorHandler(AErrorCode: Longint; AErrorInfo: Pointer): TErrorHandlerReturnValue;
@ -267,7 +279,10 @@ end;
end.
{
$Log$
Revision 1.1 2000-02-29 11:43:16 pierre
Revision 1.2 2000-07-09 07:41:47 hajny
* changes needed for VP/2 to compile it
Revision 1.1 2000/02/29 11:43:16 pierre
Common renamed APIComm to avoid problems with free vision
Revision 1.1 2000/01/06 01:20:31 peter