********** source program ********** fn main () -> Int { if ((1 == 1)) return 0; else return 1; } ********** type checking ********** --- step exp Int ---> --- step exp Int ---> ********** type checking complete ********** fn main () -> Int { if ((1 == 1)) return 0; else return 1; } ********** starting execution ********** ********** initializing globals ********** --- step exp () ---> ********** calling main function ********** { stack: top{main()<-1>} heap: fun
, env: main: fun
, } --- step exp main() ---> { stack: top{main<-1> :: main()<0>} heap: fun
, env: main: fun
, } --- step exp main ---> { stack: top{fun
<-1> :: main()<0>} heap: fun
, env: main: fun
, } --- handle value fun
with main()<1>(fun
,) ---> { stack: top{()<-1> :: main()<1>(fun
,)} heap: fun
, env: main: fun
, } --- step exp () ---> { stack: top{()<-1> :: main()<1>(fun
,)} heap: fun
, env: main: fun
, } --- handle value () with main()<2>(fun
,(),) ---> pattern_match((), ()) { stack: main{if ((1 == 1)) ... else ... <-1>} :: top{} heap: fun
, env: main: fun
, } --- step stmt if ((1 == 1)) ... else ... ---> { stack: main{if ((1 == 1)) ... else <-1> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- step stmt if ((1 == 1)) ... else ---> { stack: main{(1 == 1)<-1> :: if ((1 == 1)) ... else <0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- step exp (1 == 1) ---> { stack: main{1<-1> :: (1 == 1)<0> :: if ((1 == 1)) ... else <0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- step exp 1 ---> { stack: main{1<-1> :: (1 == 1)<0> :: if ((1 == 1)) ... else <0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- handle value 1 with (1 == 1)<1>(1,) ---> { stack: main{1<-1> :: (1 == 1)<1>(1,) :: if ((1 == 1)) ... else <0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- step exp 1 ---> { stack: main{1<-1> :: (1 == 1)<1>(1,) :: if ((1 == 1)) ... else <0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- handle value 1 with (1 == 1)<2>(1,1,) ---> { stack: main{true<-1> :: if ((1 == 1)) ... else <0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- handle value true with if ((1 == 1)) ... else <1>(true,) ---> { stack: main{return 0;<-1> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- step stmt return 0; ---> { stack: main{0<-1> :: return 0;<0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- step exp 0 ---> { stack: main{0<-1> :: return 0;<0> :: return 1;<-1>} :: top{} heap: fun
, env: main: fun
, } --- handle value 0 with return 0;<1>(0,) ---> { stack: top{0<-1>} heap: fun
, env: main: fun
, } result: 0