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

[git at git.haskell.org]

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

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

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

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

    WIP: barf, don't just belch


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

bd2a1dd1abad6a5e5bb06cba402f05f93faf24d0
 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();
 }