From e2b9657f79d913dddb064037e79a9dd1a63bdbf9 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 4 Sep 2007 20:51:26 +0000
Subject: cleaned up Calculator example

---
 examples/tutorial/calculator/CalculatorJ.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples/tutorial/calculator/CalculatorJ.gf')

diff --git a/examples/tutorial/calculator/CalculatorJ.gf b/examples/tutorial/calculator/CalculatorJ.gf
index 0df7b73fe..68ff5342c 100644
--- a/examples/tutorial/calculator/CalculatorJ.gf
+++ b/examples/tutorial/calculator/CalculatorJ.gf
@@ -9,13 +9,13 @@ concrete CalculatorJ of Calculator = open Prelude in {
 
   lin
     PEmpty = ss [] ;
-    PDecl exp prog = ss (exp.s ++ ";" ++ prog.s) ;
+    PInit exp prog = ss (exp.s ++ ";" ++ "istore" ++ prog.$0 ++ ";" ++ prog.s) ;
     PAss vr exp prog = ss (exp.s ++ ";" ++ "istore" ++ vr.s ++ ";" ++ prog.s) ;
 
     EPlus  = postfix "iadd" ;
     EMinus = postfix "isub" ;
     ETimes = postfix "imul" ;
-    EDiv   = postfix "imul" ;
+    EDiv   = postfix "idiv" ;
 
     EInt = prefixSS "iconst" ;
     EVar = prefixSS "iload" ;
-- 
cgit v1.2.3