|
@@ -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;
|