summaryrefslogtreecommitdiff
path: root/rts/win32
diff options
context:
space:
mode:
authorTamar Christina <tamar@zhox.com>2020-07-12 16:33:47 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2020-07-24 18:12:23 -0400
commitcdd0ff16f20ce920c74f9128a1067cbe1bd378c2 (patch)
tree9a62e2e84dbbc4b54aee3fccd65523fb1247a920 /rts/win32
parentdff1cb3d9c111808fec60190747272b973547c52 (diff)
downloadhaskell-cdd0ff16f20ce920c74f9128a1067cbe1bd378c2.tar.gz
winio: restore console cp on exit
Diffstat (limited to 'rts/win32')
-rw-r--r--rts/win32/veh_excn.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/win32/veh_excn.c b/rts/win32/veh_excn.c
index b86abe64b0..141806997a 100644
--- a/rts/win32/veh_excn.c
+++ b/rts/win32/veh_excn.c
@@ -153,6 +153,7 @@ long WINAPI __hs_exception_handler(struct _EXCEPTION_POINTERS *exception_data)
if (EXCEPTION_CONTINUE_EXECUTION == action)
{
fflush(stderr);
+ hs_restoreConsoleCP ();
generateStack (exception_data);
generateDump (exception_data);
stg_exit(exit_code);