* fixed couple of bugs

This commit is contained in:
peter 1999-09-07 07:50:07 +00:00
parent ee18e42672
commit 6cd28a1c2a
3 changed files with 50 additions and 8 deletions

13
bugs/bug0287.pp Normal file
View File

@ -0,0 +1,13 @@
var
b : boolean;
begin
b:=(true > false);
if b then
writeln('ok 1');
b:=true;
b:=(b > false);
if b then
writeln('ok 2');
end.

27
bugs/bug0288.pp Normal file
View File

@ -0,0 +1,27 @@
{$mode objfpc}
uses sysutils;
type
zz=class(tobject)
procedure test;virtual;
procedure test1;virtual;
end;
procedure zz.test;
begin
writeln('ok');
end;
procedure zz.test1;
begin
try
raise exception.create('zz');
except
on e:exception do test;
end;
end;
var
z:zz;
begin
z:=zz.create;
z.test1;
z.destroy;
end.

View File

@ -317,12 +317,21 @@ Fixed bugs:
method has a virtual overload OK 0.99.12 (PM)
bug0261.pp problems for assignment overloading OK 0.99.12a (PM)
bug0264.pp methodpointer bugs OK 0.99.12b (FK)
bug0266.pp linux crt write cuts 256 char OK 0.99.13 (PFV)
bug0267.pp parameters after methodpointer are wrong OK 0.99.12b (FK)
bug0268.pp crash with exceptions OK 0.99.13 (FK)
bug0269.pp wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM)
bug0270.pp unexpected eof in tp mode with (* and directives OK 0.99.13 (PFV)
bug0273.pp small array pushing to array of char procedure is wrong OK 0.99.13 (PFV)
bug0276.pp Asm, intel reference parsing incompatibility OK 0.99.13 (PFV)
bug0278.pp (* in conditional code is handled wrong for tp,delphi OK 0.99.13 (PFV)
bug0280.pp problem with object finalization. OK 0.99.13 (FK)
bug0282.pp long mangledname problem with -Aas OK 0.99.13 (PFV)
bug0283.pp bug in constant char comparison evaluation OK 0.99.13 (PFV)
bug0285.pp Asm, TYPE not support in intel mode OK 0.99.13 (PFV)
bug0286.pp #$08d not allowed as Char constant OK 0.99.13 (PFV)
bug0287.pp (true > false) not supported OK 0.99.13 (PFV)
bug0288.pp crash with virtual method in except part OK 0.99.13 (PFV)
Unproducable bugs:
------------------
@ -360,18 +369,11 @@ bug0252.pp typecasting not possible within typed const
bug0262.pp problems with virtual and overloaded methods
bug0263.pp export directive is not necessary in delphi anymore
bug0265.pp nested proc with for-counter in other lex level
bug0266.pp write cuts 256 char
bug0268.pp crash with exceptions
bug0270.pp unexpected eof in tp mode with (* and directives
bug0271.pp abstract methods can't be assigned to methodpointers
bug0272.pp No error issued if wrong parameter in function inside a second function
bug0273.pp small array pushing to array of char procedure is wrong
bug0274.pp @(proc) is not allowed
bug0275.pp too many warnings
bug0277.pp typecasting with const not possible
bug0279.pp crash with ansistring and new(^ansistring)
bug0281.pp dup id checking with property is wrong
bug0283.pp wrong file position with dup id in other unit
bug0284.pp bug in constant char comparison evaluation
bug0285.pp Asm, TYPE not support in intel mode
bug0286.pp #$08d not allowed as Char constant
bug0284.pp wrong file position with dup id in other unit