Changeset 8672 for src/Pugs/Embed

Show
Ignore:
Timestamp:
01/15/06 07:01:53 (3 years ago)
Author:
audreyt
Message:

* Disable JIT for embedded parrot; CGP seems unbroken now

so use it instead.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Embed/Parrot.hsc

    r8392 r8672  
    5252    args <- getEnv "PUGS_PARROT_OPTS" 
    5353    let args' | isJust args && fromJust args /= "" = fromJust args 
    54               | otherwise                          = "-g" -- "-C" -- XXX broken on parrot 0.3.1 
     54              | otherwise                          = "-C" 
    5555    rawSystem cmd [args', file] 
    5656    return () 
    … …  
    169169    interp <- parrot_new nullPtr 
    170170    writeIORef _ParrotInterp interp 
    171 #if PARROT_JIT_CAPABLE && defined(PARROT_JIT_CORE) 
     171#if PARROT_JIT_CAPABLE && defined(PARROT_JIT_CORE) && XXX_PARROT_JIT_IS_NOT_BROKEN 
    172172    parrot_set_run_core interp PARROT_JIT_CORE 
    173173#elsif defined(PARROT_CGOTO_CORE) 
    174174    parrot_set_run_core interp PARROT_CGOTO_CORE 
    175175#elsif defined(PARROT_CGP_CORE) 
    176     -- XXX broken on parrot 0.3.1 
    177176    parrot_set_run_core interp PARROT_CGP_CORE 
    178177#endif