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

+ DosAllocThreadLocalMemory

Browse Source
This commit is contained in:
Tomas Hajny 2001-01-23 20:28:05 +00:00
parent 67c9365e28
commit cd5607b406
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
rtl/os2/doscalls.pas
View File

@ -2526,6 +2526,16 @@ procedure DosFlatToSel; cdecl;
{typecast result to TFarPtr}
function FlatToSel (APtr: pointer): cardinal;
{Allocate Count dwords in a memory block unique in each thread. A maximum
of 8 dwords can be allocated at a time, the total size of the thread local
memory area is 128 bytes; FPC 1.1+ uses one dword from this for internal
multi-threading support, leaving 124 bytes to programmers.}
function DosAllocThreadLocalMemory (Count: cardinal; var P: pointer): longint;
cdecl;
{Deallocate a previously allocated space in the thread local memory area.}
function DosFreeThreadLocalMemory (P: pointer): longint; cdecl;
{***************************************************************************}
implementation
{***************************************************************************}
@ -3924,6 +3934,15 @@ function FlatToSel (APtr: pointer): cardinal; assembler;
call DosFlatToSel
end;
function DosAllocThreadLocalMemory (Count: cardinal; var P: pointer): longint;
cdecl;
external 'DOSCALLS' index 454;
function DosFreeThreadLocalMemory (P: pointer): longint; cdecl;
external 'DOSCALLS' index 455;
(* Todo:
function DosRawReadNPipe ...; cdecl;
@ -3992,7 +4011,10 @@ external 'DOSCALLS' index 582;
end.
{
$Log$
Revision 1.7 2001-01-14 18:59:13 hajny
Revision 1.8 2001-01-23 20:28:05 hajny
+ DosAllocThreadLocalMemory
Revision 1.7 2001/01/14 18:59:13 hajny
* more compatibility changes (semaphores)
Revision 1.6 2000/12/21 21:12:43 hajny