paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-02 02:26:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* nil <-> 0 changes

Browse Source
This commit is contained in:
marco 2003-12-16 19:43:53 +00:00
parent 213f373613
commit 8fc8644de0
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/bsd/ossysc.inc
View File

@ -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

13
rtl/freebsd/termiosproc.inc
View File

@ -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