paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stringtoppchar should use tabs instead of backspace as delimiter

Browse Source
This commit is contained in:
michael 2003-03-11 08:26:50 +00:00
parent a33dd56d81
commit 1333fe0f13
2 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/unix/linux.pp
View File

@ -2265,10 +2265,10 @@ begin
nr:=0;
while(buf^<>#0) do
begin
while (buf^ in [' ',#8,#10]) do
while (buf^ in [' ',#9,#10]) do
inc(buf);
inc(nr);
while not (buf^ in [' ',#0,#8,#10]) do
while not (buf^ in [' ',#0,#9,#10]) do
inc(buf);
end;
getmem(p,nr*4+1);
@ -2281,7 +2281,7 @@ begin
buf:=s;
while (buf^<>#0) do
begin
while (buf^ in [' ',#8,#10]) do
while (buf^ in [' ',#9,#10]) do
begin
buf^:=#0;
inc(buf);
@ -2289,7 +2289,7 @@ begin
p^:=buf;
inc(p);
p^:=nil;
while not (buf^ in [' ',#0,#8,#10]) do
while not (buf^ in [' ',#0,#9,#10]) do
inc(buf);
end;
end;
@ -3032,7 +3032,10 @@ End.
{
$Log$
Revision 1.27 2003-01-05 19:11:32 marco
Revision 1.28 2003-03-11 08:26:50 michael
* stringtoppchar should use tabs instead of backspace as delimiter
Revision 1.27 2003/01/05 19:11:32 marco
* small changes originating from introduction of Baseunix to FreeBSD
Revision 1.26 2002/12/18 17:52:07 peter

13
rtl/unix/unix.pp
View File

@ -2295,10 +2295,10 @@ begin
nr:=0;
while(buf^<>#0) do
begin
while (buf^ in [' ',#8,#10]) do
while (buf^ in [' ',#9,#10]) do
inc(buf);
inc(nr);
while not (buf^ in [' ',#0,#8,#10]) do
while not (buf^ in [' ',#0,#9,#10]) do
inc(buf);
end;
getmem(p,nr*4);
@ -2311,7 +2311,7 @@ begin
buf:=s;
while (buf^<>#0) do
begin
while (buf^ in [' ',#8,#10]) do
while (buf^ in [' ',#9,#10]) do
begin
buf^:=#0;
inc(buf);
@ -2319,7 +2319,7 @@ begin
p^:=buf;
inc(p);
p^:=nil;
while not (buf^ in [' ',#0,#8,#10]) do
while not (buf^ in [' ',#0,#9,#10]) do
inc(buf);
end;
end;
@ -3058,7 +3058,10 @@ End.
{
$Log$
Revision 1.25 2002-12-18 16:50:39 marco
Revision 1.26 2003-03-11 08:27:59 michael
* stringtoppchar should use tabs instead of backspace as delimiter
Revision 1.25 2002/12/18 16:50:39 marco
* Unix RTL generic parts. Linux working, *BSD will follow shortly
Revision 1.24 2002/09/07 16:01:28 peter