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

* thread local memory freed

Browse Source
This commit is contained in:
Tomas Hajny 2005-03-20 22:33:27 +00:00
parent 1323b56132
commit f5729c6063
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/os2/systhrd.inc
View File

@ -1,10 +1,10 @@
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2002 by Peter Vreman, Copyright (c) 2002-5 by Tomas Hajny,
member of the Free Pascal development team. member of the Free Pascal development team.
Linux (pthreads) threading support implementation OS/2 threading support implementation
See the file COPYING.FPC, included in this distribution, See the file COPYING.FPC, included in this distribution,
for details about the copyright. for details about the copyright.
@ -107,6 +107,7 @@ procedure SysReleaseThreadVars;
begin begin
{ release thread vars } { release thread vars }
DosFreeMem (DataIndex^); DosFreeMem (DataIndex^);
DosFreeThreadLocalMemory (DataIndex);
end; end;
(* procedure InitThreadVars; (* procedure InitThreadVars;
@ -545,7 +546,10 @@ end;
{ {
$Log$ $Log$
Revision 1.1 2005-02-06 16:57:18 peter Revision 1.2 2005-03-20 22:33:27 hajny
* thread local memory freed
Revision 1.1 2005/02/06 16:57:18 peter
* threads for go32v2,os,emx,netware * threads for go32v2,os,emx,netware
Revision 1.1 2005/02/06 13:06:20 peter Revision 1.1 2005/02/06 13:06:20 peter
@ -553,4 +557,3 @@ end;
* win32 thread in systemunit * win32 thread in systemunit
} }