|
@@ -1,12 +1,17 @@
|
|
-{ %target=linux,freebsd,darwin,solaris,aix,android }
|
|
|
|
|
|
+{ %target=linux,freebsd,darwin,solaris,aix,android,haiku }
|
|
|
|
|
|
{$mode objfpc}
|
|
{$mode objfpc}
|
|
program testr;
|
|
program testr;
|
|
|
|
|
|
uses sysutils;
|
|
uses sysutils;
|
|
function sprintf(buf,fmt : pchar) : longint; varargs;cdecl; external 'c';
|
|
function sprintf(buf,fmt : pchar) : longint; varargs;cdecl; external 'c';
|
|
|
|
+{$ifdef haiku}
|
|
|
|
+function cosh(f : double) : double; cdecl; external 'root';
|
|
|
|
+function ccos(f : double) : double; cdecl; external 'root' name 'cos';
|
|
|
|
+{$else}
|
|
function cosh(f : double) : double; cdecl; external 'm';
|
|
function cosh(f : double) : double; cdecl; external 'm';
|
|
function ccos(f : double) : double; cdecl; external 'm' name 'cos';
|
|
function ccos(f : double) : double; cdecl; external 'm' name 'cos';
|
|
|
|
+{$endif}
|
|
|
|
|
|
Type
|
|
Type
|
|
TTest = Class(TObject)
|
|
TTest = Class(TObject)
|