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

* Atomics

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-12-04 23:18:07 +01:00
parent e8144afb6b
commit d775dadced
1 changed files with 91 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
packages/wasm-job/src/job.js.pas
View File

@ -1329,10 +1329,32 @@ type
class function Cast(const Intf: IJSObject): IJSTextEncoder; overload;
end;
IJSAtomics = interface
end;
{ TJSAtomics }
TJSAtomics = class (TJSObject,IJSAtomics)
class function add(aTypedArray : IJSTypedArray; index: integer; value : Integer) : integer;
class function and_(aTypedArray : IJSTypedArray; index: integer; value : Integer) : integer;
class function compareExchange(aTypedArray : IJSTypedArray; index: integer; ExpectedValue, ReplacementValue : Integer) : integer;
class function exchange(aTypedArray : IJSTypedArray; index: integer; ReplacementValue : Integer) : integer;
class function isLockFree(size : integer) : boolean;
class function load(aTypedArray : IJSTypedArray; Index : integer) : integer;
class function notify(aTypedArray : IJSTypedArray; Index : integer; count : integer) : integer;
class function or_(aTypedArray : IJSTypedArray; index: integer; value : Integer) : integer;
class function store(aTypedArray : IJSTypedArray; index: integer; value : Integer) : integer;
class function sub(aTypedArray : IJSTypedArray; index: integer; value : Integer) : integer;
class function wait(aTypedArray: IJSTypedArray; index: integer; value: Integer): unicodestring;
class function wait(aTypedArray: IJSTypedArray; index: integer; value: Integer; TimeOut: integer): unicodestring;
class function xor_(aTypedArray : IJSTypedArray; index: integer; value : Integer) : integer;
end;
var
JSObject: IJSObject; // singleton of JS 'Object'
JSDate: IJSDate; // singleton of JS 'Date'
JSJSON: IJSJSON; // singleton of JS 'Date'
JSAtomics: TJSAtomics; // Singleton of JS 'Atomics'
// imported functions from browser
function __job_invoke_noresult(
@ -1736,6 +1758,74 @@ begin
Result:=TJSTextEncoder.JOBCast(Intf);
end;
{ TJSAtomics }
class function TJSAtomics.add(aTypedArray: IJSTypedArray; index: integer; value: Integer): integer;
begin
Result:=JSAtomics.InvokeJSLongIntResult('add',[aTypedArray,Index,Value]);
end;
class function TJSAtomics.and_(aTypedArray: IJSTypedArray; index: integer; value: Integer): integer;
begin
Result:=JSAtomics.InvokeJSLongIntResult('and',[aTypedArray,Index,Value]);
end;
class function TJSAtomics.compareExchange(aTypedArray: IJSTypedArray; index: integer; ExpectedValue, ReplacementValue: Integer
): integer;
begin
Result:=JSAtomics.InvokeJSLongIntResult('compareExchange',[aTypedArray,Index,ExpectedValue, ReplacementValue]);
end;
class function TJSAtomics.exchange(aTypedArray: IJSTypedArray; index: integer; ReplacementValue: Integer): integer;
begin
Result:=JSAtomics.InvokeJSLongIntResult('exchange',[aTypedArray,Index, ReplacementValue]);
end;
class function TJSAtomics.isLockFree(size: integer): boolean;
begin
Result:=JSAtomics.InvokeJSBooleanResult('isLockFree',[Size]);
end;
class function TJSAtomics.load(aTypedArray: IJSTypedArray; Index: integer): integer;
begin
Result:=JSAtomics.InvokeJSLongintResult('load',[aTypedArray,Index]);
end;
class function TJSAtomics.notify(aTypedArray: IJSTypedArray; Index: integer; count: integer): integer;
begin
Result:=JSAtomics.InvokeJSLongintResult('notify',[aTypedArray,Index,count]);
end;
class function TJSAtomics.or_(aTypedArray: IJSTypedArray; index: integer; value: Integer): integer;
begin
Result:=JSAtomics.InvokeJSLongintResult('or',[aTypedArray,Index,value]);
end;
class function TJSAtomics.store(aTypedArray: IJSTypedArray; index: integer; value: Integer): integer;
begin
Result:=JSAtomics.InvokeJSLongintResult('store',[aTypedArray,Index,value]);
end;
class function TJSAtomics.sub(aTypedArray: IJSTypedArray; index: integer; value: Integer): integer;
begin
Result:=JSAtomics.InvokeJSLongintResult('sub',[aTypedArray,Index,value]);
end;
class function TJSAtomics.wait(aTypedArray: IJSTypedArray; index: integer; value: Integer): unicodestring;
begin
Result:=JSAtomics.InvokeJSUnicodeStringResult('wait',[aTypedArray,Index,value]);
end;
class function TJSAtomics.wait(aTypedArray: IJSTypedArray; index: integer; value: Integer; TimeOut: integer): unicodestring;
begin
Result:=JSAtomics.InvokeJSUnicodeStringResult('wait',[aTypedArray,Index,value,timeout]);
end;
class function TJSAtomics.xor_(aTypedArray: IJSTypedArray; index: integer; value: Integer): integer;
begin
Result:=JSAtomics.InvokeJSLongintResult('xor',[aTypedArray,Index,value]);
end;
{ TJSTextDecoder }
class function TJSTextDecoder.Cast(const Intf: IJSObject): IJSTextDecoder;
@ -4989,5 +5079,6 @@ initialization
JSObject:=TJSObject.JOBCreateGlobal('Object') as IJSObject;
JSDate:=TJSDate.JOBCreateGlobal('Date') as IJSDate;
JSJSON:=TJSJSON.JOBCreateGlobal('JSON') as IJSJSON;
JSAtomics:=TJSAtomics.JOBCreateGlobal('Atomics');
end.