mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 13:29:19 +02:00
* fix __errno loading from cygwin1.dll (from Peter)
This commit is contained in:
parent
295935ee30
commit
9381d34302
@ -5,9 +5,6 @@ unit initc;
|
|||||||
|
|
||||||
interface
|
interface
|
||||||
|
|
||||||
{$LINKLIB cygwin}
|
|
||||||
{$linklib kernel32}
|
|
||||||
|
|
||||||
type
|
type
|
||||||
libcint = longint;
|
libcint = longint;
|
||||||
plibcint = ^libcint;
|
plibcint = ^libcint;
|
||||||
@ -22,7 +19,7 @@ property cerrno:libcint read fpgetCerrno write fpsetcerrno;
|
|||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
function geterrnolocation: Plibcint; cdecl;external name '___errno';
|
function geterrnolocation: Plibcint; cdecl;external 'cygwin1.dll' name '__errno';
|
||||||
|
|
||||||
function fpgetCerrno:libcint;
|
function fpgetCerrno:libcint;
|
||||||
begin
|
begin
|
||||||
@ -37,7 +34,10 @@ end;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.14 2004-11-04 17:15:01 peter
|
Revision 1.15 2004-12-06 12:27:48 michael
|
||||||
|
* fix __errno loading from cygwin1.dll (from Peter)
|
||||||
|
|
||||||
|
Revision 1.14 2004/11/04 17:15:01 peter
|
||||||
* wcygprt is now used for cygwin (libc) linking, initc contains only cerrno
|
* wcygprt is now used for cygwin (libc) linking, initc contains only cerrno
|
||||||
|
|
||||||
Revision 1.13 2004/11/04 09:32:31 peter
|
Revision 1.13 2004/11/04 09:32:31 peter
|
||||||
|
Loading…
Reference in New Issue
Block a user