* 3 new bugs

This commit is contained in:
peter 1998-04-21 10:12:42 +00:00
parent 8244866fca
commit b5d2ddd78d
4 changed files with 40 additions and 1 deletions

11
bugs/bug0131.pp Normal file
View File

@ -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
bugs/bug0132.pp Normal file
View File

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

14
bugs/bug0133.pp Normal file
View File

@ -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.

View File

@ -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