Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
0d305ef0
Commit
0d305ef0
authored
Jun 11, 2014
by
Arnaud Charlet
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Minor reformatting.
From-SVN: r211463
parent
a54e3bf0
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
4 deletions
+5
-4
gcc/ada/s-taprop-linux.adb
+3
-1
gcc/ada/s-tassta.adb
+2
-3
No files found.
gcc/ada/s-taprop-linux.adb
View file @
0d305ef0
...
...
@@ -1076,9 +1076,11 @@ package body System.Task_Primitives.Operations is
procedure Abort_Task (T : Task_Id) is
Result : Interfaces.C.int;
ESRCH : constant := 3; -- No such process
ESRCH : constant := 3; -- No such process
-- It can happen that T has already vanished, in which case pthread_kill
-- returns ESRCH, so we don'
t
consider
that
to
be
an
error
.
begin
if
Abort_Handler_Installed
then
Result
:=
...
...
gcc/ada/s-tassta.adb
View file @
0d305ef0
...
...
@@ -870,15 +870,14 @@ package body System.Tasking.Stages is
Write_Lock
(
Self_ID
);
--
If
the
Abort_Task
signal
is
set
to
system
,
it
means
that
we
may
--
not
have
been
able
to
abort
all
independent
tasks
(
in
particular
--
not
have
been
able
to
abort
all
independent
tasks
(
in
particular
,
--
Server_Task
may
be
blocked
,
waiting
for
a
signal
),
in
which
case
,
do
--
not
wait
for
Independent_Task_Count
to
go
down
to
0.
We
arbitrarily
--
limit
the
number
of
loop
iterations
;
if
an
independent
task
does
not
--
terminate
,
we
do
not
want
to
hang
here
.
In
that
case
,
the
thread
will
--
be
terminated
when
the
process
exits
.
if
State
(
System
.
Interrupt_Management
.
Abort_Task_Interrupt
)
/=
Default
if
State
(
System
.
Interrupt_Management
.
Abort_Task_Interrupt
)
/=
Default
then
for
J
in
1
..
10
loop
exit
when
Utilities
.
Independent_Task_Count
=
0
;
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment