Browse Source

* executeresult changed to longint instead of word

peter 21 years ago
parent
commit
1d0a9955df
1 changed files with 5 additions and 2 deletions
  1. 5 2
      tests/utils/redir.pp

+ 5 - 2
tests/utils/redir.pp

@@ -53,7 +53,7 @@ Var
   IOStatus                   : Integer;
   IOStatus                   : Integer;
   RedirErrorOut,RedirErrorIn,
   RedirErrorOut,RedirErrorIn,
   RedirErrorError            : Integer;
   RedirErrorError            : Integer;
-  ExecuteResult              : Word;
+  ExecuteResult              : Longint;
 
 
 {------------------------------------------------------------------------------}
 {------------------------------------------------------------------------------}
 procedure InitRedir;
 procedure InitRedir;
@@ -987,7 +987,10 @@ finalization
 End.
 End.
 {
 {
   $Log$
   $Log$
-  Revision 1.18  2004-05-16 20:13:04  peter
+  Revision 1.19  2004-05-25 15:52:48  peter
+    * executeresult changed to longint instead of word
+
+  Revision 1.18  2004/05/16 20:13:04  peter
     * remote execute updates, see readme.txt
     * remote execute updates, see readme.txt
 
 
   Revision 1.17  2004/05/03 14:48:51  peter
   Revision 1.17  2004/05/03 14:48:51  peter