Преглед изворни кода

* Fix overflow of compiler messages (bug id 27973)

git-svn-id: trunk@43481 -
michael пре 5 година
родитељ
комит
43a09af7f2
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/utils/msg2inc.pp

+ 1 - 1
compiler/utils/msg2inc.pp

@@ -714,7 +714,7 @@ begin
                end;
               if s[i+k]='_' then
                inc(i,k+1);
-              writeln(t,'\item ['+s1+escapestring(Copy(s,i,255))+']');
+              writeln(t,'\item ['+s1+escapestring(Copy(s,i,255))+'] \hfill \\');
             end
            else
             writeln('error in line: ',line,' skipping');