paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 22:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix msgtxt array size if the text size is an exact multiple of 240

Browse Source 
git-svn-id: trunk@41725 -
This commit is contained in:
Jonas Maebe 2019-03-17 15:22:06 +00:00
parent bde560dac2
commit 1bb8bd471a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/utils/msg2inc.pp
View File

@ -411,7 +411,7 @@ begin
writeln(t,');');
close(t);
{update arraysize}
s:=l0(msgsize div maxslen); { we start with 0 }
s:=l0((msgsize-1) div maxslen); { we start with 0 }
assign(f,fn);
reset(f,1);
seek(f,22+34+2*eollen+2*length(constname));