[Git][ghc/ghc][wip/backports-9.8] 4 commits: rts: ensure gc_thread/gen_workspace is allocated with proper alignment
Ben Gamari (@bgamari)
gitlab at gitlab.haskell.org
Tue Sep 24 20:18:12 UTC 2024
Ben Gamari pushed to branch wip/backports-9.8 at Glasgow Haskell Compiler / GHC
Commits:
05b7544d by Cheng Shao at 2024-09-23T15:30:53-04:00
rts: ensure gc_thread/gen_workspace is allocated with proper alignment
gc_thread/gen_workspace are required to be aligned by 64 bytes.
However, this property has not been properly enforced before, and
numerous alignment violations at runtime has been caught by
UndefinedBehaviorSanitizer that look like:
```
rts/sm/GC.c:1167:8: runtime error: member access within misaligned address 0x0000027a3390 for type 'gc_thread' (aka 'struct gc_thread_'), which requires 64 byte alignment
0x0000027a3390: note: pointer points here
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
^
SUMMARY: UndefinedBehaviorSanitizer: undefined-behavior rts/sm/GC.c:1167:8
rts/sm/GC.c:1184:13: runtime error: member access within misaligned address 0x0000027a3450 for type 'gen_workspace' (aka 'struct gen_workspace_'), which requires 64 byte alignment
0x0000027a3450: note: pointer points here
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
^
SUMMARY: UndefinedBehaviorSanitizer: undefined-behavior rts/sm/GC.c:1184:13
```
This patch fixes the gc_thread/gen_workspace misalignment issue by
explicitly allocating them with alignment constraint.
- - - - -
de722d34 by Cheng Shao at 2024-09-23T15:32:08-04:00
rts: fix an unaligned load in nonmoving gc
This patch fixes an unaligned load in nonmoving gc by ensuring the
closure address is properly untagged first before attempting to
prefetch its header. The unaligned load is reported by
UndefinedBehaviorSanitizer:
```
rts/sm/NonMovingMark.c:921:9: runtime error: member access within misaligned address 0x0042005f3a71 for type 'StgClosure' (aka 'struct StgClosure_'), which requires 8 byte alignment
0x0042005f3a71: note: pointer points here
00 00 00 98 43 13 8e 12 7f 00 00 50 3c 5f 00 42 00 00 00 58 17 b7 92 12 7f 00 00 89 cb 5e 00 42
^
SUMMARY: UndefinedBehaviorSanitizer: undefined-behavior rts/sm/NonMovingMark.c:921:9
```
This issue had previously gone unnoticed since it didn't really harm
runtime correctness, the invalid header address directly loaded from a
tagged pointer is only used as prefetch address and will not cause
segfaults. However, it still should be corrected because the prefetch
would be rendered useless by this issue, and untagging only involves a
single bitwise operation without memory access so it's cheap enough to
add.
- - - - -
d93fd1bd by Cheng Shao at 2024-09-23T15:32:12-04:00
rts: use __builtin_offsetof to implement STG_FIELD_OFFSET
This patch fixes the STG_FIELD_OFFSET macro definition by using
__builtin_offsetof, which is what gcc/clang uses to implement offsetof
in standard C. The previous definition that uses NULL pointer involves
subtle undefined behavior in C and thus reported by
UndefinedBehaviorSanitizer as well:
```
rts/Capability.h:243:58: runtime error: member access within null pointer of type 'Capability' (aka 'struct Capability_')
SUMMARY: UndefinedBehaviorSanitizer: undefined-behavior rts/Capability.h:243:58
```
- - - - -
2050caf9 by Cheng Shao at 2024-09-23T15:33:15-04:00
rts: fix checkClosure error message
This patch fixes an error message in checkClosure() when the closure
has already been evacuated. The previous logic was meant to print the
evacuated closure's type in the error message, but it was completely
wrong, given info was not really an info table, but a tagged pointer
that points to the closure's new address.
- - - - -
4 changed files:
- rts/include/Stg.h
- rts/sm/GC.c
- rts/sm/NonMovingMark.c
- rts/sm/Sanity.c
Changes:
=====================================
rts/include/Stg.h
=====================================
@@ -108,7 +108,7 @@
/* Compute offsets of struct fields
*/
-#define STG_FIELD_OFFSET(s_type, field) ((StgWord)&(((s_type*)0)->field))
+#define STG_FIELD_OFFSET(s_type, field) __builtin_offsetof(s_type, field)
/*
* 'Portable' inlining:
=====================================
rts/sm/GC.c
=====================================
@@ -55,6 +55,7 @@
#include "NonMoving.h"
#include "Ticky.h"
+#include <stdalign.h>
#include <string.h> // for memset()
#include <unistd.h>
@@ -1240,8 +1241,9 @@ initGcThreads (uint32_t from USED_IF_THREADS, uint32_t to USED_IF_THREADS)
for (i = from; i < to; i++) {
gc_threads[i] =
- stgMallocBytes(sizeof(gc_thread) +
+ stgMallocAlignedBytes(sizeof(gc_thread) +
RtsFlags.GcFlags.generations * sizeof(gen_workspace),
+ alignof(gc_thread),
"alloc_gc_threads");
new_gc_thread(i, gc_threads[i]);
@@ -1266,7 +1268,7 @@ freeGcThreads (void)
{
freeWSDeque(gc_threads[i]->gens[g].todo_q);
}
- stgFree (gc_threads[i]);
+ stgFreeAligned (gc_threads[i]);
}
closeCondition(&gc_running_cv);
closeMutex(&gc_running_mutex);
=====================================
rts/sm/NonMovingMark.c
=====================================
@@ -918,7 +918,7 @@ static MarkQueueEnt markQueuePop (MarkQueue *q)
// The entry may not be a MARK_CLOSURE but it doesn't matter, our
// MarkQueueEnt encoding always places the pointer to the object to be
// marked first.
- prefetchForRead(&new.mark_closure.p->header.info);
+ prefetchForRead(&(UNTAG_CLOSURE(new.mark_closure.p)->header.info));
prefetchForRead(Bdescr((StgPtr) new.mark_closure.p));
q->prefetch_queue[i] = new;
i = (i + 1) % MARK_PREFETCH_QUEUE_DEPTH;
=====================================
rts/sm/Sanity.c
=====================================
@@ -359,7 +359,8 @@ checkClosure( const StgClosure* p )
load_load_barrier();
if (IS_FORWARDING_PTR(info)) {
- barf("checkClosure: found EVACUATED closure %d", info->type);
+ ASSERT(LOOKS_LIKE_CLOSURE_PTR(info));
+ barf("checkClosure: found EVACUATED closure %u", GET_INFO((StgClosure*)UN_FORWARDING_PTR(info))->type);
}
#if defined(PROFILING)
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/52e82b4d710ad7987cae219eab1dec113a457b53...2050caf9ebc81c4fcba05bd394315e739ac18d36
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/compare/52e82b4d710ad7987cae219eab1dec113a457b53...2050caf9ebc81c4fcba05bd394315e739ac18d36
You're receiving this email because of your account on gitlab.haskell.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240924/51ea90b4/attachment-0001.html>
More information about the ghc-commits
mailing list