浏览代码

* stringtoppchar should use tabs instead of backspace as delimiter

michael 22 年之前
父节点
当前提交
1333fe0f13
共有 2 个文件被更改,包括 16 次插入10 次删除
  1. 8 5
      rtl/unix/linux.pp
  2. 8 5
      rtl/unix/unix.pp

+ 8 - 5
rtl/unix/linux.pp

@@ -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

+ 8 - 5
rtl/unix/unix.pp

@@ -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