diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-03-30 10:19:34 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-03-30 10:19:34 +0000 |
| commit | 035b8ebb5405efbcbfd3474821a877add1feca1e (patch) | |
| tree | 21268304729a0b1f118593ae912516a0d3070308 /rts/RtsStartup.c | |
| parent | 41147ad2a9ca84ebe66386b3b0043cb7b48ddcd8 (diff) | |
| download | haskell-035b8ebb5405efbcbfd3474821a877add1feca1e.tar.gz | |
Add a debug check for a non-empty FPU stack on x86 (see #4914)
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index bc169ff0eb..266c04808d 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -345,6 +345,11 @@ hs_exit_(rtsBool wait_foreign) OnExitHook(); + // sanity check +#if defined(DEBUG) + checkFPUStack(); +#endif + // Free the full argv storage freeFullProgArgv(); |