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

* Fix compilation for unicode

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-31 17:27:57 +01:00
parent 3e6ae3f887
commit d06dd9532c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1334,7 +1334,7 @@ type
IJSAtomicAsyncWaitResult = Interface(IJSObject) ['{FCAA8244-08C2-4638-89F2-408473EC0096}']
function getAsync : Boolean;
function getValueAsString : String;
function getValueAsString : UnicodeString;
function getValueAsPromise : IJSPromise;
property Async : boolean read getAsync;
property valueAsPromise : IJSPromise read GetValueAsPromise;
@ -1345,7 +1345,7 @@ type
TJSAtomicAsyncWaitResult = class(TJSObject,IJSAtomicAsyncWaitResult)
function getAsync : Boolean;
function getValueAsString : String;
function getValueAsString : UnicodeString;
function getValueAsPromise : IJSPromise;
property Async : boolean read getAsync;
property valueAsPromise : IJSPromise read GetValueAsPromise;
@ -1787,18 +1787,18 @@ begin
ReadJSPropertyBoolean('async');
end;
function TJSAtomicAsyncWaitResult.getValueAsString: String;
function TJSAtomicAsyncWaitResult.getValueAsString: UnicodeString;
begin
if getAsync then
Result:=''
else
Result:=ReadJSPropertyString('value');
Result:=ReadJSPropertyUnicodeString('value');
end;
function TJSAtomicAsyncWaitResult.getValueAsPromise: IJSPromise;
begin
if getAsync then
Result:=ReadJSPropertyObject('value',TJSPromise);
Result:=ReadJSPropertyObject('value',TJSPromise) as IJSPromise
else
Result:=Nil
end;