From aad1f7964a619973ca4ac7999762a65d59b6e88e Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Mon, 6 Dec 2004 18:50:21 +0000
Subject: [PATCH]   * fix for ExecuteProcess

---
 rtl/os2/sysutils.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/os2/sysutils.pp b/rtl/os2/sysutils.pp
index eb82ce0e3a..1307fc8175 100644
--- a/rtl/os2/sysutils.pp
+++ b/rtl/os2/sysutils.pp
@@ -909,7 +909,7 @@ const
 begin
  ObjName := '';
  GetMem (ObjNameBuf, ObjBufSize);
- FillChar (ObjNameBuf, ObjBufSize, 0);
+ FillChar (ObjNameBuf^, ObjBufSize, 0);
  if ComLine = '' then
   Args := nil
  else
@@ -1017,7 +1017,10 @@ end.
 
 {
   $Log$
-  Revision 1.44  2004-12-05 19:33:08  hajny
+  Revision 1.45  2004-12-06 18:50:21  hajny
+    * fix for ExecuteProcess
+
+  Revision 1.44  2004/12/05 19:33:08  hajny
     * ExecuteProcess update - run VIO apps in the same window
 
   Revision 1.43  2004/02/22 15:01:49  hajny