Ver Fonte

* nil <-> 0 changes

marco há 21 anos atrás
pai
commit
8fc8644de0
2 ficheiros alterados com 13 adições e 7 exclusões
  1. 5 2
      rtl/bsd/ossysc.inc
  2. 8 5
      rtl/freebsd/termiosproc.inc

+ 5 - 2
rtl/bsd/ossysc.inc

@@ -479,7 +479,7 @@ end;
 
 Function sbrk(size : longint) : pointer;
 begin
-  sbrk:=Fpmmap(0,Size,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0);
+  sbrk:=Fpmmap(nil,cardinal(Size),3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0);
   if sbrk=pointer(-1) then
     sbrk:=nil
   else
@@ -614,7 +614,10 @@ end;
 
 {
  $Log$
- Revision 1.14  2003-10-26 17:01:04  marco
+ Revision 1.15  2003-12-16 19:43:59  marco
+  * nil <-> 0 changes
+
+ Revision 1.14  2003/10/26 17:01:04  marco
   * moved sigprocmask to system
 
  Revision 1.13  2003/10/17 22:10:30  olle

+ 8 - 5
rtl/freebsd/termiosproc.inc

@@ -76,7 +76,7 @@ end;
 
 Function TCSendBreak(fd,duration:cint):cint;
 begin
-  TCSendBreak:=fpIOCtl(fd,TIOCSBRK,0);
+  TCSendBreak:=fpIOCtl(fd,TIOCSBRK,nil);
 end;
 
 
@@ -93,15 +93,15 @@ end;
 
 Function TCDrain(fd:cint):cint;
 begin
-  TCDrain:=fpIOCtl(fd,TIOCDRAIN,0); {Should set timeout to 1 first?}
+  TCDrain:=fpIOCtl(fd,TIOCDRAIN,nil); {Should set timeout to 1 first?}
 end;
 
 
 Function TCFlow(fd,act:cint):cint;
 begin
     case act OF
-     TCOOFF :  TCFlow:=fpIoctl(fd,TIOCSTOP,0);
-     TCOOn  :  TCFlow:=fpIOctl(Fd,TIOCStart,0);
+     TCOOFF :  TCFlow:=fpIoctl(fd,TIOCSTOP,nil);
+     TCOOn  :  TCFlow:=fpIOctl(Fd,TIOCStart,nil);
      TCIOFF :  {N/I}
     end;
 end;
@@ -132,7 +132,10 @@ end;
 
 {
    $Log$
-   Revision 1.1  2003-11-19 17:15:31  marco
+   Revision 1.2  2003-12-16 19:43:53  marco
+    * nil <-> 0 changes
+
+   Revision 1.1  2003/11/19 17:15:31  marco
     * termio new includefile