paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 20:18:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed another range check error (merged from fixes branch)

Browse Source
This commit is contained in:
Jonas Maebe 2000-10-09 14:54:27 +00:00
parent 9e0774ac3b
commit c1e14ef033
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/msgidx.inc
View File

@ -561,5 +561,5 @@ const
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
17,58,165,34,41,41,86,14,35,40, 17,58,165,34,41,41,86,14,35,40,
26,1,1,1,1,1,1,1,1,16777217 26,1,1,1,1,1,1,1,1,1
); );

9
compiler/utils/msg2inc.pp
View File

@ -41,7 +41,7 @@ var
enumsize, enumsize,
msgsize : longint; msgsize : longint;
msgidxmax : array[0..msgparts] of longint; msgidxmax : array[1..msgparts] of longint;
msgs : array[0..msgparts,0..999] of boolean; msgs : array[0..msgparts,0..999] of boolean;
procedure LoadMsgFile(const fn:string); procedure LoadMsgFile(const fn:string);
@ -266,7 +266,7 @@ begin
{ max msg idx table } { max msg idx table }
writeln(t,' MsgIdxMax : array[1..20] of longint=('); writeln(t,' MsgIdxMax : array[1..20] of longint=(');
write(t,' '); write(t,' ');
for i:=1to 20 do for i:=1 to 20 do
begin begin
write(t,msgidxmax[i]+1); write(t,msgidxmax[i]+1);
if i<20 then if i<20 then
@ -805,7 +805,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.5 2000-09-30 13:13:22 peter Revision 1.6 2000-10-09 14:54:27 jonas
* fixed another range check error (merged from fixes branch)
Revision 1.5 2000/09/30 13:13:22 peter
* range check fix * range check fix
Revision 1.3 2000/09/27 20:59:55 peter Revision 1.3 2000/09/27 20:59:55 peter