Browse Source

+ bug for static method

pierre 26 years ago
parent
commit
8871deb5d2
2 changed files with 30 additions and 3 deletions
  1. 27 0
      bugs/bug0214.pp
  2. 3 3
      bugs/readme.txt

+ 27 - 0
bugs/bug0214.pp

@@ -0,0 +1,27 @@
+Program SttcTest;
+{ Note: I've cut a lot out of this program, it did originally have
+        constructors, destructors and instanced objects, but this
+        is the minimum required to produce the problem, and I think
+        that this should work, unless I've misunderstood the use of
+        the static keyword. }
+Type
+   TObjectType1 = Object
+      Procedure Setup; static;
+      Procedure Weird; static;
+   End;
+   
+Procedure TObjectType1.Setup;
+   Begin
+   End;
+   
+Procedure TObjectType1.Weird;
+   Begin
+   End;
+   
+Begin
+   TObjectType1.Setup;
+   TObjectType1.Weird;
+   TObjectType1.Weird; // GPFs before exiting "Weird"
+   Writeln('THE END.');
+End.
+

+ 3 - 3
bugs/readme.txt

@@ -239,12 +239,13 @@ Fixed bugs:
                Generates an error now				     OK 0.99.11 (PM)
                Generates an error now				     OK 0.99.11 (PM)
   bug0204.pp   can typecast the result var in an assignment          OK 0.99.11 (PM)
   bug0204.pp   can typecast the result var in an assignment          OK 0.99.11 (PM)
   bug0205.pp   and parsing bug, generates wrong code (tp7 gives parser error) OK 0.99.11 (PM)
   bug0205.pp   and parsing bug, generates wrong code (tp7 gives parser error) OK 0.99.11 (PM)
+  bug0207.pp   a class destructor doesn't release the memory        OK 0.99.11 (FK) 
   bug0208.pp   implicit conversion from boolean to longint should not be allowed
   bug0208.pp   implicit conversion from boolean to longint should not be allowed
                (this is the reason of bug0205 !)                    OK 0.99.11 (PM)
                (this is the reason of bug0205 !)                    OK 0.99.11 (PM)
   bug0209.pp   problem with boolean expressions of different store sizes
   bug0209.pp   problem with boolean expressions of different store sizes
                (problem created while solving bug205 ! PM)          OK 0.99.11 (PM)
                (problem created while solving bug205 ! PM)          OK 0.99.11 (PM)
-  bug0207.pp   a class destructor doesn't release the memory        OK 0.99.11 (FK) 
   bug0210.pp   fillchar should accept boolean value also !!         OK 0.99.11 (PM)
   bug0210.pp   fillchar should accept boolean value also !!         OK 0.99.11 (PM)
+  bug0211.pp   a and not a is true !!! (if a:=boolean(5))           OK 0.99.11 (PM)
 
 
 Unproducable bugs:
 Unproducable bugs:
 ------------------
 ------------------
@@ -283,8 +284,7 @@ bug0200.pp   array of char overloading problem with strings
 bug0201.pp   problem with record var-parameters and assembler
 bug0201.pp   problem with record var-parameters and assembler
 bug0202.pp   flag results not supported with case
 bug0202.pp   flag results not supported with case
 bug0206.pp   sets with variable ranges doesn't work
 bug0206.pp   sets with variable ranges doesn't work
-bug0211.pp   a and not a is true !!! (if a:=boolean(5))
 bug0212.pp   problem with properties
 bug0212.pp   problem with properties
 bug0213.pp   name mangling problem with nested procedures in overloaded
 bug0213.pp   name mangling problem with nested procedures in overloaded
              procedure
              procedure
-
+bug0214.pp   bug for static methods