Changeset 5815 for src/Main.hs

Timestamp:

07/26/05 20:06:52 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7758

Message:

* Global destruction -- DESTROYALL() on all active objects --

is now guaranteed upon program exit.

Files:

• src/Main.hs (modified) (3 diffs)

src/Main.hs

@@ -43 +43 @@
         writeIORef (fromJust _DoCompile) doCompile
     runWithArgs run
+    globalFinalize
+
+globalFinalize :: IO ()
+globalFinalize = join $ readIORef _GlobalFinalizer
 
 warn :: Show a => a -> IO ()
@@ -210 +214 @@
     f' env | Val err@(VError _ _) <- envBody env = do
         hPutStrLn stderr $ pretty err
+        globalFinalize
         exitFailure
     f' env = f env name
@@ -289 +294 @@
     end err@(VError _ _)  = do
         hPutStrLn stderr $ encodeUTF8 $ pretty err
+        globalFinalize
         exitFailure
-    end (VControl (ControlExit exit)) = exitWith exit
+    end (VControl (ControlExit exit)) = do
+        globalFinalize
+        exitWith exit
     end _ = return ()