Browse Source

*** empty log message ***

florian 26 years ago
parent
commit
7e7e30d9d3
2 changed files with 11 additions and 0 deletions
  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