diff options
Diffstat (limited to 'gcc/ada/g-enblsp-vms-ia64.adb')
| -rw-r--r-- | gcc/ada/g-enblsp-vms-ia64.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/g-enblsp-vms-ia64.adb b/gcc/ada/g-enblsp-vms-ia64.adb index 0224a3decbb..2a1fee8ffbd 100644 --- a/gcc/ada/g-enblsp-vms-ia64.adb +++ b/gcc/ada/g-enblsp-vms-ia64.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2005 Ada Core Technologies, Inc. -- +-- Copyright (C) 2005, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -35,7 +35,7 @@ -- for use by the VMS GNAT.Expect package (g-expect-vms.adb). This package -- should not be directly with'ed by an application program. --- This version is for IA64/VMS. +-- This version is for IA64/VMS separate (GNAT.Expect) procedure Non_Blocking_Spawn @@ -73,7 +73,7 @@ begin raise Invalid_Process; end if; - -- Fork a new process. It's not possible to do this in a subprogram. + -- Fork a new process (it is not possible to do this in a subprogram) if Alloc_Vfork_Blocks >= 0 then Descriptor.Pid := Setjmp1 (Get_Vfork_Jmpbuf); @@ -81,10 +81,10 @@ begin Descriptor.Pid := -1; end if; - -- Are we now in the child (or, for Windows, still in the common - -- process). + -- Are we now in the child if Descriptor.Pid = Null_Pid then + -- Prepare an array of arguments to pass to C Arg := new String (1 .. Command_With_Path'Length + 1); |