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

* fixed missing repeated "class" modifiers

Browse Source 
git-svn-id: trunk@3735 -
This commit is contained in:
Jonas Maebe 2006-05-29 10:03:56 +00:00
parent 316c4d6313
commit 505b8cede7
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/cg/tclacla1.pp
View File

@ -18,7 +18,7 @@ const
tbasecalled : boolean = false; tbasecalled : boolean = false;
tderivedcalled : boolean = false; tderivedcalled : boolean = false;
has_error : boolean = false; has_error : boolean = false;
procedure tbaseclass.virtual_class_method; class procedure tbaseclass.virtual_class_method;
begin begin
Writeln('Calling tbase class class method'); Writeln('Calling tbase class class method');
@ -30,7 +30,7 @@ begin
virtual_class_method; virtual_class_method;
end; end;
procedure tderivedclass.virtual_class_method; class procedure tderivedclass.virtual_class_method;
begin begin
Writeln('Calling tderived class class method'); Writeln('Calling tderived class class method');

4
tests/test/cg/tclatype.pp
View File

@ -57,7 +57,7 @@ begin
end; end;
end; end;
procedure tbaseclass.virtual_class_method; class procedure tbaseclass.virtual_class_method;
begin begin
Writeln('Calling tbase class class method'); Writeln('Calling tbase class class method');
tbasecalled:=true; tbasecalled:=true;
@ -73,7 +73,7 @@ begin
get_type2:=typeof(self); get_type2:=typeof(self);
end; end;
procedure tderivedclass.virtual_class_method; class procedure tderivedclass.virtual_class_method;
begin begin
Writeln('Calling tderived class class method'); Writeln('Calling tderived class class method');
tderivedcalled:=true; tderivedcalled:=true;

2
tests/webtbs/tw2480.pp
View File

@ -12,7 +12,7 @@ Type tSingleton=Class
Class Function Instance:tSingleton; Class Function Instance:tSingleton;
End; End;
Function tSingleton.Instance:tSingleton; class Function tSingleton.Instance:tSingleton;
Begin Begin
If _Instance=Nil Then _Instance:=tSingleton.Init; If _Instance=Nil Then _Instance:=tSingleton.Init;
Exit(_Instance); Exit(_Instance);