浏览代码

* property support used.

marco 21 年之前
父节点
当前提交
abfc1b341b
共有 1 个文件被更改,包括 6 次插入1 次删除
  1. 6 1
      rtl/unix/initc.pp

+ 6 - 1
rtl/unix/initc.pp

@@ -24,6 +24,8 @@ type libcint   = longint;
 function fpgetCerrno:libcint; 
 procedure fpsetCerrno(err:libcint); 
 
+property cerrno:libcint read fpgetCerrno write fpsetcerrno;
+
 implementation
 // hasn't been divided up in .inc's, because I first want to see hoe
 // this idea works out.
@@ -75,7 +77,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.5  2003-12-10 14:59:49  marco
+  Revision 1.6  2003-12-10 17:06:19  marco
+   * property support used.
+
+  Revision 1.5  2003/12/10 14:59:49  marco
    * NetBSD supported added based on Sparc and define name changed to something more sensible
 
   Revision 1.4  2003/12/10 11:24:25  marco