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

* Made some fixes so that rstconv now works with range checks enabled

Browse Source
This commit is contained in:
sg 2000-10-03 20:58:50 +00:00
parent ccde8b207f
commit 18ed3a96a1
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
utils/rstconv.pp
View File

@ -77,13 +77,15 @@ begin
if s[i] = '''' then begin if s[i] = '''' then begin
Inc(i); Inc(i);
j := i; j := i;
while s[i] <> '''' do Inc(i); while (i <= Length(s)) and (s[i] <> '''') do
Inc(i);
item.Value := item.Value + Copy(s, j, i - j); item.Value := item.Value + Copy(s, j, i - j);
Inc(i); Inc(i);
end else if s[i] = '#' then begin end else if s[i] = '#' then begin
Inc(i); Inc(i);
j := i; j := i;
while s[i] in ['0'..'9'] do Inc(i); while (i <= Length(s)) and (s[i] in ['0'..'9']) do
Inc(i);
item.Value := item.Value + Chr(StrToInt(Copy(s, j, i - j))); item.Value := item.Value + Chr(StrToInt(Copy(s, j, i - j)));
end else if s[i] = '+' then begin end else if s[i] = '+' then begin
ReadLn(f, s); ReadLn(f, s);
@ -205,7 +207,13 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 10:16:22 michael Revision 1.2 2000-10-03 20:58:50 sg
* Made some fixes so that rstconv now works with range checks enabled
Revision 1.1.2.1 2000/10/03 20:56:06 sg
* Made some fixes so that rstconv now works with range checks enabled
Revision 1.1 2000/07/13 10:16:22 michael
+ Initial import + Initial import
Revision 1.6 2000/07/04 19:05:55 peter Revision 1.6 2000/07/04 19:05:55 peter