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

* misleading warning removed

Browse Source
This commit is contained in:
Tomas Hajny 2004-03-24 19:23:09 +00:00
parent 155402e664
commit 8fd5b67f9a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/os2/system.pas
View File

@ -510,7 +510,6 @@ begin
WriteLn ('Trying to grow heap by ', Size, ' to ', HeapSize + Size); WriteLn ('Trying to grow heap by ', Size, ' to ', HeapSize + Size);
{$ENDIF} {$ENDIF}
// commit memory // commit memory
{$WARNING Not threadsafe at the moment!}
RC := DosSetMem (Int_Heap_End, Size, $13); RC := DosSetMem (Int_Heap_End, Size, $13);
if RC <> 0 then if RC <> 0 then
@ -1502,7 +1501,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.68 2004-03-24 19:15:59 hajny Revision 1.69 2004-03-24 19:23:09 hajny
* misleading warning removed
Revision 1.68 2004/03/24 19:15:59 hajny
* heap management modified to be able to grow heap as needed * heap management modified to be able to grow heap as needed
Revision 1.67 2004/02/22 15:01:49 hajny Revision 1.67 2004/02/22 15:01:49 hajny