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

* fixed range errors (merged from fixes branch)

Browse Source
This commit is contained in:
Jonas Maebe 2000-09-28 11:57:03 +00:00
parent 45d4e0202a
commit 828ee99e2d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/utils/msg2inc.pp
View File

@ -114,7 +114,7 @@ begin
{ update the max index }
val(number,num,code);
numpart:=num div 1000;
numidx:=num mod 1000;
numidx:=succ(num mod 1000);
{ duplicate ? }
if msgs[numpart,numidx] then
err('duplicate number found');
@ -266,7 +266,8 @@ begin
write(t,' ');
for i:=1to 20 do
begin
write(t,msgidxmax[i]+1);
{ no +1 anymore because we now have succ(number mod 1000) (JM) }
write(t,msgidxmax[i]);
if i<20 then
write(t,',');
if i=10 then
@ -803,7 +804,10 @@ begin
end.
{
$Log$
Revision 1.3 2000-09-27 20:59:55 peter
Revision 1.4 2000-09-28 11:57:03 jonas
* fixed range errors (merged from fixes branch)
Revision 1.3 2000/09/27 20:59:55 peter
* check for dup numbers
Revision 1.2 2000/07/13 11:32:55 michael