Преглед изворни кода

* overload keyword added, test is successfull for 1.1. known issue
for 1.0.x

peter пре 22 година
родитељ
комит
fd632f7a50
1 измењених фајлова са 11 додато и 11 уклоњено
  1. 11 11
      tests/tbs/tb0224.pp

+ 11 - 11
tests/tbs/tb0224.pp

@@ -1,4 +1,4 @@
-{ %KNOWNCOMPILEERROR= Problem with virtual and overloaded methods }
+{ %KNOWNCOMPILE10ERROR= Problem with virtual and overloaded methods }
 { Old file: tbs0262.pp }
 { problems with virtual and overloaded methods }
 
@@ -8,29 +8,29 @@ program test;
       obj1 = object
         st2 : string;
         constructor init;
-        procedure writeit;
-        procedure writeit(st : string);virtual;
+        procedure writeit;overload;
+        procedure writeit(st : string);virtual;overload;
       end;
 
       obj2 = object(obj1)
-        procedure writeit;virtual;
+        procedure writeit;virtual;overload;
       end;
 
       obj3 = object(obj2)
         l2 : longint;
-        procedure writeit(l : longint);virtual;
-        procedure writeit(st : string);virtual;
+        procedure writeit(l : longint);virtual;overload;
+        procedure writeit(st : string);virtual;overload;
       end;
 
       obj4 = object(obj3)
-        procedure writeit;virtual;
-        procedure writeit(st : string);virtual;
+        procedure writeit;virtual;overload;
+        procedure writeit(st : string);virtual;overload;
       end;
 
       obj5 = object(obj4)
-        procedure writeit;virtual;
-        procedure writeit(st : string);
-        procedure writeit(l : longint);virtual;
+        procedure writeit;virtual;overload;
+        procedure writeit(st : string);overload;
+        procedure writeit(l : longint);virtual;overload;
       end;
 
       constructor obj1.init;