paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 21:28:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give a proper error when a type identifier is missing in a

Browse Source 
class operator declaration (mantis #19213)

git-svn-id: trunk@19226 -
This commit is contained in:
Jonas Maebe 2011-09-25 14:38:06 +00:00
parent 932ca07230
commit d714eeb84b
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10974,6 +10974,7 @@ tests/webtbf/tw1842.pp svneol=native#text/plain
tests/webtbf/tw1858.pp svneol=native#text/plain
tests/webtbf/tw18620.pp svneol=native#text/pascal
tests/webtbf/tw1905.pp svneol=native#text/plain
tests/webtbf/tw19213.pp svneol=native#text/plain
tests/webtbf/tw1927.pp svneol=native#text/plain
tests/webtbf/tw1928.pp svneol=native#text/plain
tests/webtbf/tw1939.pp svneol=native#text/plain

5
compiler/pdecsub.pas
View File

@ -1467,7 +1467,10 @@ implementation
break;
end;
if not found then
Message1(parser_e_at_least_one_argument_must_be_of_type,pd.struct.RttiName);
if assigned(pd.struct) then
Message1(parser_e_at_least_one_argument_must_be_of_type,pd.struct.RttiName)
else
MessagePos(pd.fileinfo,type_e_type_id_expected);
end;
if (optoken in [_EQ,_NE,_GT,_LT,_GTE,_LTE,_OP_IN]) and
((pd.returndef.typ<>orddef) or

16
tests/webtbf/tw19213.pp Normal file
View File

@ -0,0 +1,16 @@
{ %fail }
unit tw19213;
{$mode objfpc}
interface
implementation
class operator + (a, b: String): Integer;
begin
Result := Length(a) + Length(b);
end;
end.