summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/ptexdir/pbibtex.ch
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-23 13:07:21 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2010-04-23 13:07:21 +0000
commitd64e27494d29684b840753c87fc3e8a5b6ec3694 (patch)
treed111d1c03bf74ddb42039b778e338787ba176ee5 /Build/source/texk/web2c/ptexdir/pbibtex.ch
parent57c7d41397ed1ec0e244316a88a33bd2b0324ec1 (diff)
more pTeX fixes
git-svn-id: svn://tug.org/texlive/trunk@17974 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/ptexdir/pbibtex.ch')
-rw-r--r--Build/source/texk/web2c/ptexdir/pbibtex.ch13
1 files changed, 9 insertions, 4 deletions
diff --git a/Build/source/texk/web2c/ptexdir/pbibtex.ch b/Build/source/texk/web2c/ptexdir/pbibtex.ch
index c2f36651dda..fae1c10b497 100644
--- a/Build/source/texk/web2c/ptexdir/pbibtex.ch
+++ b/Build/source/texk/web2c/ptexdir/pbibtex.ch
@@ -188,6 +188,12 @@ for i:=@'240 to 254 do char_width[i]:=514;
@z
@x [48] JBibTeX and dynamic buf_size.
+label loop_exit;
+@y
+label loop_exit;
+var i:c_int_type;
+@z
+@x [still 48] JBibTeX and dynamic buf_size.
while (not eoln(f)) do
begin
if (last >= buf_size) then
@@ -197,12 +203,11 @@ for i:=@'240 to 254 do char_width[i]:=514;
end;
vgetc (f); {skip the eol}
@y
- last := input_line2(f,buffer,last,buf_size);
- while (not eof(f)) and (last > 0) and (buffer[last-1] <> xord[10])
- and (buffer[last-1] <> xord[13]) do
+ last := input_line2(f,buffer,last,buf_size,address_of(i));
+ while (not eof(f)) and (last > 0) and (i <> 10) and (i <> 13) do
begin
buffer_overflow;
- last := input_line2(f,buffer,last,buf_size);
+ last := input_line2(f,buffer,last,buf_size,address_of(i));
end;
@z