Sfoglia il codice sorgente

* exec fix
* unused units removed

yuri 22 anni fa
parent
commit
2cbdc6b02c
4 ha cambiato i file con 25 aggiunte e 10 eliminazioni
  1. 5 2
      rtl/os2/classes.pp
  2. 9 3
      rtl/os2/dos.pas
  3. 5 3
      rtl/os2/moncalls.pas
  4. 6 2
      rtl/os2/sysutils.pp

+ 5 - 2
rtl/os2/classes.pp

@@ -24,7 +24,6 @@ unit Classes;
 interface
 
 uses
-  strings,
   sysutils,
   typinfo;
 
@@ -47,7 +46,11 @@ finalization
 end.
 {
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2003-11-05 09:13:59  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
 
   Revision 1.1  2003/10/06 20:33:58  peter

+ 9 - 3
rtl/os2/dos.pas

@@ -236,7 +236,7 @@ end;
 procedure exec(const path:pathstr;const comline:comstr);
 {Execute a program.}
 begin
-    dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline));
+  dosexitcode:=word(exec(path,execrunflags(ExecFlags),efdefault,comline));
 end;
 
 function exec(path:pathstr;runflags:execrunflags;winflags:execwinflags;
@@ -320,7 +320,9 @@ begin
     end ['eax','ebx','ecx','edx','esi','edi'];
 
     //Not clear how to use
-    exec:=DosExecPgm(ObjName, cardinal (RunFlags), Args, Env, Res, Path);
+    DosError:=DosExecPgm(ObjName, cardinal (RunFlags), Args, Env, Res, Path);
+
+    exec:=Res.ExitCode;
 
     freemem(args,ArgsSize);
     FreeMem(env, envc*sizeof(pchar)+16384);
@@ -702,7 +704,11 @@ end;
 end.
 {
   $Log$
-  Revision 1.32  2003-11-02 09:45:32  hajny
+  Revision 1.33  2003-11-05 09:13:59  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.32  2003/11/02 09:45:32  hajny
   SetFTime fix
 
   Revision 1.31  2003/11/01 18:35:12  hajny

+ 5 - 3
rtl/os2/moncalls.pas

@@ -69,8 +69,6 @@ Coding style:
 interface
 {***************************************************************************}
 
-uses    Strings;
-
 {$IFDEF FPC}
     {$PACKRECORDS 1}
 {$ENDIF FPC}
@@ -277,7 +275,11 @@ end.
 
 {
   $Log$
-  Revision 1.2  2002-09-07 16:01:24  peter
+  Revision 1.3  2003-11-05 09:14:00  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.2  2002/09/07 16:01:24  peter
     * old logs removed and tabs fixed
 
 }

+ 6 - 2
rtl/os2/sysutils.pp

@@ -23,7 +23,7 @@ interface
 {$H+}
 
 uses
- Dos, Strings;
+ Dos;
 
 { Include platform independent interface part }
 {$i sysutilh.inc}
@@ -770,7 +770,11 @@ end.
 
 {
   $Log$
-  Revision 1.36  2003-10-27 12:19:20  yuri
+  Revision 1.37  2003-11-05 09:14:00  yuri
+  * exec fix
+  * unused units removed
+
+  Revision 1.36  2003/10/27 12:19:20  yuri
   * GetLocatTime now also native
 
   Revision 1.35  2003/10/27 11:43:40  yuri