ppc: testfaelle fuer ppc32 'portiert'

[testub10.git] / gesamt_ppc / codeb_abgabe_bj.0

diff --git a/gesamt_ppc/codeb_abgabe_bj.0 b/gesamt_ppc/codeb_abgabe_bj.0
new file mode 100644 (file)
index 0000000..427e7de
--- /dev/null
+++ b/gesamt_ppc/codeb_abgabe_bj.0
@@ -0,0 +1,10 @@
+struct elem end;
+
+method vadd(v n)
+  while 0<n do
+    n:=n-1;
+    (this-(-4*n)).elem := (this-(n*-4)).elem - (0-(v-(n*-4)).elem);
+  end;
+  return this;
+end;
+