Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ecl
ecl
Commits
be009ddc
Commit
be009ddc
authored
Dec 29, 2020
by
Marius Gerbershagen
Browse files
unixint.d: fix compilation error when threads are disabled
parent
ca6297dd
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/c/unixint.d
View file @
be009ddc
...
...
@@ -433,7 +433,9 @@ queue_signal(cl_env_ptr env, cl_object code, int allocate)
/* INV: interrupts are disabled, therefore the spinlock will
* always be released */
#
ifdef
ECL_THREADS
ecl_get_spinlock
(
ecl_process_env
(),
&
env
->
interrupt_struct
->
signal_queue_spinlock
);
#
endif
cl_object
record
;
if
(
allocate
)
{
...
...
@@ -452,7 +454,9 @@ queue_signal(cl_env_ptr env, cl_object code, int allocate)
record
);
}
#
ifdef
ECL_THREADS
ecl_giveup_spinlock
(&
env
->
interrupt_struct
->
signal_queue_spinlock
);
#
endif
}
static
cl_object
...
...
@@ -469,8 +473,9 @@ pop_signal(cl_env_ptr env)
* into env, therefore it is valid to use
* ecl_disable_interrupts_env */
ecl_disable_interrupts_env
(
env
);
#
ifdef
ECL_THREADS
ecl_get_spinlock
(
env
,
&
env
->
interrupt_struct
->
signal_queue_spinlock
);
#
endif
if
(
env
->
interrupt_struct
->
pending_interrupt
==
ECL_NIL
)
{
value
=
ECL_NIL
;
}
else
{
...
...
@@ -483,8 +488,9 @@ pop_signal(cl_env_ptr env)
env
->
interrupt_struct
->
signal_queue
=
record
;
}
}
#
ifdef
ECL_THREADS
ecl_giveup_spinlock
(&
env
->
interrupt_struct
->
signal_queue_spinlock
);
#
endif
ecl_enable_interrupts_env
(
env
);
return
value
;
}
...
...
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