paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for renaming of type_interface_noguid (or so) to type_E_interface...

Browse Source 
by Florian in r17722

git-svn-id: trunk@17731 -
This commit is contained in:
marco 2011-06-12 13:45:38 +00:00
parent 0e7e7e98ec
commit 90c47c5c86
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncnv.pas
View File

@ -1377,7 +1377,7 @@ implementation
if assigned(tobjectdef(left.resultdef).iidstr) then
begin
if not(oo_has_valid_guid in tobjectdef(left.resultdef).objectoptions) then
CGMessage1(type_interface_has_no_guid,tobjectdef(left.resultdef).typename);
CGMessage1(type_e_interface_has_no_guid,tobjectdef(left.resultdef).typename);
result:=cstringconstnode.createstr(tobjectdef(left.resultdef).iidstr^);
tstringconstnode(result).changestringtype(cshortstringtype);
end;
@ -1389,7 +1389,7 @@ implementation
if assigned(tobjectdef(left.resultdef).iidguid) then
begin
if not(oo_has_valid_guid in tobjectdef(left.resultdef).objectoptions) then
CGMessage1(type_interface_has_no_guid,tobjectdef(left.resultdef).typename);
CGMessage1(type_e_interface_has_no_guid,tobjectdef(left.resultdef).typename);
result:=cguidconstnode.create(tobjectdef(left.resultdef).iidguid^);
end;
end;
@ -3386,7 +3386,7 @@ implementation
if assigned(tobjectdef(right.resultdef).iidguid) then
begin
if not(oo_has_valid_guid in tobjectdef(right.resultdef).objectoptions) then
CGMessage1(type_interface_has_no_guid,tobjectdef(right.resultdef).typename);
CGMessage1(type_e_interface_has_no_guid,tobjectdef(right.resultdef).typename);
hp:=cguidconstnode.create(tobjectdef(right.resultdef).iidguid^);
right.free;
right:=hp;