mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 21:49:06 +02:00
* replaced VER1_0 by HASGLOBALPROPERTY
This commit is contained in:
parent
6793170b72
commit
5028fa6d0f
@ -30,7 +30,7 @@ Interface
|
|||||||
function fpgeterrno:longint;
|
function fpgeterrno:longint;
|
||||||
procedure fpseterrno(err:longint);
|
procedure fpseterrno(err:longint);
|
||||||
|
|
||||||
{$ifndef ver1_0}
|
{$ifdef HASGLOBALPROPERTY}
|
||||||
property errno : cint read fpgeterrno write fpseterrno;
|
property errno : cint read fpgeterrno write fpseterrno;
|
||||||
{$endif}
|
{$endif}
|
||||||
|
|
||||||
@ -46,7 +46,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.4 2003-12-10 17:14:06 marco
|
Revision 1.5 2003-12-11 18:20:50 florian
|
||||||
|
* replaced VER1_0 by HASGLOBALPROPERTY
|
||||||
|
|
||||||
|
Revision 1.4 2003/12/10 17:14:06 marco
|
||||||
* property support under ifndef ver1_0
|
* property support under ifndef ver1_0
|
||||||
|
|
||||||
Revision 1.3 2003/12/10 17:08:28 marco
|
Revision 1.3 2003/12/10 17:08:28 marco
|
||||||
|
@ -24,9 +24,9 @@ type libcint = longint;
|
|||||||
function fpgetCerrno:libcint;
|
function fpgetCerrno:libcint;
|
||||||
procedure fpsetCerrno(err:libcint);
|
procedure fpsetCerrno(err:libcint);
|
||||||
|
|
||||||
{$ifndef ver1_0}
|
{$ifdef HASGLOBALPROPERTY}
|
||||||
property cerrno:libcint read fpgetCerrno write fpsetcerrno;
|
property cerrno:libcint read fpgetCerrno write fpsetcerrno;
|
||||||
{$endif}
|
{$endif HASGLOBALPROPERTY}
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
// hasn't been divided up in .inc's, because I first want to see hoe
|
// hasn't been divided up in .inc's, because I first want to see hoe
|
||||||
@ -79,7 +79,10 @@ end;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.7 2003-12-10 17:14:27 marco
|
Revision 1.8 2003-12-11 18:20:50 florian
|
||||||
|
* replaced VER1_0 by HASGLOBALPROPERTY
|
||||||
|
|
||||||
|
Revision 1.7 2003/12/10 17:14:27 marco
|
||||||
* property support under ifndef ver1_0
|
* property support under ifndef ver1_0
|
||||||
|
|
||||||
Revision 1.6 2003/12/10 17:06:19 marco
|
Revision 1.6 2003/12/10 17:06:19 marco
|
||||||
|
Loading…
Reference in New Issue
Block a user