Browse Source

* fixed couple of bugs

peter 26 years ago
parent
commit
6cd28a1c2a
3 changed files with 50 additions and 8 deletions
  1. 13 0
      bugs/bug0287.pp
  2. 27 0
      bugs/bug0288.pp
  3. 10 8
      bugs/readme.txt

+ 13 - 0
bugs/bug0287.pp

@@ -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 - 0
bugs/bug0288.pp

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

+ 10 - 8
bugs/readme.txt

@@ -317,12 +317,21 @@ Fixed bugs:
                method has a virtual overload                        OK 0.99.12 (PM)
                method has a virtual overload                        OK 0.99.12 (PM)
   bug0261.pp   problems for assignment overloading                  OK 0.99.12a (PM)
   bug0261.pp   problems for assignment overloading                  OK 0.99.12a (PM)
   bug0264.pp   methodpointer bugs                                   OK 0.99.12b (FK)
   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)
   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)
   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)
   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)
   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)
   bug0280.pp   problem with object finalization.                    OK 0.99.13 (FK)
   bug0282.pp   long mangledname problem with -Aas                   OK 0.99.13 (PFV)
   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:
 Unproducable bugs:
 ------------------
 ------------------
@@ -360,18 +369,11 @@ bug0252.pp   typecasting not possible within typed const
 bug0262.pp   problems with virtual and overloaded methods
 bug0262.pp   problems with virtual and overloaded methods
 bug0263.pp   export directive is not necessary in delphi anymore
 bug0263.pp   export directive is not necessary in delphi anymore
 bug0265.pp   nested proc with for-counter in other lex level
 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
 bug0271.pp   abstract methods can't be assigned to methodpointers
 bug0272.pp   No error issued if wrong parameter in function inside a second function
 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
 bug0274.pp   @(proc) is not allowed
 bug0275.pp   too many warnings
 bug0275.pp   too many warnings
 bug0277.pp   typecasting with const not possible
 bug0277.pp   typecasting with const not possible
 bug0279.pp   crash with ansistring and new(^ansistring)
 bug0279.pp   crash with ansistring and new(^ansistring)
 bug0281.pp   dup id checking with property is wrong
 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