From: Snafu <stuff@c-gabriel.at>
Date: Mon, 10 May 2010 15:49:12 +0000 (+0200)
Subject: New Punkt-vor-Strich test
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=testub10.git;a=commitdiff_plain;h=badf6112fe169f399d9fe4d25ea22a4551ed153d

New Punkt-vor-Strich test
---

diff --git a/codea/snafu_04.0 b/codea/snafu_04.0
new file mode 100644
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
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
index 0000000..209e3ef
--- /dev/null
+++ b/codea/snafu_04.instr
@@ -0,0 +1 @@
+20