Browse Source

* 3 new bugs

peter 27 years ago
parent
commit
b5d2ddd78d
4 changed files with 40 additions and 1 deletions
  1. 11 0
      bugs/bug0131.pp
  2. 12 0
      bugs/bug0132.pp
  3. 14 0
      bugs/bug0133.pp
  4. 3 1
      bugs/readme.txt

+ 11 - 0
bugs/bug0131.pp

@@ -0,0 +1,11 @@
+type TA = Array[1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2,1..2] of Byte;
+
+var v,w: ta;
+    e: longint;
+
+Begin
+  e :=1;
+  v[e,e,e,e,e,e,e,e,e,e] :=1;
+  w[e,e,e,e,e,e,e,e,e,v[e,e,e,e,e,e,e,e,e,e]] := v [e,e,e,e,e,e,e,e,e,e];
+  writeln(w[e,e,e,e,e,e,e,e,e,e])
+end.

+ 12 - 0
bugs/bug0132.pp

@@ -0,0 +1,12 @@
+type
+
+  p=^p;
+  p2 = ^p2;
+
+  var a:p;
+      a2:p2;
+
+  begin
+  	a:=a2;
+        a:=a2^;
+  end.

+ 14 - 0
bugs/bug0133.pp

@@ -0,0 +1,14 @@
+type
+  t=object
+     f : longint;
+     procedure p;
+     g : longint;  { Not allowed in BP7 }
+  end;
+
+  procedure t.p;
+  begin
+  end;
+
+  begin
+  end.
+

+ 3 - 1
bugs/readme.txt

@@ -177,4 +177,6 @@ bug0124.pp   problem with -Rintel switch and indexing (whatever the order)
 bug0125.pp   wrong colors with DOS CRT unit
 bug0127.pp   problem with cdecl in implementation part
 bug0130.pp   in [..#255] problem
-
+bug0131.pp   internal error 10 with highdimension arrays
+bug0132.pp   segmentation fault with type loop
+bug0133.pp   object type declaration not 100% compatibile with TP7