mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 05:09:05 +02:00
58 lines
1.0 KiB
ObjectPascal
58 lines
1.0 KiB
ObjectPascal
{
|
|
lobjc.pas
|
|
|
|
Copyright (C) 2007 Felipe Monteiro de Carvalho
|
|
|
|
This unit is a pascal binding for the Objective-C Run-time Library
|
|
headers included with XCode 2.4.1
|
|
The original copyright note of is kept on each include file
|
|
}
|
|
unit lobjc;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif}
|
|
|
|
{$Packrecords c}
|
|
|
|
{$linklib objc}
|
|
|
|
interface
|
|
|
|
uses unix;
|
|
|
|
{$include lobjc-api.inc}
|
|
{$include lobjc.inc}
|
|
{$include lobjc-class.inc}
|
|
|
|
{$include lobjc-auto.inc}
|
|
{$include lobjc-exception.inc}
|
|
{.$include lobjc-load.inc} // This module is obsolete
|
|
{$include lobjc-runtime.inc}
|
|
{$include lobjc-sync.inc}
|
|
|
|
{$include error.inc}
|
|
{.$include hashtable.inc}
|
|
{.$include hashtable2.inc}
|
|
{$include malloc.inc}
|
|
{.$include zone.inc}
|
|
|
|
{ Extra declarations }
|
|
|
|
implementation
|
|
|
|
{ Macros from error.h }
|
|
procedure NX_RAISE(code: cint; const data1, data2: Pointer);
|
|
begin
|
|
//the function is not avaialbe in OX 10.5
|
|
//todo: (use objcrtl?)
|
|
//_NXRaiseError(code, data1, data2);
|
|
end;
|
|
|
|
procedure NX_RERAISE();
|
|
begin
|
|
// _NXRaiseError(NXLocalHandler.code, NXLocalHandler.data1, NXLocalHandler.data2);
|
|
end;
|
|
|
|
end.
|