
diff -r cc0fd5226bb7 -r c32c5696ec2a src/HOL/MicroJava/JVM/JVMExecInstr.thy
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/HOL/MicroJava/JVM/JVMExecInstr.thy	Mon Jul 17 14:00:53 2000 +0200
@@ -0,0 +1,112 @@
+(*  Title:      HOL/MicroJava/JVM/JVMExecInstr.thy
+    ID:         $Id$
+    Author:     Cornelia Pusch, Gerwin Klein
+    Copyright   1999 Technische Universitaet Muenchen
+
+Semantics of JVM instructions
+*)
+
+JVMExecInstr = JVMInstructions + JVMState +
+
+consts
+exec_instr :: "[instr, jvm_prog, aheap, opstack, locvars, cname, sig, p_count, frame list] \\<Rightarrow> jvm_state"
+primrec
+ "exec_instr (Load idx) G hp stk vars Cl sig pc frs = 
+      (None, hp, ((vars ! idx) # stk, vars, Cl, sig, pc+1)#frs)"
+
+ "exec_instr (Store idx) G hp stk vars Cl sig pc frs = 
+      (None, hp, (tl stk, vars[idx:=hd stk], Cl, sig, pc+1)#frs)"
+
+ "exec_instr (Bipush ival) G hp stk vars Cl sig pc frs = 
+      (None, hp, (Intg ival # stk, vars, Cl, sig, pc+1)#frs)"
+
+ "exec_instr Aconst_null G hp stk vars Cl sig pc frs = 
+      (None, hp, (Null # stk, vars, Cl, sig, pc+1)#frs)"
+
+ "exec_instr (New C) G hp stk vars Cl sig pc frs = 
+	(let xp'	= raise_xcpt (\\<forall>x. hp x \\<noteq> None) OutOfMemory;
+	     oref	= newref hp;
+             fs		= init_vars (fields(G,C));
+	     hp'	= if xp'=None then hp(oref \\<mapsto> (C,fs)) else hp;
+	     stk'	= if xp'=None then (Addr oref)#stk else stk
+	 in 
+      (xp', hp', (stk', vars, Cl, sig, pc+1)#frs))"	
+
+ "exec_instr (Getfield F C) G hp stk vars Cl sig pc frs = 
+	(let oref	= hd stk;
+	     xp'	= raise_xcpt (oref=Null) NullPointer;
+	     (oc,fs)	= the(hp(the_Addr oref));
+	     stk'	= if xp'=None then the(fs(F,C))#(tl stk) else tl stk
+	 in
+      (xp', hp, (stk', vars, Cl, sig, pc+1)#frs))"
+
+ "exec_instr (Putfield F C) G hp stk vars Cl sig pc frs = 
+	(let (fval,oref)= (hd stk, hd(tl stk));
+	     xp'	= raise_xcpt (oref=Null) NullPointer;
+	     a		= the_Addr oref;
+	     (oc,fs)	= the(hp a);
+	     hp'	= if xp'=None then hp(a \\<mapsto> (oc, fs((F,C) \\<mapsto> fval))) else hp
+	 in
+      (xp', hp', (tl (tl stk), vars, Cl, sig, pc+1)#frs))"
+
+ "exec_instr (Checkcast C) G hp stk vars Cl sig pc frs =
+	(let oref	= hd stk;
+	     xp'	= raise_xcpt (\\<not> cast_ok G C hp oref) ClassCast; 
+	     stk'	= if xp'=None then stk else tl stk
+	 in
+      (xp', hp, (stk', vars, Cl, sig, pc+1)#frs))"
+
+ "exec_instr (Invoke mn ps) G hp stk vars Cl sig pc frs =
+	(let n		= length ps;
+	     argsoref	= take (n+1) stk;
+	     oref	= last argsoref;
+	     xp'	= raise_xcpt (oref=Null) NullPointer;
+	     dynT	= fst(the(hp(the_Addr oref)));
+	     (dc,mh,mxl,c)= the (method (G,dynT) (mn,ps));
+	     frs'	= if xp'=None
+	                  then [([],rev argsoref@replicate mxl arbitrary,dc,(mn,ps),0)]
+	                  else []
+	 in
+      (xp', hp, frs'@(drop (n+1) stk, vars, Cl, sig, pc+1)#frs))"
+
+ "exec_instr Return G hp stk0 vars Cl sig0 pc frs =
+	(if frs=[] then 
+     (None, hp, [])
+   else 
+     let val = hd stk0; (stk,loc,C,sig,pc) = hd frs
+	 in 
+      (None, hp, (val#stk,loc,C,sig,pc)#tl frs))"
+
+ "exec_instr Pop G hp stk vars Cl sig pc frs = 
+      (None, hp, (tl stk, vars, Cl, sig, pc+1)#frs)"
+
+ "exec_instr Dup G hp stk vars Cl sig pc frs = 
+      (None, hp, (hd stk # stk, vars, Cl, sig, pc+1)#frs)"
+
+ "exec_instr Dup_x1 G hp stk vars Cl sig pc frs = 
+      (None, hp, (hd stk # hd (tl stk) # hd stk # (tl (tl stk)), vars, Cl, sig, pc+1)#frs)"
+
+ "exec_instr Dup_x2 G hp stk vars Cl sig pc frs = 
+      (None, hp, (hd stk # hd (tl stk) # (hd (tl (tl stk))) # hd stk # (tl (tl (tl stk))),
+                  vars, Cl, sig, pc+1)#frs)"
+
+ "exec_instr Swap G hp stk vars Cl sig pc frs =
+	(let (val1,val2) = (hd stk,hd (tl stk))
+   in
+	    (None, hp, (val2#val1#(tl (tl stk)), vars, Cl, sig, pc+1)#frs))"
+
+ "exec_instr IAdd G hp stk vars Cl sig pc frs =
+  (let (val1,val2) = (hd stk,hd (tl stk))
+   in
+      (None, hp, (Intg ((the_Intg val1)+(the_Intg val2))#(tl (tl stk)), vars, Cl, sig, pc+1)#frs))"
+
+ "exec_instr (Ifcmpeq i) G hp stk vars Cl sig pc frs =
+	(let (val1,val2) = (hd stk, hd (tl stk));
+     pc' = if val1 = val2 then nat(int pc+i) else pc+1
+	 in
+	    (None, hp, (tl (tl stk), vars, Cl, sig, pc')#frs))"
+
+ "exec_instr (Goto i) G hp stk vars Cl sig pc frs =
+      (None, hp, (stk, vars, Cl, sig, nat(int pc+i))#frs)"
+
+end




