diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-10-28 15:57:25 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-29 20:32:18 -0400 |
| commit | 01ef3e1fe9cbe0ec7d3f00664aa9b9135c825c7d (patch) | |
| tree | edf24659932acc9089c1b131b267ba467582ee31 | |
| parent | 260e2379f274759817514c678b3cd1c71a38f939 (diff) | |
| download | haskell-01ef3e1fe9cbe0ec7d3f00664aa9b9135c825c7d.tar.gz | |
Interpreter: initialize arity fields of AP_NOUPDs
AP_NOUPD entry code doesn't use the arity field, but not initializing
this field confuses printers/debuggers, and also makes testing harder as
the field's value changes randomly.
| -rw-r--r-- | rts/Interpreter.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 2a886ff8a4..463ddae18b 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -1423,11 +1423,11 @@ run_BCO: } case bci_ALLOC_AP: { - StgAP* ap; int n_payload = BCO_NEXT; - ap = (StgAP*)allocate(cap, AP_sizeW(n_payload)); + StgAP *ap = (StgAP*)allocate(cap, AP_sizeW(n_payload)); SpW(-1) = (W_)ap; ap->n_args = n_payload; + ap->arity = 0; // No write barrier is needed here as this is a new allocation // visible only from our stack SET_HDR(ap, &stg_AP_info, cap->r.rCCCS) @@ -1436,11 +1436,11 @@ run_BCO: } case bci_ALLOC_AP_NOUPD: { - StgAP* ap; int n_payload = BCO_NEXT; - ap = (StgAP*)allocate(cap, AP_sizeW(n_payload)); + StgAP *ap = (StgAP*)allocate(cap, AP_sizeW(n_payload)); SpW(-1) = (W_)ap; ap->n_args = n_payload; + ap->arity = 0; // No write barrier is needed here as this is a new allocation // visible only from our stack SET_HDR(ap, &stg_AP_NOUPD_info, cap->r.rCCCS) |