compiler: ensure ctors have the right priority on wasm32

This commit fixes the priorities of ctors generated by GHC codegen on
wasm32, see the referred note for details.

Author: TerrorJack

compiler/GHC/CmmToAsm/Wasm/Asm.hs

@@ -452,7 +452,8 @@ asmTellGlobals ty_word = do
 asmTellCtors :: WasmTypeTag w -> [SymName] -> WasmAsmM ()
 asmTellCtors _ [] = mempty
 asmTellCtors ty_word syms = do
-  asmTellSectionHeader ".init_array"
+  -- See Note [JSFFI initialization] for details
+  asmTellSectionHeader ".init_array.101"
   asmTellAlign $ alignmentFromWordType ty_word
   for_ syms $ \sym ->
     asmTellTabLine $

compiler/GHC/CmmToC.hs

@@ -1533,5 +1533,8 @@ pprCtorArray platform initOrFini lbls =
     body = vcat [ pprCLabel platform lbl <> text " ();" | lbl <- lbls ]
     decls = vcat [ text "void" <+> pprCLabel platform lbl <> text " (void);" | lbl <- lbls ]
     attribute = case initOrFini of
-                  IsInitArray -> text "constructor"
+                  IsInitArray
+                    -- See Note [JSFFI initialization] for details
+                    | ArchWasm32 <- platformArch platform -> text "constructor(101)"
+                    | otherwise -> text "constructor"
                   IsFiniArray -> text "destructor"