Changeset 7552 for src/Pugs/Internals.hs

Timestamp:

10/11/05 00:56:12 (3 years ago)

Author:

autrijus

Message:

* finalize Parrot embedding properly and let it flush

correctly, by calling Parrot_exit at exit. leo++

Files:

• src/Pugs/Internals.hs (modified) (3 diffs)

src/Pugs/Internals.hs

@@ -73 +73 @@
     warn,
     die,
+    _GlobalFinalizer,
 ) where
 
@@ -80 +81 @@
 import RRegex
 import RRegex.Syntax
+import Data.IORef
 import Data.Dynamic
 import Data.Array (elems)
@@ -313 +315 @@
     Just "0"    -> False
     _           -> True
+
+{-# NOINLINE _GlobalFinalizer #-}
+_GlobalFinalizer :: IORef (IO ())
+_GlobalFinalizer = unsafePerformIO $ newIORef (return ())