paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 17:51:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed range errror

Browse Source
This commit is contained in:
peter 1998-08-18 09:05:00 +00:00
parent 129d447327
commit 8f0342912e
1 changed files with 7 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/messages.pas
View File

@ -107,11 +107,13 @@ begin
while (i<bufread) and (n<msgs) do
begin
j:=0;
while (not (p[j] in [#10,#13])) and (j<255) and (i<bufread) do
while (i<bufread) and (not (p[j] in [#10,#13])) and (j<255) do
begin
inc(i);
inc(j);
end;
if (i>=bufread) then
break;
if not (p[0] in [';','#']) then
begin
hpl^:=p;
@ -125,7 +127,7 @@ begin
repeat
inc(i);
inc(j);
until not (p[j] in [#10,#13]);
until (i>=bufread) or not(p[j] in [#10,#13]);
p:=pchar(@p[j]);
end;
end;
@ -212,18 +214,7 @@ end;
end.
{
$Log$
Revision 1.1 1998-03-25 11:18:13 root
Initial revision
Revision 1.2 1998-08-18 09:05:00 peter
* fixed range errror
Revision 1.3 1998/03/10 01:17:20 peter
* all files have the same header
* messages are fully implemented, EXTDEBUG uses Comment()
+ AG... files for the Assembler generation
Revision 1.2 1998/03/05 02:44:12 peter
* options cleanup and use of .msg file
Revision 1.1 1998/03/02 01:55:19 peter
+ Initial implementation
}
}