Cheng Shao pushed to branch wip/remove-legacy-define-in-foreign-stub at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Driver/CodeOutput.hs
    ... ... @@ -329,15 +329,8 @@ outputForeignStubs logger tmpfs dflags unit_state mod location stubs
    329 329
     
    
    330 330
             stub_c_file_exists
    
    331 331
                <- outputForeignStubs_help stub_c stub_c_output_w
    
    332
    -                ("#define IN_STG_CODE 0\n" ++
    
    333
    -                 "#include <Rts.h>\n" ++
    
    334
    -                 rts_includes ++
    
    335
    -                 ffi_includes ++
    
    336
    -                 cplusplus_hdr)
    
    337
    -                 cplusplus_ftr
    
    338
    -           -- We're adding the default hc_header to the stub file, but this
    
    339
    -           -- isn't really HC code, so we need to define IN_STG_CODE==0 to
    
    340
    -           -- avoid the register variables etc. being enabled.
    
    332
    +                (rts_includes ++
    
    333
    +                 ffi_includes) ""
    
    341 334
     
    
    342 335
             return (stub_h_file_exists, if stub_c_file_exists
    
    343 336
                                            then Just stub_c