diff options
| author | Rickard Green <[email protected]> | 2016-09-02 15:05:26 +0200 |
|---|---|---|
| committer | Rickard Green <[email protected]> | 2016-09-02 15:05:26 +0200 |
| commit | 18c52187b1714284416a8a1d618ce4db831d1a45 (patch) | |
| tree | 54b35468ef7d0ad5366dae81b3d8f7fe2e224b1a | |
| parent | 82e5d81d57676a9e039d93544583895e92840beb (diff) | |
| download | otp-18c52187b1714284416a8a1d618ce4db831d1a45.tar.gz otp-18c52187b1714284416a8a1d618ce4db831d1a45.tar.bz2 otp-18c52187b1714284416a8a1d618ce4db831d1a45.zip | |
Introduce literal sweep of native stack in new purge strategy
| -rw-r--r-- | erts/emulator/beam/beam_bif_load.c | 5 | ||||
| -rw-r--r-- | erts/emulator/test/hipe_SUITE.erl | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/erts/emulator/beam/beam_bif_load.c b/erts/emulator/beam/beam_bif_load.c index ba79068859..dddcfbb77d 100644 --- a/erts/emulator/beam/beam_bif_load.c +++ b/erts/emulator/beam/beam_bif_load.c @@ -976,8 +976,13 @@ erts_proc_copy_literal_area(Process *c_p, int *redsp, int fcalls, int gc_allowed } if (any_heap_ref_ptrs(c_p->stop, c_p->hend, literals, lit_bsize)) + goto literal_gc; + *redsp += 1; +#ifdef HIPE + if (nstack_any_heap_ref_ptrs(c_p, literals, lit_bsize)) goto literal_gc; *redsp += 1; +#endif if (any_heap_refs(c_p->heap, c_p->htop, literals, lit_bsize)) goto literal_gc; *redsp += 1; diff --git a/erts/emulator/test/hipe_SUITE.erl b/erts/emulator/test/hipe_SUITE.erl index 3e682b8d88..a556b4ddc0 100644 --- a/erts/emulator/test/hipe_SUITE.erl +++ b/erts/emulator/test/hipe_SUITE.erl @@ -51,6 +51,9 @@ t_copy_literals(Config) when is_list(Config) -> true = erlang:delete_module(literals), true = erlang:purge_module(literals), + %% Give the literal collector some time to work... + receive after 2000 -> ok end, + %% check that the ex-literals are ok [a,b,c] = ref_cell:call(PA, get), {a,b,c} = ref_cell:call(PB, get), |