New Punkt-vor-Strich test

diff --git a/codea/snafu_04.0 b/codea/snafu_04.0
new file mode 100644 (file)
index 0000000..aeff3a0
--- /dev/null
+++ b/codea/snafu_04.0
@@ -0,0 +1,15 @@
+method pvs1(a b)
+       return (this - a) * b;
+end;
+
+method pvs2(a b)
+       return this - (a * b);
+end;
+
+method pvs3(a b)
+       return (this * a) - b;
+end;
+
+method pvs4(a b)
+       return this * (a - b);
+end;

diff --git a/codea/snafu_04.call b/codea/snafu_04.call
new file mode 100644 (file)
index 0000000..7a9fd9a
--- /dev/null
+++ b/codea/snafu_04.call
@@ -0,0 +1,7 @@
+long pvs1(long, long, long);
+long pvs2(long, long, long);
+long pvs3(long, long, long);
+long pvs4(long, long, long);
+
+
+RET((pvs1(2,3,5) == -5) && (pvs2(2,3,5) == -13) && (pvs3(2,3,5) == 1) && (pvs4(2,3,5) == -4));

diff --git a/codea/snafu_04.instr b/codea/snafu_04.instr
new file mode 100644 (file)
index 0000000..209e3ef
--- /dev/null
+++ b/codea/snafu_04.instr
@@ -0,0 +1 @@
+20