mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-18 19:11:36 +01:00
* log exit to be symmetrical with entry in AllocateOSInfoBlock
This commit is contained in:
parent
cd1251bf00
commit
fdc19ea051
@ -122,6 +122,7 @@ begin
|
||||
Inc(Pointer(POSMem),lBlockSize);
|
||||
end;
|
||||
AllocateOSInfoBlock:=PMIB;
|
||||
{$IFDEF DEBUGWASMTHREADS}DebugWriteln('AllocateOSInfoBlock done');{$ENDIF}
|
||||
end;
|
||||
|
||||
Function FindFreeOSBlock(aInfo: POSMemInfoBlock) : POSMemBlock;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user