|
@@ -31,7 +31,7 @@ implementation
|
|
// this idea works out.
|
|
// this idea works out.
|
|
|
|
|
|
{$ifdef OpenBSD}
|
|
{$ifdef OpenBSD}
|
|
-{$define UseOldErrnoDirectLink}
|
|
|
|
|
|
+{define UseOldErrnoDirectLink OpenBSD also uses __errno function }
|
|
{$endif}
|
|
{$endif}
|
|
|
|
|
|
{$ifdef UseOldErrnoDirectLink}
|
|
{$ifdef UseOldErrnoDirectLink}
|
|
@@ -59,6 +59,10 @@ function geterrnolocation: pcint; cdecl;external clib name '__errno_location';
|
|
function geterrnolocation: pcint; cdecl;external clib name '__error';
|
|
function geterrnolocation: pcint; cdecl;external clib name '__error';
|
|
{$endif}
|
|
{$endif}
|
|
|
|
|
|
|
|
+{$ifdef OpenBSD} // tested on x86
|
|
|
|
+function geterrnolocation: pcint; cdecl;external clib name '__errno';
|
|
|
|
+{$endif}
|
|
|
|
+
|
|
{$ifdef NetBSD} // from a sparc dump.
|
|
{$ifdef NetBSD} // from a sparc dump.
|
|
function geterrnolocation: pcint; cdecl;external clib name '__errno';
|
|
function geterrnolocation: pcint; cdecl;external clib name '__errno';
|
|
{$endif}
|
|
{$endif}
|