Selaa lähdekoodia

Also discard lines beginning with # for multiline messages

git-svn-id: trunk@38416 -
pierre 7 vuotta sitten
vanhempi
commit
01154e1f55
1 muutettua tiedostoa jossa 2 lisäystä ja 2 poistoa
  1. 2 2
      compiler/utils/msg2inc.pp

+ 2 - 2
compiler/utils/msg2inc.pp

@@ -102,7 +102,7 @@ begin
       begin
       begin
         if s=']' then
         if s=']' then
          multiline:=false
          multiline:=false
-        else
+        else if (s[1] <> '#') then
          inc(msgsize,length(s)+1); { +1 for linebreak }
          inc(msgsize,length(s)+1); { +1 for linebreak }
       end
       end
      else
      else
@@ -191,7 +191,7 @@ begin
            ptxt^:=#0;
            ptxt^:=#0;
            inc(ptxt);
            inc(ptxt);
          end
          end
-        else
+        else if (s[1] <> '#') then
          begin
          begin
            move(s[1],ptxt^,length(s));
            move(s[1],ptxt^,length(s));
            inc(ptxt,length(s));
            inc(ptxt,length(s));