Correct signature

g15ecb · Apr 18, 2011 · 83ae2c3 · 83ae2c3
1 parent 077d3a5
commit 83ae2c3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/chap07/frame.sig b/chap07/frame.sig
@@ -7,7 +7,7 @@ sig
   val formals: frame -> access list
   val allocLocal: frame -> bool -> access
 
-  val procEntryExit1: {frame: frame, body: Tree.exp} -> Tree.exp
+  val procEntryExit1: {frame: frame, body: Tree.stm} -> Tree.stm
 
   val FP: Temp.temp
   val wordSize: int

diff --git a/chap07/x64frame.sml b/chap07/x64frame.sml
@@ -60,7 +60,7 @@ structure X64Frame: FRAME = struct
 
   structure T = Tree
 
-  fun procEntryExit1 {frame: frame, body: T.exp} = body (* TODO *)
+  fun procEntryExit1 {frame: frame, body: T.stm} = body (* TODO *)
 
   fun exp (InFrame k) exp = T.MEM(T.BINOP(T.PLUS, exp, T.CONST k))
     | exp (InReg temp) _ = T.TEMP temp