zenon/formal-methods-fstar
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add RETURN definition

Browse Source
This commit is contained in:
Tobias Eidelpes 2021-06-03 10:20:37 +02:00
parent 228c952443
commit 4a588e982b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Project2.fst
View File

@ -140,7 +140,7 @@ let step te cs =
| (JUMP i, stack') -> Next (Exec((((gas-1, i, mem, stack'), (actor, input, code), gs))::ps)) | (JUMP i, stack') -> Next (Exec((((gas-1, i, mem, stack'), (actor, input, code), gs))::ps))
| (JUMPI i, b::stack') -> let j = (if b = 0 then pc+1 else i) in | (JUMPI i, b::stack') -> let j = (if b = 0 then pc+1 else i) in
Next (Exec((((gas-1, j, mem, stack'), (actor, input, code), gs)) :: ps)) Next (Exec((((gas-1, j, mem, stack'), (actor, input, code), gs)) :: ps))
| (RETURN, v::stack') -> magic () | (RETURN, v::stack') -> Next (Ter (HaltState gs v (gas-1)) ps)
| (STOP, stack') -> Next (Ter (HaltState gs 0 (gas-1)) ps) | (STOP, stack') -> Next (Ter (HaltState gs 0 (gas-1)) ps)
| (TIMESTAMP, stack') -> magic () | (TIMESTAMP, stack') -> magic ()
| (CALL, to::v::inp::resaddr::stack') -> magic () | (CALL, to::v::inp::resaddr::stack') -> magic ()