diff options
| author | Sergei Trofimovich <siarheit@google.com> | 2017-01-29 21:11:40 +0000 |
|---|---|---|
| committer | Sergei Trofimovich <siarheit@google.com> | 2017-01-29 21:21:42 +0000 |
| commit | 4441f90738e27ea7ba368723f27d19c03093aa66 (patch) | |
| tree | 25dd00e748c84e0267a576ca3cda538430690a4a | |
| parent | 34a0205587c8c6017a26ddf7023e91789da2e81b (diff) | |
| download | haskell-4441f90738e27ea7ba368723f27d19c03093aa66.tar.gz | |
UNREG: add a forward declaration for local literals
When toplevel literals don't have a way to be exported
from module GHC infers their labels as static.
Example from GHC.Arr:
static char rdVA_bytes[] = " out of range ";
When this label is used in module internally
we also need to provide it's forward declaration.
Signed-off-by: Sergei Trofimovich <siarheit@google.com>
| -rw-r--r-- | includes/Stg.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/includes/Stg.h b/includes/Stg.h index e3de331d3f..939bed6444 100644 --- a/includes/Stg.h +++ b/includes/Stg.h @@ -224,6 +224,7 @@ typedef StgWord StgWordArray[]; typedef StgFunPtr F_; #define EB_(X) extern char X[] +#define IB_(X) static char X[] #define EI_(X) extern StgWordArray (X) GNU_ATTRIBUTE(aligned (8)) #define II_(X) static StgWordArray (X) GNU_ATTRIBUTE(aligned (8)) #define IF_(f) static StgFunPtr GNUC3_ATTRIBUTE(used) f(void) |