Ver Fonte

* fixed long line for tp7

peter há 25 anos atrás
pai
commit
d371c67332
1 ficheiros alterados com 6 adições e 2 exclusões
  1. 6 2
      compiler/hcgdata.pas

+ 6 - 2
compiler/hcgdata.pas

@@ -584,7 +584,8 @@ implementation
                                     end;
                                     end;
                                   { check, if a method should be overridden }
                                   { check, if a method should be overridden }
                                   if (po_overridingmethod in hp^.procoptions) then
                                   if (po_overridingmethod in hp^.procoptions) then
-                                   MessagePos1(hp^.fileinfo,parser_e_nothing_to_be_overridden,_c^.objname^+'.'+_name+hp^.demangled_paras);
+                                   MessagePos1(hp^.fileinfo,parser_e_nothing_to_be_overridden,
+                                     _c^.objname^+'.'+_name+hp^.demangled_paras);
                                end;
                                end;
                              hp:=hp^.nextoverloaded;
                              hp:=hp^.nextoverloaded;
                           end;
                           end;
@@ -696,7 +697,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.26  2000-03-06 15:57:42  peter
+  Revision 1.27  2000-04-29 12:49:30  peter
+    * fixed long line for tp7
+
+  Revision 1.26  2000/03/06 15:57:42  peter
     * better error pos for overridden error
     * better error pos for overridden error
 
 
   Revision 1.25  2000/02/09 13:22:53  peter
   Revision 1.25  2000/02/09 13:22:53  peter