Prechádzať zdrojové kódy

* property support under ifndef ver1_0

marco 21 rokov pred
rodič
commit
42f329de27
3 zmenil súbory, kde vykonal 18 pridanie a 3 odobranie
  1. 6 1
      rtl/bsd/baseunix.pp
  2. 6 1
      rtl/linux/baseunix.pp
  3. 6 1
      rtl/unix/initc.pp

+ 6 - 1
rtl/bsd/baseunix.pp

@@ -31,7 +31,9 @@ Interface
 function fpgeterrno:longint; 
 procedure fpseterrno(err:longint); 
 
+{$ifndef ver1_0}
 property errno : cint read fpgeterrno write fpseterrno;
+{$endif}
 
 implementation
 
@@ -46,7 +48,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2003-12-10 17:08:33  marco
+  Revision 1.5  2003-12-10 17:13:43  marco
+   * property support under ifndef ver1_0
+
+  Revision 1.4  2003/12/10 17:08:33  marco
    * property errno defined
 
   Revision 1.3  2003/09/14 20:15:01  marco

+ 6 - 1
rtl/linux/baseunix.pp

@@ -30,7 +30,9 @@ Interface
 function fpgeterrno:longint;
 procedure fpseterrno(err:longint);
 
+{$ifndef ver1_0}
 property errno : cint read fpgeterrno write fpseterrno;
+{$endif}
 
 implementation
 
@@ -44,7 +46,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2003-12-10 17:08:28  marco
+  Revision 1.4  2003-12-10 17:14:06  marco
+   * property support under ifndef ver1_0
+
+  Revision 1.3  2003/12/10 17:08:28  marco
    * property errno defined
 
   Revision 1.2  2003/09/14 20:15:01  marco

+ 6 - 1
rtl/unix/initc.pp

@@ -24,7 +24,9 @@ type libcint   = longint;
 function fpgetCerrno:libcint; 
 procedure fpsetCerrno(err:libcint); 
 
+{$ifndef ver1_0}
 property cerrno:libcint read fpgetCerrno write fpsetcerrno;
+{$endif}
 
 implementation
 // hasn't been divided up in .inc's, because I first want to see hoe
@@ -77,7 +79,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.6  2003-12-10 17:06:19  marco
+  Revision 1.7  2003-12-10 17:14:27  marco
+   * property support under ifndef ver1_0
+
+  Revision 1.6  2003/12/10 17:06:19  marco
    * property support used.
 
   Revision 1.5  2003/12/10 14:59:49  marco