X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=src%2Fmjc2wsl.java;h=86177134f1bd3cc9d6656c6afa286bd50c501b45;hp=c269f20ef53852419341bd77ad9fd374c888d976;hb=1df11af4aa88816abcb609d38793129e11ad983d;hpb=634914843ea9f862bb524d1aad91dffd13c27f15 diff --git a/src/mjc2wsl.java b/src/mjc2wsl.java index c269f20..8617713 100644 --- a/src/mjc2wsl.java +++ b/src/mjc2wsl.java @@ -287,7 +287,15 @@ public class mjc2wsl{ } case div: { prl(getTopTwo()); - prl("tempres := tempb / tempa;"); + prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;"); + prl("tempres := tempb DIV tempa;"); + prl(cmdToEStack("tempres")); + break; + } + case rem: { + prl(getTopTwo()); + prl("IF tempa = 0 THEN ERROR(\"division by zero\") FI;"); + prl("tempres := tempb MOD tempa;"); prl(cmdToEStack("tempres")); break; }