Changeset 14218 for src/Pugs/Run

Show
Ignore:
Timestamp:
10/11/06 05:36:46 (2 years ago)
Author:
audreyt
Message:

* Pugs.Run.Perl5: Fix perl5->pugs callback for real.

GC issues on the embed side should be fixed now. Only Judy side left...

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Run/Perl5.hs

    r14214 r14218  
    7373            VStr name           -> _Var ('&':name) 
    7474            _                   -> Val sub 
     75    -- warn "Applying:" (subExp, inv, args, envLexical env) 
    7576    val <- runEvalIO env $ 
    7677        evalExp (Ann (Cxt (cxtEnum cxt)) $ 
    … …  
    8586 
    8687nullVal :: PugsVal 
    87 nullVal = unsafeCoerce# nullPtr 
     88nullVal = castPtrToStablePtr nullPtr 
    8889 
    8990deValMaybe :: PugsVal -> IO (Maybe Val) 
    90 deValMaybe ptr | nullVal == nullVal = return Nothing 
     91deValMaybe ptr | castStablePtrToPtr ptr == nullPtr = return Nothing 
    9192deValMaybe ptr = fmap Just (deVal ptr) 
    9293