* fixed other error

tests/tbs0198.pp

@@ -6,7 +6,7 @@ type
        function GetCaps : Longint;virtual;stdcall;abstract;
    end;
 
-function to1.GetCaps2 : Longint;
+function to1.GetCaps2 : Longint;stdcall;
 begin
 end;