From 263a9f12dc0e1ab0a1885dd40750b3e23a175781 Mon Sep 17 00:00:00 2001 From: Tobias Eidelpes Date: Thu, 3 Jun 2021 10:09:50 +0200 Subject: [PATCH] Add POP definition --- Project2.fst | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Project2.fst b/Project2.fst index 9def19b..2936c5d 100644 --- a/Project2.fst +++ b/Project2.fst @@ -124,7 +124,7 @@ let step te cs = | (LE, a::b::stack') -> let c = (if a <= b then 1 else 0) in Next (Exec(((gas-1, pc+1, mem, c::stack'), (actor, input, code), gs) :: ps)) | (PUSH x, stack') -> Next (Exec(((gas-1, pc+1, mem, x::stack'), (actor, input, code), gs)::ps)) - | (POP, x::stack') -> magic () + | (POP, x::stack') -> Next (Exec(((gas-1, pc+1, mem, stack') (actor, input, code), gs) :: ps)) | (MSTORE, p::v::stack') -> Next (Exec(((gas-1, pc+1, update mem p v, stack'), (actor, input, code), gs)::ps)) | (MLOAD, p::stack') -> magic () | (SSTORE, p::v::stack') -> magic ()