diff options
| author | Nicolas Trangez <ikke@nicolast.be> | 2022-10-30 22:56:24 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-11-02 12:06:48 -0400 |
| commit | 99a1d896bca1c2e1068646eed50b02314673236c (patch) | |
| tree | 27d6477b740341086cbcbae4b34df547fdd26e47 /rts/include | |
| parent | 81c0c7c94a58d7ed5634abbb002ef88ef903e218 (diff) | |
| download | haskell-99a1d896bca1c2e1068646eed50b02314673236c.tar.gz | |
rts: add and use `STG_RETURNS_NONNULL`
See: https://gcc.gnu.org/onlinedocs/gcc/Common-Function-Attributes.html#index-returns_005fnonnull-function-attribute
See: https://gitlab.haskell.org/ghc/ghc/-/issues/22381
Diffstat (limited to 'rts/include')
| -rw-r--r-- | rts/include/Stg.h | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/rts/include/Stg.h b/rts/include/Stg.h index 5b5ba3ddb7..bd15e73cda 100644 --- a/rts/include/Stg.h +++ b/rts/include/Stg.h @@ -294,6 +294,15 @@ # define STG_ALLOC_SIZE2(position1, position2) #endif +/* + * https://gcc.gnu.org/onlinedocs/gcc/Common-Function-Attributes.html#index-returns_005fnonnull-function-attribute + */ +#if stg__has_attribute(__returns_nonnull__) +# define STG_RETURNS_NONNULL __attribute__((__returns_nonnull__)) +#else +# define STG_RETURNS_NONNULL +#endif + /* ----------------------------------------------------------------------------- Global type definitions -------------------------------------------------------------------------- */ |