paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:09:20 +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 } { update the max index }
val(number,num,code); val(number,num,code);
numpart:=num div 1000; numpart:=num div 1000;
numidx:=num mod 1000; numidx:=succ(num mod 1000);
{ duplicate ? } { duplicate ? }
if msgs[numpart,numidx] then if msgs[numpart,numidx] then
err('duplicate number found'); err('duplicate number found');
@ -266,7 +266,8 @@ begin
write(t,' '); write(t,' ');
for i:=1to 20 do for i:=1to 20 do
begin 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 if i<20 then
write(t,','); write(t,',');
if i=10 then if i=10 then
@ -803,7 +804,10 @@ begin
end. end.
{ {
$Log$ $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 * check for dup numbers
Revision 1.2 2000/07/13 11:32:55 michael Revision 1.2 2000/07/13 11:32:55 michael