diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-11-16 14:03:49 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-11-16 14:48:56 +0000 |
| commit | a70e45f5d28449698677cc165ec09bf6151078a4 (patch) | |
| tree | 64932b89981fa2ea2bdf5788c782d40c8b6b0d65 /compiler/cmm | |
| parent | 80269ef4899252e22319e9223b6c50df5600ccd3 (diff) | |
| download | haskell-a70e45f5d28449698677cc165ec09bf6151078a4.tar.gz | |
C backend: ignore MO_Touch
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/PprC.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index 4e73ade7ba..ed99855065 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -230,6 +230,8 @@ pprStmt stmt = pprCall cast_fn cconv hresults hargs <> semi) -- for a dynamic call, no declaration is necessary. + CmmUnsafeForeignCall (PrimTarget MO_Touch) _results _args -> empty + CmmUnsafeForeignCall target@(PrimTarget op) results args -> proto $$ fn_call where |