* fix buffer overflow

packages/base/gdbint/gdbint.pp

@@ -1151,8 +1151,8 @@ begin
   if not assigned(p) then
    exit;
   len:=Strlen(p);
-  if len+idx>size then
-   Resize(len+idx);
+  if len+1+idx>size then
+   Resize(len+1+idx);
   Move(p^,buf[idx],len);
   inc(idx,len);
   buf[idx]:=#0;
@@ -1163,8 +1163,8 @@ procedure tgdbbuffer.lappend(p:pchar;len : longint);
 begin
   if not assigned(p) then
    exit;
-  if len+idx>size then
-   Resize(len+idx);
+  if len+idx+1>size then
+   Resize(len+idx+1);
   Move(p^,buf[idx],len);
   inc(idx,len);
   buf[idx]:=#0;
@@ -2456,7 +2456,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.23  2004-11-06 17:58:35  peter
+  Revision 1.24  2004-12-04 23:06:38  peter
+    * fix buffer overflow
+
+  Revision 1.23  2004/11/06 17:58:35  peter
     * use full static libnames for linux
 
   Revision 1.22  2004/11/05 17:57:04  peter