diff options
author | Clemens Fruhwirth <clemens@endorphin.org> | 2007-08-06 08:49:38 +0000 |
---|---|---|
committer | Clemens Fruhwirth <clemens@endorphin.org> | 2007-08-06 08:49:38 +0000 |
commit | 82f8341d3d87d9127c968baa9c3376e3f26caa81 (patch) | |
tree | 1fe4617a134b6853f340a0b0b98243e6ff41b075 /rts/StgMiscClosures.cmm | |
parent | b99310f05faee2abec850da4349fcd5c0498f7ca (diff) | |
download | haskell-82f8341d3d87d9127c968baa9c3376e3f26caa81.tar.gz |
Add explicit imports for RTS-external variables
Diffstat (limited to 'rts/StgMiscClosures.cmm')
-rw-r--r-- | rts/StgMiscClosures.cmm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index ebf9e922ae..4eb20ddfd8 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -12,6 +12,10 @@ #include "Cmm.h" +import pthread_mutex_lock; +import base_GHCziBase_Czh_static_info; +import base_GHCziBase_Izh_static_info; + /* ---------------------------------------------------------------------------- Support for the bytecode interpreter. ------------------------------------------------------------------------- */ @@ -599,10 +603,9 @@ CLOSURE(stg_dummy_ret_closure,stg_dummy_ret); * when we've got the real addresses to the C# and I# closures. * */ -static INFO_TBL_CONST StgInfoTable czh_static_info; -static INFO_TBL_CONST StgInfoTable izh_static_info; -#define Char_hash_static_info czh_static_info -#define Int_hash_static_info izh_static_info +#warning Is this correct? _imp is a pointer! +#define Char_hash_static_info _imp__base_GHCziBase_Czh_static +#define Int_hash_static_info _imp__base_GHCziBase_Izh_static #else #define Char_hash_static_info base_GHCziBase_Czh_static #define Int_hash_static_info base_GHCziBase_Izh_static |