File tree 2 files changed +8
-16
lines changed
2 files changed +8
-16
lines changed Original file line number Diff line number Diff line change @@ -211,13 +211,11 @@ package body Spawn.Internal is
211
211
-- ----------------
212
212
213
213
procedure Kill_Process (Self : in out Process'Class) is
214
- use type Interfaces.C.int;
215
-
216
- Code : constant Interfaces.C.int :=
214
+ Ignore : constant Interfaces.C.int :=
217
215
Spawn.Posix.kill
218
216
(Self.pid, Interfaces.C.int (System.OS_Interface.SIGKILL));
219
217
begin
220
- pragma Assert (Code = 0 ) ;
218
+ null ;
221
219
end Kill_Process ;
222
220
223
221
-- ---------------------
@@ -342,13 +340,11 @@ package body Spawn.Internal is
342
340
-- ---------------------
343
341
344
342
procedure Terminate_Process (Self : in out Process'Class) is
345
- use type Interfaces.C.int;
346
-
347
- Code : constant Interfaces.C.int :=
343
+ Ignore : constant Interfaces.C.int :=
348
344
Spawn.Posix.kill
349
345
(Self.pid, Interfaces.C.int (System.OS_Interface.SIGTERM));
350
346
begin
351
- pragma Assert (Code = 0 ) ;
347
+ null ;
352
348
end Terminate_Process ;
353
349
354
350
-- ------------------------
Original file line number Diff line number Diff line change @@ -90,13 +90,11 @@ package body Spawn.Internal is
90
90
-- ----------------
91
91
92
92
procedure Kill_Process (Self : in out Process'Class) is
93
- use type Interfaces.C.int;
94
-
95
- Code : constant Interfaces.C.int :=
93
+ Ignore : constant Interfaces.C.int :=
96
94
Spawn.Posix.kill
97
95
(Self.pid, Interfaces.C.int (System.OS_Interface.SIGKILL));
98
96
begin
99
- pragma Assert (Code = 0 ) ;
97
+ null ;
100
98
end Kill_Process ;
101
99
102
100
-- --------------
@@ -174,13 +172,11 @@ package body Spawn.Internal is
174
172
-- ---------------------
175
173
176
174
procedure Terminate_Process (Self : in out Process'Class) is
177
- use type Interfaces.C.int;
178
-
179
- Code : constant Interfaces.C.int :=
175
+ Ignore : constant Interfaces.C.int :=
180
176
Spawn.Posix.kill
181
177
(Self.pid, Interfaces.C.int (System.OS_Interface.SIGTERM));
182
178
begin
183
- pragma Assert (Code = 0 ) ;
179
+ null ;
184
180
end Terminate_Process ;
185
181
186
182
-- ------------------------
You can’t perform that action at this time.
0 commit comments