+ some more bugs some even already solved

This commit is contained in:
pierre 1999-10-13 12:33:20 +00:00
parent c84c00710e
commit 4069f03938
5 changed files with 56 additions and 1 deletions

14
bugs/bug0297.pp Normal file
View File

@ -0,0 +1,14 @@
program test_int;
{$ifdef go32v2}
uses
dpmiexcp;
{$endif go32v2}
procedure int;interrupt;
begin
end;
begin
int;
end.

11
bugs/bug0298.pp Normal file
View File

@ -0,0 +1,11 @@
program test_loc_mem;
{$ifdef go32v2}
uses
dpmiexcp;
{$endif go32v2}
var l1,l2 : longint;
begin
l1+l2:=l1+l2;
end.

22
bugs/bug0299.pp Normal file
View File

@ -0,0 +1,22 @@
type
TwoChar = Array[0..1] of char;
Empty = Record
End;
const
asd : TwoChar = ('a','b');
procedure Tester(i:TwoChar; a: Empty;l : longint);
begin
i[0]:=i[1];
Writeln('l = ',l,' @l = ',hexstr(longint(@l),8),' @a = ',hexstr(longint(@a),8));
end;
var
a : Empty;
l : longint;
begin
l:=6;
Writeln(Sizeof(asd));
Tester(asd,a,l);
Writeln(asd);
end.

4
bugs/bug0300.pp Normal file
View File

@ -0,0 +1,4 @@
procedure nonexistent_class_or_object.method; begin end;
begin
end.

View File

@ -348,6 +348,7 @@ Fixed bugs:
bug0291.pp @procvar in tp mode bugs OK 0.99.13 (PFV)
bug0292.pp objects not finalized when disposed OK 0.99.13 (FK)
bug0295.pp forward type definition is resolved wrong OK 0.99.13 (PFV)
bug0296.pp exit(string) does not work (web form bug 613) OK 0.99.13 (PM)
Unproducable bugs:
@ -385,4 +386,7 @@ bug0263.pp export directive is not necessary in delphi anymore
bug0265.pp nested proc with for-counter in other lex level
bug0281.pp dup id checking with property is wrong
bug0293.pp no error with variable name = type name
bug0296.pp exit(string) does not work (web form bug 613)
bug0297.pp calling of interrupt procedure allowed but wrong code generated
bug0298.pp l1+l2:=l1+l2 gives no error
bug0299.pp passing Array[0..1] of char by value to proc leads to problems
bug0300.pp crash if method on non existing object is parsed (form bug 651)