feat: parenthetical syntax for cycles, timeout etc.
#4608
Conversation
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
ggreif
commented
Jul 10, 2024
| @@ -312,14 +312,16 @@ let funcE name sort ctrl typ_binds args typs exp = | |||
| note = Note.{ def with typ; eff = T.Triv }; | |||
| } | |||
|
|
|||
| let recordE' = ref (fun _ -> nullE ()) (* gets correctly filled below *) | |||
There was a problem hiding this comment.
use and to allow mutual recursion
ggreif
commented
Jul 10, 2024
src/ir_passes/tailcall.ml
Outdated
| begin match e1.it, env with | ||
| | VarE f1, { tail_pos = true; | ||
| info = Some { func; typ_binds; temps; label; tail_called } } | ||
| when f1 = func && are_generic_insts typ_binds insts -> | ||
| tail_called := true; | ||
| (blockE (assignEs temps (exp env e2)) (breakE label (unitE ()))).it | ||
| | _,_-> PrimE (CallPrim insts, [exp env e1; exp env e2]) | ||
| | _,_-> PrimE (CallPrim (insts, pars), [exp env e1; exp env e2]) |
There was a problem hiding this comment.
Suggested change
| | _,_-> PrimE (CallPrim (insts, pars), [exp env e1; exp env e2]) | |
| | _,_-> PrimE (CallPrim (insts, exp env pars), [exp env e1; exp env e2]) |
ggreif
commented
Jul 10, 2024
unfortunately it doesn't arrive in the `async.ml`
at least now I get > ingress Err: IC0504: Canister rwlgt-iiaaa-aaaaa-aaaaa-cai violated contract: ic0_call_cycles_add128 called when no call is under construction.
we should use the system call though, instead of assigning to `@cycles`, as that will go away
ggreif
changed the title
cycles etc.
ggreif
force-pushed
the
gabor/parentheticals
branch
from
0b40189 to
3bed728
Compare
and observe the deadline
…elect fields in parentheticals
ggreif
commented
Dec 10, 2024
| @@ -203,5 +203,8 @@ let error_codes : (string * string option) list = | |||
| "M0197", Some([%blob "lang_utils/error_codes/M0197.md"]); (* `system` capability required *) | |||
| "M0198", Some([%blob "lang_utils/error_codes/M0198.md"]); (* Unused field pattern warning *) | |||
| "M0199", Some([%blob "lang_utils/error_codes/M0199.md"]); (* Deprecate experimental stable memory *) | |||
| "M0200", Some([%blob "lang_utils/error_codes/M0200.md"]) (* Cannot determine subtyping or equality *) | |||
| "M0200", Some([%blob "lang_utils/error_codes/M0200.md"]); (* Cannot determine subtyping or equality *) | |||
| "M0202", None; (* parenthetical note must be applied to a message send *) | |||
There was a problem hiding this comment.
make this contiguous
ggreif
commented
Dec 10, 2024
| let cyclesSetup = if hasCycles | ||
| then Some (thenE | ||
| (natE Mo_values.Numerics.Nat.zero |> assignVarE "@cycles") | ||
| (primE SystemCyclesAddPrim [dotE pars "cycles" T.nat])) |
There was a problem hiding this comment.
Bind pars to an object variable? Otherwise we get duplicated effects!
this probably doesn't make much sense
ggreif
changed the title
cycles etc.cycles, timeout etc.
ggreif
commented
Dec 11, 2024
| @@ -12187,6 +12215,29 @@ and compile_prim_invocation (env : E.t) ae p es at = | |||
| SR.Vanilla, Cycles.refunded env | |||
| | SystemCyclesBurnPrim, [e1] -> | |||
| SR.Vanilla, compile_exp_vanilla env ae e1 ^^ Cycles.burn env | |||
| | ICCyclesPrim, [] -> | |||
There was a problem hiding this comment.
This is not an idempotent operation, so we have to be careful to not call it twice. E.g. it fails for paired up environment+parenthetical.
There was a problem hiding this comment.
This should return two options. Possibly just the Nat (cycles) and Nat32 (timeout). We definitely have to search the attributes.
ggreif
commented
Dec 11, 2024
| Arr.load_field env 1l ^^ | ||
| G.i (LocalSet (nr 0l)) | ||
| ; Tagged.Object, | ||
| Opt.inject_simple env G.nop |
There was a problem hiding this comment.
Don't care storing back anything, as there is no captured environment.
ggreif
commented
Dec 11, 2024
| Tagged.branch_with env [I32Type] | ||
| [ Tagged.Closure, | ||
| G.i Drop ^^ | ||
| Opt.null_lit env |
There was a problem hiding this comment.
use br 1 to fall out?
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
ICCallPrim(and friends) should carry the fragment to set theSystemCyclesAddPrimwhile the call is being set up towards the replica.Parentheticals
(with cycles = 42_000_000) Actor.call(param)(with timeout = 10)ic0.call_with_best_effort_response : (timeout_seconds : i32) -> ()(with receiveMax = 50_000)(to limit the response size)(with resend = true; resendDelay = 3)whenSYS_TRANSIENTreject response (like UnixEINTR)call_cycles_add128_up_toic#1158(with memoryLimit = 1G) ActorClass(<args>)TODOs:
cycles : Natfor canister sends (self and raw sends too)timeout : Nat32for best-effortasyncblocksICCallPrim, see topICCallRawPrim, not directly annotatable (desisting for now)FIXMEs,TODOs