Browse Source

* property errno defined

marco 21 years ago
parent
commit
f4db4860b5
2 changed files with 10 additions and 2 deletions
  1. 5 1
      rtl/bsd/baseunix.pp
  2. 5 1
      rtl/linux/baseunix.pp

+ 5 - 1
rtl/bsd/baseunix.pp

@@ -31,6 +31,7 @@ Interface
 function fpgeterrno:longint; 
 procedure fpseterrno(err:longint); 
 
+property errno : cint read fpgeterrno write fpseterrno;
 
 implementation
 
@@ -45,7 +46,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2003-09-14 20:15:01  marco
+  Revision 1.4  2003-12-10 17:08:33  marco
+   * property errno defined
+
+  Revision 1.3  2003/09/14 20:15:01  marco
    * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
 
   Revision 1.2  2003/06/03 14:23:45  marco

+ 5 - 1
rtl/linux/baseunix.pp

@@ -30,6 +30,7 @@ Interface
 function fpgeterrno:longint;
 procedure fpseterrno(err:longint);
 
+property errno : cint read fpgeterrno write fpseterrno;
 
 implementation
 
@@ -43,7 +44,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2003-09-14 20:15:01  marco
+  Revision 1.3  2003-12-10 17:08:28  marco
+   * property errno defined
+
+  Revision 1.2  2003/09/14 20:15:01  marco
    * Unix reform stage two. Remove all calls from Unix that exist in Baseunix.
 
   Revision 1.1  2002/12/18 16:44:09  marco