diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-07-12 17:46:56 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-07-16 23:50:36 -0400 |
| commit | e38a268491347c3aceba359d47034e272afcdf6b (patch) | |
| tree | baa6fe7f44c511a4ef9fc79773e833abdc39e618 | |
| parent | 097759f9f85ded496b21cf28e83cbdad1bf9a65b (diff) | |
| download | haskell-e38a268491347c3aceba359d47034e272afcdf6b.tar.gz | |
rts/linker/Elf: Check that there are no NULL ctors
| -rw-r--r-- | rts/linker/Elf.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/linker/Elf.c b/rts/linker/Elf.c index ae4721e6f3..4650aea8b1 100644 --- a/rts/linker/Elf.c +++ b/rts/linker/Elf.c @@ -1977,6 +1977,7 @@ int ocRunInit_ELF( ObjectCode *oc ) init_end = (init_t*)(init_startC + shdr[i].sh_size); // ctors run in reverse for (init = init_end - 1; init >= init_start; init--) { + CHECK(0x0 != *init); (*init)(argc, argv, envv); } } |