Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
a55ebc70
Commit
a55ebc70
authored
Apr 01, 2002
by
panne
Browse files
[project @ 2002-04-01 11:18:18 by panne]
"warning: unused variable"-police
parent
6c2e8818
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Linker.c
View file @
a55ebc70
/* -----------------------------------------------------------------------------
* $Id: Linker.c,v 1.8
5
2002/0
3/29 20:46:50 krasimir
Exp $
* $Id: Linker.c,v 1.8
6
2002/0
4/01 11:18:18 panne
Exp $
*
* (c) The GHC Team, 2000, 2001
*
...
...
@@ -2144,9 +2144,11 @@ do_Elf32_Rela_relocations ( ObjectCode* oc, char* ehdrC,
for
(
j
=
0
;
j
<
nent
;
j
++
)
{
Elf32_Addr
offset
=
rtab
[
j
].
r_offset
;
Elf32_Word
info
=
rtab
[
j
].
r_info
;
# if defined(sparc_TARGET_ARCH) || defined(DEBUG)
Elf32_Sword
addend
=
rtab
[
j
].
r_addend
;
Elf32_Addr
A
=
addend
;
# endif
Elf32_Addr
P
=
((
Elf32_Addr
)
targ
)
+
offset
;
Elf32_Addr
A
=
addend
;
/* Do not delete this; it is used on sparc. */
Elf32_Addr
S
;
# if defined(sparc_TARGET_ARCH)
/* This #ifdef only serves to avoid unused-var warnings. */
...
...
ghc/rts/Schedule.c
View file @
a55ebc70
/* ---------------------------------------------------------------------------
* $Id: Schedule.c,v 1.13
4
2002/0
3/12 13:57:11 simonmar
Exp $
* $Id: Schedule.c,v 1.13
5
2002/0
4/01 11:18:19 panne
Exp $
*
* (c) The GHC Team, 1998-2000
*
...
...
@@ -2248,8 +2248,6 @@ take_off_run_queue(StgTSO *tso) {
void
GetRoots
(
evac_fn
evac
)
{
StgMainThread
*
m
;
#if defined(GRAN)
{
nat
i
;
...
...
@@ -3087,7 +3085,9 @@ raiseAsync(StgTSO *tso, StgClosure *exception)
* top of the CATCH_FRAME ready to enter.
*/
if
(
get_itbl
(
su
)
->
type
==
CATCH_FRAME
&&
exception
!=
NULL
)
{
#ifdef PROFILING
StgCatchFrame
*
cf
=
(
StgCatchFrame
*
)
su
;
#endif
StgClosure
*
raise
;
/* we've got an exception to raise, so let's pass it to the
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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