Parcourir la source

*** empty log message ***

florian il y a 27 ans
Parent
commit
7e7e30d9d3
2 fichiers modifiés avec 11 ajouts et 0 suppressions
  1. 9 0
      bugs/bug0198.pp
  2. 2 0
      bugs/readme.txt

+ 9 - 0
bugs/bug0198.pp

@@ -0,0 +1,9 @@
+type
+   to1 = class
+       function GetCaps1 : Longint;virtual;abstract;
+       function GetCaps2 : Longint;virtual;stdcall;
+       function GetCaps : Longint;virtual;stdcall;abstract;
+   end;
+
+begin
+end.

+ 2 - 0
bugs/readme.txt

@@ -262,3 +262,5 @@ bug0194.pp   @procedure var returns value in it instead of address !!
 bug0196.pp   "function a;" is accepted (should require result type)
 bug0197.pp   should produce an error: problem with c1:=c2<c3 where c? is
              a comp type
+bug0198.pp   calling specifications aren't allowed in class declarations,
+             this should be allowed