Duncan Coutts pushed to branch wip/dcoutts/foreign-label-source-refactoring at Glasgow Haskell Compiler / GHC
Commits:
-
e46277ee
by Duncan Coutts at 2026-04-24T11:08:30+01:00
1 changed file:
Changes:
| 1 | 1 | f = \ x ->
|
| 2 | 2 | I64#
|
| 3 | 3 | (case x of { D# ds1 ->
|
| 4 | - case {__ffi_static_ccall_unsafe ghc-internal:rintDouble :: Double#
|
|
| 5 | - -> State# RealWorld
|
|
| 6 | - -> (# State# RealWorld, Double# #)}
|
|
| 4 | + case {__ffi_static_ccall_unsafe:rintDouble :: Double#
|
|
| 5 | + -> State# RealWorld -> (# State# RealWorld, Double# #)}
|
|
| 7 | 6 | ds1 realWorld#
|
| 8 | 7 | of
|
| 9 | 8 | { (# _, ds3 #) ->
|
| ... | ... | @@ -14,9 +13,8 @@ f = \ x -> |
| 14 | 13 | g = \ x ->
|
| 15 | 14 | I64#
|
| 16 | 15 | (case x of { D# ds1 ->
|
| 17 | - case {__ffi_static_ccall_unsafe ghc-internal:rintDouble :: Double#
|
|
| 18 | - -> State# RealWorld
|
|
| 19 | - -> (# State# RealWorld, Double# #)}
|
|
| 16 | + case {__ffi_static_ccall_unsafe:rintDouble :: Double#
|
|
| 17 | + -> State# RealWorld -> (# State# RealWorld, Double# #)}
|
|
| 20 | 18 | ds1 realWorld#
|
| 21 | 19 | of
|
| 22 | 20 | { (# _, ds3 #) ->
|