Parcourir la source

* fixed error that only really caused progblems if the total size
of the messages text is a multiple of 240

git-svn-id: branches/wpo@11894 -

Jonas Maebe il y a 17 ans
Parent
commit
f6e004b94b
1 fichiers modifiés avec 2 ajouts et 0 suppressions
  1. 2 0
      compiler/utils/msg2inc.pp

+ 2 - 0
compiler/utils/msg2inc.pp

@@ -161,6 +161,8 @@ begin
      writeln('aborting');
      halt(1);
    end;
+{ no linebreak after last entry }
+  dec(msgsize);
 { alloc memory }
   getmem(msgtxt,msgsize);
   ptxt:=msgtxt;