瀏覽代碼

+ bug for static method

pierre 26 年之前
父節點
當前提交
8871deb5d2
共有 2 個文件被更改,包括 30 次插入3 次删除
  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)
   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)
+  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
                (this is the reason of bug0205 !)                    OK 0.99.11 (PM)
   bug0209.pp   problem with boolean expressions of different store sizes
                (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)
+  bug0211.pp   a and not a is true !!! (if a:=boolean(5))           OK 0.99.11 (PM)
 
 Unproducable bugs:
 ------------------
@@ -283,8 +284,7 @@ bug0200.pp   array of char overloading problem with strings
 bug0201.pp   problem with record var-parameters and assembler
 bug0202.pp   flag results not supported with case
 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
 bug0213.pp   name mangling problem with nested procedures in overloaded
              procedure
-
+bug0214.pp   bug for static methods