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

* Use of 0 instead of nil fixed

Browse Source
This commit is contained in:
daniel 2003-12-16 09:43:04 +00:00
parent 23aa8e1cda
commit fd86e14b01
3 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/generic.inc
View File

@ -408,9 +408,9 @@ begin
begin begin
ppointer(_self+vmt_pos)^:=nil; ppointer(_self+vmt_pos)^:=nil;
freemem(_self); freemem(_self);
{ reset _vmt to 0 so it will not be freed a { reset _vmt to nil so it will not be freed a
second time } second time }
_vmt:=0; _vmt:=nil;
end; end;
end end
else else
@ -1014,7 +1014,10 @@ end;
{ {
$Log$ $Log$
Revision 1.62 2003-12-06 13:25:30 jonas Revision 1.63 2003-12-16 09:43:04 daniel
* Use of 0 instead of nil fixed
Revision 1.62 2003/12/06 13:25:30 jonas
* fixed longint/cardinal comparison in int_str * fixed longint/cardinal comparison in int_str
Revision 1.61 2003/09/03 14:09:37 florian Revision 1.61 2003/09/03 14:09:37 florian

7
rtl/linux/ossysc.inc
View File

@ -382,7 +382,7 @@ end;
Function sbrk(size : longint) : pointer; Function sbrk(size : longint) : pointer;
begin begin
sbrk:=Fpmmap(0,Size,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0); sbrk:=Fpmmap(nil,Size,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0);
if sbrk=pointer(-1) then if sbrk=pointer(-1) then
sbrk:=nil sbrk:=nil
else else
@ -454,7 +454,10 @@ end;
{ {
$Log$ $Log$
Revision 1.9 2003-10-17 20:56:24 olle Revision 1.10 2003-12-16 09:43:04 daniel
* Use of 0 instead of nil fixed
Revision 1.9 2003/10/17 20:56:24 olle
* Changed m68k to cpum68k, i386 to cpui386 * Changed m68k to cpum68k, i386 to cpui386
Revision 1.8 2003/09/27 13:45:58 peter Revision 1.8 2003/09/27 13:45:58 peter

13
rtl/unix/cthreads.pp
View File

@ -85,7 +85,7 @@ Uses
{ exceptions which use threadvars but } { exceptions which use threadvars but }
{ these aren't allocated yet ... } { these aren't allocated yet ... }
{ allocate room on the heap for the thread vars } { allocate room on the heap for the thread vars }
DataIndex:=Pointer(Fpmmap(0,threadvarblocksize,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0)); DataIndex:=Pointer(Fpmmap(nil,threadvarblocksize,3,MAP_PRIVATE+MAP_ANONYMOUS,-1,0));
FillChar(DataIndex^,threadvarblocksize,0); FillChar(DataIndex^,threadvarblocksize,0);
pthread_setspecific(tlskey,dataindex); pthread_setspecific(tlskey,dataindex);
end; end;
@ -289,10 +289,10 @@ Uses
begin begin
m_spinlock:=0; m_spinlock:=0;
m_count:=0; m_count:=0;
m_owner:=0; m_owner:=nil;
m_kind:=1; m_kind:=1;
m_waiting.head:=0; m_waiting.head:=nil;
m_waiting.tail:=0; m_waiting.tail:=nil;
end; end;
pthread_mutex_init(P,NIL); pthread_mutex_init(P,NIL);
end; end;
@ -416,7 +416,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.4 2003-11-29 17:34:14 michael Revision 1.5 2003-12-16 09:43:04 daniel
* Use of 0 instead of nil fixed
Revision 1.4 2003/11/29 17:34:14 michael
+ Removed dummy variable from SetCthreadManager + Removed dummy variable from SetCthreadManager
Revision 1.3 2003/11/27 20:24:53 michael Revision 1.3 2003/11/27 20:24:53 michael