paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* NetBSD supported added based on Sparc and define name changed to something more sensible

Browse Source
This commit is contained in:
marco 2003-12-10 14:59:49 +00:00
parent 23f1b2c49e
commit 2a761868ce
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/unix/initc.pp
View File

@ -25,8 +25,10 @@ function fpgetCerrno:libcint;
procedure fpsetCerrno(err:libcint); procedure fpsetCerrno(err:libcint);
implementation implementation
// hasn't been divided up in .inc's, because I first want to see hoe
// this idea works out.
{$ifdef useold} {$ifdef UseOldErrnoDirectLink}
Var Var
interrno : libcint;external name 'h_errno'; interrno : libcint;external name 'h_errno';
@ -47,9 +49,13 @@ const clib = 'c';
{$ifdef Linux} {$ifdef Linux}
function geterrnolocation: Plibcint; cdecl;external clib name '__errno_location'; function geterrnolocation: Plibcint; cdecl;external clib name '__errno_location';
{$else} {$else}
{$ifdef FreeBSD} {$ifdef FreeBSD} // tested on x86
function geterrnolocation: Plibcint; cdecl;external clib name '__error'; function geterrnolocation: Plibcint; cdecl;external clib name '__error';
{$else} {$else}
{$ifdef NetBSD} // from a sparc dump.
function geterrnolocation: Plibcint; cdecl;external clib name '__errno';
{$else}
{$endif}
{$endif} {$endif}
{$endif} {$endif}
@ -69,7 +75,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.4 2003-12-10 11:24:25 marco Revision 1.5 2003-12-10 14:59:49 marco
* NetBSD supported added based on Sparc and define name changed to something more sensible
Revision 1.4 2003/12/10 11:24:25 marco
* get/setcerrno added * get/setcerrno added
Revision 1.3 2002/09/07 16:01:27 peter Revision 1.3 2002/09/07 16:01:27 peter