Browse Source

* fix for renaming of type_interface_noguid (or so) to type_E_interface...
by Florian in r17722

git-svn-id: trunk@17731 -

marco 14 years ago
parent
commit
90c47c5c86
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/ncnv.pas

+ 3 - 3
compiler/ncnv.pas

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