-
Notifications
You must be signed in to change notification settings - Fork 13
Reduction semantics #109
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
base: main
Are you sure you want to change the base?
Reduction semantics #109
Changes from all commits
File filter
Filter by extension
Conversations
Jump to
Diff view
Diff view
There are no files selected for viewing
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -833,6 +833,123 @@ events and only `(on $e switch)` handlers can handle `switch` | |
events. The handler search continues past handlers for the wrong kind | ||
of event, even if they use the correct tag. | ||
|
||
#### Store extensions | ||
|
||
* New store component `conts` for allocated continuations | ||
- `S ::= {..., conts <cont>?*}` | ||
|
||
* A continuation is a context annotated with its hole's arity | ||
- `cont ::= (E : n)` | ||
|
||
|
||
#### Administrative instructions | ||
|
||
* `(ref.cont a)` represents a continuation value, where `a` is a *continuation address* indexing into the store's `conts` component | ||
- `ref.cont a : [] -> [(ref $ct)]` | ||
- iff `S.conts[a] = epsilon \/ S.conts[a] = (E : n)` | ||
+ iff `E[val^n] : t2*` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. There are two ways of doing this. The first is the one displayed here, where type-checking the There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Hm, I'd generally prefer the first option, since that is a more faithful reflection of the intended runtime representation that erases these types. We really want to know that this is sound, so ideally, even a mechanised soundness proof would model the store without introducing additional type information that may affect the result in subtle ways. Invoke is different in that functions are already type-annotated in the source program, and these types are in fact kept around in real implementations (e.g., to perform link-time type-checks). |
||
+ and `(val : t1)^n` | ||
- and `$ct ~~ cont $ft` | ||
- and `$ft ~~ [t1^n] -> [t2*]` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. This would also need to require that
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Doesn't: There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Ah, no, empty isn't the same as being undefined. This says that |
||
|
||
* `(prompt{<hdl>*} <instr>* end)` represents an active handler | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Sidenote: the Iris-WasmFX mechanisation adds one more immediate argument to the |
||
- `(prompt{hdl*}? instr* end) : [t1*] -> [t2*]` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Can There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. You're correct, it's always empty, just like for other administrative block instructions. |
||
- iff `instr* : [t1*] -> [t2*]` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. This explanation does not mention what typing context is used. Here, the body |
||
- and `(hdl : [t2*])*` | ||
|
||
The administrative structure `hdl` is defined as | ||
``` | ||
hdl ::= (<tagaddr> $l) | (<tagaddr> switch) | ||
``` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. The There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Even if we define this as a separate syntactic class, I'd suggest to mirror the syntax of the index-based notation, i.e., keep the |
||
|
||
where | ||
|
||
* `(a $l)` represents a tag-label association | ||
- `(a $l) : [t2*]` | ||
- iff `(S.tags[a].type ~~ [te1*] -> [te2*])*` | ||
- and `(label $l : [te1'* (ref null? $ct')])*` | ||
- and `([te1*] <: [te1'*])*` | ||
- and `($ct' ~~ cont $ft')*` | ||
- and `([te2*] -> [t2*] <: $ft')*` | ||
|
||
* `(a switch)` represents a tag-switch association | ||
- `(a switch)` and `(S.tags[b].type ~~ [] -> [te2*])*` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. These two lines make no sense, perhaps it was meant " There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Yes. It is a typo/mistake. It should be the trivial typing rule as you noted. |
||
|
||
#### Handler contexts | ||
|
||
``` | ||
H^ea ::= | ||
_ | ||
val* H^ea instr* | ||
label_n{instr*} H^ea end | ||
frame_n{F} H^ea end | ||
catch{...} H^ea end | ||
prompt{hdl*} H^ea end (iff ea notin tagaddr(hdl*)) | ||
``` | ||
|
||
|
||
#### Reduction | ||
|
||
* `S; F; (ref.null t) (cont.new $ct) --> S; F; trap` | ||
|
||
* `S; F; (ref.func fa) (cont.new $ct) --> S'; F; (ref.cont |S.conts|)` | ||
- iff `S' = S with conts += (E : n)` | ||
- and `E = _ (invoke fa)` | ||
- and `$ct ~~ cont $ft` | ||
- and `$ft ~~ [t1^n] -> [t2*]` | ||
|
||
* `S; F; (ref.null t) (cont.bind $ct $ct') --> S; F; trap` | ||
|
||
* `S; F; (ref.cont ca) (cont.bind $ct $ct') --> S; F; trap` | ||
- iff `S.conts[ca] = epsilon` | ||
|
||
* `S; F; v^n (ref.cont ca) (cont.bind $ct $ct') --> S'; F; (ref.const |S.conts|)` | ||
- iff `S.conts[ca] = (E' : n')` | ||
- and `$ct' ~~ cont $ft'` | ||
- and `$ft' ~~ [t1'*] -> [t2'*]` | ||
- and `n = n' - |t1'*|` | ||
- and `S' = S with conts[ca] = epsilon with conts += (E : |t1'*|)` | ||
- and `E = E'[v^n _]` | ||
|
||
* `S; F; (ref.null t) (resume $ct (on $e $l)*) --> S; F; trap` | ||
|
||
* `S; F; (ref.cont ca) (resume $ct (on $e $l)*) --> S; F; trap` | ||
- iff `S.conts[ca] = epsilon` | ||
|
||
* `S; F; v^n (ref.cont ca) (resume $ct hdl*) --> S'; F; prompt{hdl*} E[v^n] end` | ||
- iff `S.conts[ca] = (E : n)` | ||
- and `S' = S with conts[ca] = epsilon` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more.
|
||
|
||
* `S; F; (ref.null t) (resume_throw $ct $e (on $t $l)*) --> S; F; trap` | ||
|
||
* `S; F; (ref.cont ca) (resume_throw $ct $e (on $t $l)*) --> S; F; trap` | ||
- iff `S.conts[ca] = epsilon` | ||
|
||
* `S; F; v^m (ref.cont ca) (resume_throw $ct $e hdl*) --> S'; F; prompt{hdl*} E[v^m (throw $e)] end` | ||
- iff `S.conts[ca] = (E : n)` | ||
- and `S.tags[F.tags[$e]].type ~~ [t1^m] -> [t2*]` | ||
- and `S' = S with conts[ca] = epsilon` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Same comment as for |
||
|
||
* `S; F; (prompt{hdl*} v* end) --> S; F; v*` | ||
|
||
* `S; F; (prompt{hdl1* (ea $l) hdl2*} H^ea[v^n (suspend $e)] end) --> S'; F; v^n (ref.cont |S.conts|) (br $l)` | ||
- iff `ea notin tagaddr(hdl1*)` | ||
- and `ea = F.tags[$e]` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. This is wrong, |
||
- and `S.tags[ea].type ~~ [t1^n] -> [t2^m]` | ||
- and `S' = S with conts += (H^ea : m)` | ||
|
||
* `S; F; (prompt{hdl1* (ea switch) hdl2*} H^ea[v^n (ref.cont ca) (switch $ct $e)] end) --> S''; F; prompt{hdl1* (ea switch) hdl2*} E[v^n (ref.cont |S.conts|)] end` | ||
- iff `S.conts[ca] = (E : n')` | ||
- and `n' = 1 + n` | ||
- and `ea notin tagaddr(hdl1*)` | ||
- and `ea = F.tags[$e]` | ||
- and `$ct ~~ cont $ft` | ||
- and `$ft ~~ [t1* (ref $ct2)] -> [t2*]` | ||
- and `$ct2 ~~ cont $ft2` | ||
- and `$ft2 ~~ [t1'^m] -> [t2'*]` | ||
- and `S' = S with conts[ca] = epsilon` | ||
- and `S'' = S' with conts += (H^ea : m)` | ||
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Sidenote: the Iris-WasmFX mechanisation does not yet have the There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Update: the Iris-WasmFX mechanisation now has the There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. What happens if the first instance of ea in hdl* is of the wrong form (i.e. There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. No trap. We always pick the first match (left to right). Any later instances are effectively shadowed. You are right that this behaviour should be mentioned in the explainer, if it isn't already. There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. I am a little confused. Imagine I have a switch instruction that targets the tag address Or is there something enforcing that anywhere a There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Yes you are correct. I think it is already mentioned in the explainer somewhere, at least informally, that |
||
|
||
### Binary format | ||
|
||
We extend the binary format of composite types, heap types, and instructions. | ||
|
@@ -856,7 +973,7 @@ The opcode for heap types is encoded as an `s33`. | |
|
||
#### Instructions | ||
|
||
We use the use the opcode space `0xe0-0xe5` for the seven new instructions. | ||
We use the use the opcode space `0xe0-0xe5` for the six new instructions. | ||
|
||
| Opcode | Instruction | Immediates | | ||
| ------ | ------------------------ | ---------- | | ||
|
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Sidenote: the Iris-WasmFX mechanisation stores more than just the arity
n
together with the contextE
, it stores the actual expected typet1* -> t2*
. Transforming the presentation from the mechanisation to this one is simple (n = length(t1*)
).There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
That is interesting. Is that merely for convenience (i.e., not having to guess the type non-deterministically in the proof), or would soundness actually break without fixing the types?
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
This is so that the logical relation can later have more to go on. The type soundness could be proved in a mechanisation that only decorates contexts with the arity
n
with minor changes to the proofs