paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-09 06:58:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
for 1.0.x
This commit is contained in:
peter 2003-05-13 14:47:51 +00:00
parent 33a6f3a12a
commit fd632f7a50
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/tbs/tb0224.pp
View File

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