[commit: ghc] wip/T14626: WIP: barf, don't just belch (e4228c9)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T14626
Link       : http://ghc.haskell.org/trac/ghc/changeset/e4228c9f150d0d7bb417c755b00a41075222892c/ghc

>---------------------------------------------------------------

commit e4228c9f150d0d7bb417c755b00a41075222892c
Author: Gabor Greif <ggreif at gmail.com>
Date:   Thu Jan 11 12:11:52 2018 +0100

    WIP: barf, don't just belch


>---------------------------------------------------------------

e4228c9f150d0d7bb417c755b00a41075222892c
 rts/Apply.cmm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/Apply.cmm b/rts/Apply.cmm
index dde6f41..7bbf610 100644
--- a/rts/Apply.cmm
+++ b/rts/Apply.cmm
@@ -15,7 +15,7 @@
 checkTagged ( P_ obj )
 {
     if (GETTAG(obj)==0) {
-        ccall debugBelch("NOT TAGGED! ");
+        ccall barf("NOT TAGGED! ") never returns;
     }
     return();
 }