Changeset 14214 for src/Pugs/Parser/Charnames.hs

Timestamp:

10/11/06 05:36:36 (2 years ago)

Author:

audreyt

Message:

* Rationalize Perl5 embedding's GC interface by passing

StablePtr? instead of Ptr around, as well as _not_ placing
GC burden on VError{} and VUndef, as they should be all
referring to a static &PL_sv_undef now.

Files:

• src/Pugs/Parser/Charnames.hs (modified) (1 diff)

src/Pugs/Parser/Charnames.hs

@@ -16 +16 @@
 nameToCode :: String -> Maybe Int
 nameToCode name = inlinePerformIO $ do
-    envSV   <- mkVal ()
-    sv      <- evalPerl5 ("use utf8; use charnames ':full'; ord(qq[\\N{"++name++"}])") envSV 1
+    sv      <- evalPerl5 ("use utf8; use charnames ':full'; ord(qq[\\N{"++name++"}])") nullEnv 1
     svToVInt sv >>= \iv -> case iv of
         0 -> svToVStr sv >>= \pv -> case pv of