Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
51b85031
Commit
51b85031
authored
Jun 17, 2010
by
Simon Marlow
Browse files
Fix the symbol visibility pragmas
parent
a998343d
Changes
45
Hide whitespace changes
Inline
Side-by-side
includes/Rts.h
View file @
51b85031
...
...
@@ -57,15 +57,7 @@ extern "C" {
#define RTS_PRIVATE
/* disabled: RTS_PRIVATE */
#endif
#if __GNUC__ > 4
#define BEGIN_RTS_PRIVATE #pragma GCC visibility push(hidden)
#define END_RTS_PRIVATE #pragma GCC visibility pop
#else
#define BEGIN_RTS_PRIVATE
/* disabled: BEGIN_RTS_PRIVATE */
#define END_RTS_PRIVATE
/* disabled: END_RTS_PRIVATE */
#endif
#if __GNUC__ > 4
#if __GNUC__ >= 4
#define RTS_UNLIKELY(p) __builtin_expect((p),0)
#else
#define RTS_UNLIKELY(p) p
...
...
rts/BeginPrivate.h
0 → 100644
View file @
51b85031
#if __GNUC__ >= 4
#pragma GCC visibility push(hidden)
#endif
rts/Capability.h
View file @
51b85031
...
...
@@ -25,7 +25,7 @@
#include
"Task.h"
#include
"Sparks.h"
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
struct
Capability_
{
// State required by the STG virtual machine when running Haskell
...
...
@@ -357,6 +357,6 @@ INLINE_HEADER rtsBool emptyInbox(Capability *cap)
#endif
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* CAPABILITY_H */
rts/EndPrivate.h
0 → 100644
View file @
51b85031
#if __GNUC__ >= 4
#pragma GCC visibility pop
#endif
rts/FrontPanel.h
View file @
51b85031
...
...
@@ -9,7 +9,7 @@
#ifndef FRONTPANEL_H
#define FRONTPANEL_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
#ifdef RTS_GTK_FRONTPANEL
...
...
@@ -33,7 +33,7 @@ extern gboolean continue_now, stop_now, quit;
#endif
/* RTS_GTK_FRONTPANEL */
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* FRONTPANEL_H */
rts/GetTime.h
View file @
51b85031
...
...
@@ -9,7 +9,7 @@
#ifndef GETTIME_H
#define GETTIME_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
// We'll use a fixed resolution of usec for now. The machine
// dependent implementation may have a different resolution, but we'll
...
...
@@ -25,6 +25,6 @@ void getProcessTimes (Ticks *user, Ticks *elapsed);
// Not strictly timing, but related
nat
getPageFaults
(
void
);
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* GETTIME_H */
rts/Hash.h
View file @
51b85031
...
...
@@ -9,7 +9,7 @@
#ifndef HASH_H
#define HASH_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
typedef
struct
hashtable
HashTable
;
/* abstract */
...
...
@@ -47,7 +47,7 @@ void freeHashTable ( HashTable *table, void (*freeDataFun)(void *) );
void
exitHashTable
(
void
);
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* HASH_H */
rts/Messages.h
View file @
51b85031
...
...
@@ -6,7 +6,7 @@
*
* --------------------------------------------------------------------------*/
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
nat
messageBlackHole
(
Capability
*
cap
,
MessageBlackHole
*
msg
);
...
...
@@ -15,4 +15,4 @@ void executeMessage (Capability *cap, Message *m);
void
sendMessage
(
Capability
*
from_cap
,
Capability
*
to_cap
,
Message
*
msg
);
#endif
END_RTS_PRIVATE
#include
"EndPrivate.h"
rts/Papi.h
View file @
51b85031
...
...
@@ -8,7 +8,7 @@
#ifndef PAPI_H
#define PAPI_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
/* Check the error value of a PAPI call, reporting an error, if needed */
extern
int
papi_error
;
...
...
@@ -31,6 +31,6 @@ void papi_stop_gc1_count(void);
void
papi_thread_start_gc1_count
(
int
event_set
);
void
papi_thread_stop_gc1_count
(
int
event_set
);
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* PAPI_H */
rts/Printer.h
View file @
51b85031
...
...
@@ -9,7 +9,7 @@
#ifndef PRINTER_H
#define PRINTER_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
extern
void
printPtr
(
StgPtr
p
);
extern
void
printObj
(
StgClosure
*
obj
);
...
...
@@ -34,7 +34,7 @@ extern const char *lookupGHCName( void *addr );
extern
char
*
what_next_strs
[];
#endif
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* PRINTER_H */
rts/ProfHeap.h
View file @
51b85031
...
...
@@ -9,7 +9,7 @@
#ifndef PROFHEAP_H
#define PROFHEAP_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
void
heapCensus
(
void
);
nat
initHeapProfiling
(
void
);
...
...
@@ -17,6 +17,6 @@ void endHeapProfiling (void);
void
LDV_recordDead
(
StgClosure
*
c
,
nat
size
);
rtsBool
strMatchesSelector
(
char
*
str
,
char
*
sel
);
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* PROFHEAP_H */
rts/Profiling.h
View file @
51b85031
...
...
@@ -11,7 +11,7 @@
#include
<stdio.h>
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
void
initProfiling1
(
void
);
void
freeProfiling1
(
void
);
...
...
@@ -37,6 +37,6 @@ void debugCCS( CostCentreStack *ccs );
#endif
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* PROFILING_H */
rts/Proftimer.h
View file @
51b85031
...
...
@@ -9,7 +9,7 @@
#ifndef PROFTIMER_H
#define PROFTIMER_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
void
initProfTimer
(
void
);
void
handleProfTick
(
void
);
...
...
@@ -24,6 +24,6 @@ void startHeapProfTimer ( void );
extern
rtsBool
performHeapProfile
;
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* PROFTIMER_H */
rts/RaiseAsync.h
View file @
51b85031
...
...
@@ -14,7 +14,7 @@
#ifndef CMINUSMINUS
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
void
throwToSingleThreaded
(
Capability
*
cap
,
StgTSO
*
tso
,
...
...
@@ -64,7 +64,7 @@ interruptible(StgTSO *t)
}
}
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* CMINUSMINUS */
...
...
rts/RetainerProfile.h
View file @
51b85031
...
...
@@ -14,7 +14,7 @@
#include
"RetainerSet.h"
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
void
initRetainerProfiling
(
void
);
void
endRetainerProfiling
(
void
);
...
...
@@ -43,7 +43,7 @@ retainerSetOf( StgClosure *c )
extern
lnat
retainerStackBlocks
(
void
);
#endif
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* PROFILING */
...
...
rts/RetainerSet.h
View file @
51b85031
...
...
@@ -14,7 +14,7 @@
#ifdef PROFILING
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
/*
Type 'retainer' defines the retainer identity.
...
...
@@ -199,7 +199,7 @@ void outputAllRetainerSet(FILE *);
// the best place to define it.
void
printRetainer
(
FILE
*
,
retainer
);
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* PROFILING */
#endif
/* RETAINERSET_H */
rts/RtsSignals.h
View file @
51b85031
...
...
@@ -25,7 +25,7 @@
#if RTS_USER_SIGNALS
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
/*
* Function: initUserSignals()
...
...
@@ -60,7 +60,7 @@ void awaitUserSignals(void);
*/
void
markSignalHandlers
(
evac_fn
evac
,
void
*
user
);
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* RTS_USER_SIGNALS */
...
...
rts/RtsUtils.h
View file @
51b85031
...
...
@@ -9,7 +9,7 @@
#ifndef RTSUTILS_H
#define RTSUTILS_H
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
/* -----------------------------------------------------------------------------
* (Checked) dynamic allocation
...
...
@@ -48,6 +48,6 @@ int genericRaise(int sig);
int
rts_isProfiled
(
void
);
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* RTSUTILS_H */
rts/STM.h
View file @
51b85031
...
...
@@ -40,7 +40,7 @@
#define STM_UNIPROC
#endif
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
/*----------------------------------------------------------------------
...
...
@@ -225,7 +225,7 @@ void stmWriteTVar(Capability *cap,
/*----------------------------------------------------------------------*/
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* STM_H */
rts/Schedule.h
View file @
51b85031
...
...
@@ -14,7 +14,7 @@
#include
"Capability.h"
#include
"Trace.h"
BEGIN_RTS_PRIVATE
#include
"BeginPrivate.h"
/* initScheduler(), exitScheduler()
* Called from STG : no
...
...
@@ -214,7 +214,7 @@ emptyThreadQueues(Capability *cap)
#endif
/* !IN_STG_CODE */
END_RTS_PRIVATE
#include
"EndPrivate.h"
#endif
/* SCHEDULE_H */
Prev
1
2
3
Next
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