فهرست منبع

* 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 17 سال پیش
والد
کامیت
f6e004b94b
1فایلهای تغییر یافته به همراه2 افزوده شده و 0 حذف شده
  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;