diff options
| author | mniip <mniip@mniip.com> | 2016-08-30 16:57:47 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-08-30 17:50:51 -0400 |
| commit | a25bf2673d0f6db5f454619ddf91f974cace4e8b (patch) | |
| tree | 7b56d2ecef4a88999c8743d1ddc97a3b02c6933a /rts/RtsSymbols.c | |
| parent | 83b326cda759cfd4c538595cf38ee23eb81a4c76 (diff) | |
| download | haskell-a25bf2673d0f6db5f454619ddf91f974cace4e8b.tar.gz | |
Tag pointers in interpreted constructors
Instead of stg_interp_constr_entry there are now 7 functions (one for
each value of the tag bits) that tag the constructor pointer before
returning. This is consistent with compiled constructors' entry code,
and expectations that compiled code places on compiled constructors. The
iserv protocol is extended with an extra field that explains what
pointer tag the constructor should use.
Test Plan: Added tests for #12523
Reviewers: erikd, bgamari, hvr, austin, simonmar
Reviewed By: simonmar
Subscribers: osa1, thomie, rwbarton
Differential Revision: https://phabricator.haskell.org/D2473
GHC Trac Issues: #12523
Diffstat (limited to 'rts/RtsSymbols.c')
| -rw-r--r-- | rts/RtsSymbols.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index cc26ecbddf..605a669c21 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -714,7 +714,13 @@ SymI_HasProto(stg_waitWritezh) \ SymI_HasProto(stg_writeTVarzh) \ SymI_HasProto(stg_yieldzh) \ - SymI_NeedsProto(stg_interp_constr_entry) \ + SymI_NeedsProto(stg_interp_constr1_entry) \ + SymI_NeedsProto(stg_interp_constr2_entry) \ + SymI_NeedsProto(stg_interp_constr3_entry) \ + SymI_NeedsProto(stg_interp_constr4_entry) \ + SymI_NeedsProto(stg_interp_constr5_entry) \ + SymI_NeedsProto(stg_interp_constr6_entry) \ + SymI_NeedsProto(stg_interp_constr7_entry) \ SymI_HasProto(stg_arg_bitmaps) \ SymI_HasProto(large_alloc_lim) \ SymI_HasProto(g0) \ |