Explorar o código

* property errno defined

marco %!s(int64=22) %!d(string=hai) anos
pai
achega
f4db4860b5
Modificáronse 2 ficheiros con 10 adicións e 2 borrados
  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