diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-01-19 17:24:52 +0100 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2021-01-19 17:24:52 +0100 |
| commit | 90e6fdfb2bd344087a1e500b7192c2f2de11017d (patch) | |
| tree | 0bd266d6f0be017019724348717942577de532b3 | |
| parent | 0dba78410887ffc3d219639081e284ef7b67560a (diff) | |
| download | haskell-wip/andreask/no_inline_derefStable.tar.gz | |
Force inlining of deRefStablePtr to silence warningswip/andreask/no_inline_derefStable
| -rw-r--r-- | includes/rts/StablePtr.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/includes/rts/StablePtr.h b/includes/rts/StablePtr.h index 56113b9f81..73cd5bed4d 100644 --- a/includes/rts/StablePtr.h +++ b/includes/rts/StablePtr.h @@ -13,7 +13,7 @@ #pragma once -EXTERN_INLINE StgPtr deRefStablePtr (StgStablePtr stable_ptr); +ATTR_ALWAYS_INLINE EXTERN_INLINE StgPtr deRefStablePtr (StgStablePtr stable_ptr); StgStablePtr getStablePtr (StgPtr p); /* ----------------------------------------------------------------------------- @@ -28,7 +28,7 @@ typedef struct { extern DLL_IMPORT_RTS spEntry *stable_ptr_table; -EXTERN_INLINE +ATTR_ALWAYS_INLINE EXTERN_INLINE StgPtr deRefStablePtr(StgStablePtr sp) { // acquire load to ensure that we see the new SPT if it has been recently |