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
 bug0125.pp   wrong colors with DOS CRT unit
 bug0127.pp   problem with cdecl in implementation part
 bug0127.pp   problem with cdecl in implementation part
 bug0130.pp   in [..#255] problem
 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