diff options
| author | sewardj <unknown> | 2001-01-15 16:55:25 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2001-01-15 16:55:25 +0000 |
| commit | 7385dd9fa7f062997a2860ea13e2c268e0783c40 (patch) | |
| tree | 1bd9c2bf5f095f7fa819bc369d58c6d819e83711 /ghc/rts/Interpreter.c | |
| parent | 2015743e65c7ca0ea9126c35178b1c6387e6ecae (diff) | |
| download | haskell-7385dd9fa7f062997a2860ea13e2c268e0783c40.tar.gz | |
[project @ 2001-01-15 16:55:24 by sewardj]
In interpreted code, basic support for routing primop calls through
to functions in PrelPrimopWrappers.lhs.
Diffstat (limited to 'ghc/rts/Interpreter.c')
| -rw-r--r-- | ghc/rts/Interpreter.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c index cd2918932f..07c89e2a81 100644 --- a/ghc/rts/Interpreter.c +++ b/ghc/rts/Interpreter.c @@ -5,8 +5,8 @@ * Copyright (c) 1994-2000. * * $RCSfile: Interpreter.c,v $ - * $Revision: 1.12 $ - * $Date: 2001/01/15 09:55:41 $ + * $Revision: 1.13 $ + * $Date: 2001/01/15 16:55:25 $ * ---------------------------------------------------------------------------*/ #ifdef GHCI @@ -429,7 +429,8 @@ StgThreadReturnCode interpretBCO ( Capability* cap ) int tag = StackWord(0); StgInfoTable* ret_itbl = (StgInfoTable*)StackWord(tag +1); ASSERT(tag <= 2); /* say ... */ - if (ret_itbl == (StgInfoTable*)&stg_ctoi_ret_R1_info + if (ret_itbl == (StgInfoTable*)&stg_ctoi_ret_R1p_info + || ret_itbl == (StgInfoTable*)&stg_ctoi_ret_R1n_info || ret_itbl == (StgInfoTable*)&stg_ctoi_ret_F1_info || ret_itbl == (StgInfoTable*)&stg_ctoi_ret_D1_info) { /* Returning to interpreted code. Interpret the BCO |