mirror of
https://github.com/red-prig/fpPS4.git
synced 2024-11-23 06:19:57 +00:00
84 lines
1.3 KiB
ObjectPascal
84 lines
1.3 KiB
ObjectPascal
unit ps4_elf_tls;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
Hamt;
|
|
|
|
type
|
|
Pdtv=^Tdtv;
|
|
Tdtv=packed record
|
|
value:Pointer;
|
|
is_static:QWORD;
|
|
gen:QWORD;
|
|
end;
|
|
Ptls_tcb=^Ttls_tcb;
|
|
Ttls_tcb=packed record
|
|
seg_adr:Pointer;
|
|
dtv:Pdtv;
|
|
_dtv:Tdtv;
|
|
end;
|
|
|
|
function _init_tls_tcb(Size,is_static,gen:QWORD):Ptls_tcb;
|
|
function _get_tls_tcb(gen:QWORD):Ptls_tcb;
|
|
procedure _free_tls_tcb_all;
|
|
|
|
implementation
|
|
|
|
threadvar
|
|
tls_local:THAMT;
|
|
|
|
function _init_tls_tcb(Size,is_static,gen:QWORD):Ptls_tcb;
|
|
var
|
|
full_size:QWORD;
|
|
base:Pointer;
|
|
tcb:Ptls_tcb;
|
|
PP:PPointer;
|
|
begin
|
|
full_size:=Size+SizeOf(Ttls_tcb);
|
|
base:=AllocMem(full_size);
|
|
tcb:=Pointer(base+Size);
|
|
tcb^.seg_adr:=tcb;
|
|
tcb^.dtv:=@tcb^._dtv;
|
|
tcb^._dtv.value:=base;
|
|
tcb^._dtv.is_static:=is_static;
|
|
tcb^._dtv.gen:=gen;
|
|
if (tls_local=nil) then tls_local:=HAMT_create64;
|
|
PP:=HAMT_insert64(tls_local,gen,tcb);
|
|
Assert(PP<>nil);
|
|
Assert(PP^=tcb);
|
|
Result:=tcb;
|
|
end;
|
|
|
|
function _get_tls_tcb(gen:QWORD):Ptls_tcb;
|
|
var
|
|
PP:PPointer;
|
|
begin
|
|
Result:=nil;
|
|
PP:=HAMT_search64(tls_local,gen);
|
|
if (PP<>nil) then Result:=PP^;
|
|
end;
|
|
|
|
procedure _free_tls_tcb(data,userdata:Pointer);
|
|
Var
|
|
tcb:Ptls_tcb;
|
|
base:Pointer;
|
|
begin
|
|
tcb:=data;
|
|
if (tcb=nil) then Exit;
|
|
base:=tcb^._dtv.value;
|
|
FreeMem(base);
|
|
end;
|
|
|
|
procedure _free_tls_tcb_all;
|
|
begin
|
|
HAMT_destroy64(tls_local,@_free_tls_tcb,nil);
|
|
tls_local:=nil;
|
|
end;
|
|
|
|
end.
|
|
|