freepascal.compiler/rtl/win32/initc.pp

{
  $Id$
}
unit initc;

interface

{$LINKLIB cygwin}
{$linklib kernel32}

type
 libcint   = longint;
 plibcint = ^libcint;

function fpgetCerrno:libcint;
procedure fpsetCerrno(err:libcint);

{$ifndef ver1_0}
property cerrno:libcint read fpgetCerrno write fpsetcerrno;
{$endif}


implementation

function geterrnolocation: Plibcint; cdecl;external name '___errno';

function fpgetCerrno:libcint;
begin
  fpgetCerrno:=geterrnolocation^;
end;

procedure fpsetCerrno(err:libcint);
begin
  geterrnolocation^:=err;
end;

end.
{
  $Log$
  Revision 1.14  2004-11-04 17:15:01  peter
   * wcygprt is now used for cygwin (libc) linking, initc contains only cerrno

  Revision 1.13  2004/11/04 09:32:31  peter
  ErrOutput added

  Revision 1.12  2004/09/14 20:08:58  hajny
    * use errno from cygwin (like in fixes branch)

  Revision 1.11  2004/09/12 17:41:40  hajny
    * hopefully fixed the problem with missing __error symbol

  Revision 1.10  2003/12/11 09:21:52  marco
   * patch from peter

  Revision 1.9  2003/11/03 09:42:28  marco
   * Peter's Cardinal<->Longint fixes patch

  Revision 1.8  2003/09/08 18:25:45  peter
    * popstack to cdecl

  Revision 1.7  2002/09/07 16:01:28  peter
    * old logs removed and tabs fixed

}