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