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

fcl-passrc: allow external class function async

Browse Source 
git-svn-id: trunk@45518 -
This commit is contained in:
Mattias Gaertner 2020-05-27 18:30:00 +00:00
parent b6e2a228d3
commit 683c5c8faf
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-passrc/src/pasresolver.pp
View File

@ -6839,7 +6839,7 @@ begin
RaiseMsg(20170216151616,nInvalidXModifierY,
sInvalidXModifierY,[GetElementTypeName(Proc),'external, '+ModifierNames[pm]],Proc);
for ptm in Proc.ProcType.Modifiers do
if not (ptm in [ptmOfObject,ptmIsNested,ptmStatic,ptmVarargs,ptmReferenceTo]) then
if not (ptm in [ptmOfObject,ptmIsNested,ptmStatic,ptmVarargs,ptmReferenceTo,ptmAsync]) then
RaiseMsg(20170411171224,nInvalidXModifierY,
sInvalidXModifierY,[GetElementTypeName(Proc),'external, '+ProcTypeModifiers[ptm]],Proc);
end;

16
utils/pas2js/docs/translation.html
View File

@ -2994,14 +2994,15 @@ End.
<div class="section">
<h2 id="async">Async/AWait</h2>
Pas2js supports the JS operators async/await to simplify the use of Promise.
The await operator corresponds to two intrinsic Pas2js functions:
Pas2js supports the JS operators async and await to simplify the use of Promise.
The await operator corresponds to three intrinsic Pas2js functions:
<ul>
<li><i>function await(const Expr: T): T;</i> // implicit promise</li>
<li><i>function await(AsyncFunctionWithResultT): T;</i> // implicit promise</li>
<li><i>function await(aType; p: TJSPromise): aType;</i> // explicit promise requires the resolved type</li>
<li><i>function await(const Expr: T): T;</i> // implicit promise</li>
</ul>
The await function can only be used inside a procedure with the async modifier.<br>
For example:
Example for the explicit promise:
<table class="sample">
<tbody>
<tr>
@ -3030,7 +3031,7 @@ procedure AsyncCall; async;
var s: string;
begin
writeln('calling');
s := await(string,resolveAfter2Seconds());
s := await(string,resolveAfter2Seconds()); // does not check if result is really a string
writeln(s); // expected output: 'resolved'
end;
@ -3067,6 +3068,11 @@ end.
</tr>
</tbody>
</table>
Notes:
<ul>
<li>The await function does only compile time checks, no runtime checks.</li>
<li></li>
</ul>
</div>