Kaynağa Gözat

* 3 new bugs

peter 27 yıl önce
ebeveyn
işleme
b5d2ddd78d
4 değiştirilmiş dosya ile 40 ekleme ve 1 silme
  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