From c5eb27f47530bb8931661a827bbbf62cc418f7fc Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 13 Sep 2002 13:03:27 +0000
Subject: [PATCH]   * fixed buffer overflow error in StringToPPChar(), detected
 using     DIOTA (http://www.elis/rug.ac.be/~ronsse/diota) (which I also work
 on :)     (merged)

---
 rtl/unix/linux.pp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/rtl/unix/linux.pp b/rtl/unix/linux.pp
index 8930ecbde8..89d8fdffec 100644
--- a/rtl/unix/linux.pp
+++ b/rtl/unix/linux.pp
@@ -2271,7 +2271,7 @@ begin
      while not (buf^ in [' ',#0,#8,#10]) do
       inc(buf);
    end;
-  getmem(p,nr*4);
+  getmem(p,nr*4+1);
   StringToPPChar:=p;
   if p=nil then
    begin
@@ -3032,7 +3032,12 @@ End.
 
 {
   $Log$
-  Revision 1.23  2002-09-07 16:01:27  peter
+  Revision 1.24  2002-09-13 13:03:27  jonas
+    * fixed buffer overflow error in StringToPPChar(), detected using
+      DIOTA (http://www.elis/rug.ac.be/~ronsse/diota) (which I also work on :)
+      (merged)
+
+  Revision 1.23  2002/09/07 16:01:27  peter
     * old logs removed and tabs fixed
 
   Revision 1.22  2002/08/06 13:30:46  sg