Browse Source

* replaced VER1_0 by HASGLOBALPROPERTY

florian 21 years ago
parent
commit
5028fa6d0f
2 changed files with 11 additions and 5 deletions
  1. 5 2
      rtl/linux/baseunix.pp
  2. 6 3
      rtl/unix/initc.pp

+ 5 - 2
rtl/linux/baseunix.pp

@@ -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

+ 6 - 3
rtl/unix/initc.pp

@@ -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