diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2011-06-13 18:16:01 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2011-06-13 18:16:01 +0100 |
| commit | da15d0c556df3eacc6b37327ddffffea306b3760 (patch) | |
| tree | 5d2de70b3ba93d86f4d911d41f1428ea37fe961f /compiler/codeGen/StgCmmForeign.hs | |
| parent | f3a1b28e408de01d01ec252efd5b54722eb775d8 (diff) | |
| download | haskell-da15d0c556df3eacc6b37327ddffffea306b3760.tar.gz | |
Remove type synonyms for CmmFormals, CmmActuals (and hinted versions).
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'compiler/codeGen/StgCmmForeign.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmForeign.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/codeGen/StgCmmForeign.hs b/compiler/codeGen/StgCmmForeign.hs index 9a15cf0d06..b9e9224fd5 100644 --- a/compiler/codeGen/StgCmmForeign.hs +++ b/compiler/codeGen/StgCmmForeign.hs @@ -104,20 +104,20 @@ emitCCall hinted_results fn hinted_args fc = ForeignConvention CCallConv arg_hints result_hints -emitPrimCall :: CmmFormals -> CallishMachOp -> CmmActuals -> FCode () +emitPrimCall :: [CmmFormal] -> CallishMachOp -> [CmmActual] -> FCode () emitPrimCall res op args = emitForeignCall PlayRisky res (PrimTarget op) args NoC_SRT CmmMayReturn -- alternative entry point, used by CmmParse emitForeignCall - :: Safety - -> CmmFormals -- where to put the results - -> ForeignTarget -- the op - -> CmmActuals -- arguments + :: Safety + -> [CmmFormal] -- where to put the results + -> ForeignTarget -- the op + -> [CmmActual] -- arguments -> C_SRT -- the SRT of the calls continuation - -> CmmReturnInfo -- This can say "never returns" - -- only RTS procedures do this - -> FCode () + -> CmmReturnInfo -- This can say "never returns" + -- only RTS procedures do this + -> FCode () emitForeignCall safety results target args _srt _ret | not (playSafe safety) = do let (caller_save, caller_load) = callerSaveVolatileRegs |