Commit 6a56f3ba authored by simonmar's avatar simonmar

[project @ 2004-09-07 10:10:07 by simonmar]

The 7-ptr-arg version of generic apply has gone away, but parts of the
byte code generator hadn't been updated.  This fixes the ffi009(ghci)
test.
parent 1a65116f
......@@ -249,7 +249,6 @@ mkBits findLabel st proto_insns
PUSH_APPLY_PPPP -> do instr1 st bci_PUSH_APPLY_PPPP
PUSH_APPLY_PPPPP -> do instr1 st bci_PUSH_APPLY_PPPPP
PUSH_APPLY_PPPPPP -> do instr1 st bci_PUSH_APPLY_PPPPPP
PUSH_APPLY_PPPPPPP -> do instr1 st bci_PUSH_APPLY_PPPPPPP
SLIDE n by -> instr3 st bci_SLIDE n by
ALLOC_AP n -> instr2 st bci_ALLOC_AP n
......@@ -395,7 +394,6 @@ instrSize16s instr
PUSH_APPLY_PPPP{} -> 1
PUSH_APPLY_PPPPP{} -> 1
PUSH_APPLY_PPPPPP{} -> 1
PUSH_APPLY_PPPPPPP{} -> 1
SLIDE{} -> 3
ALLOC_AP{} -> 2
ALLOC_PAP{} -> 3
......
......@@ -612,8 +612,6 @@ doTailCall init_d s p fn args
return (final_d, push_code `appOL` more_push_code)
-- v. similar to CgStackery.findMatch, ToDo: merge
findPushSeq (PtrArg: PtrArg: PtrArg: PtrArg: PtrArg: PtrArg: PtrArg: rest)
= (PUSH_APPLY_PPPPPPP, 7, rest)
findPushSeq (PtrArg: PtrArg: PtrArg: PtrArg: PtrArg: PtrArg: rest)
= (PUSH_APPLY_PPPPPP, 6, rest)
findPushSeq (PtrArg: PtrArg: PtrArg: PtrArg: PtrArg: rest)
......
......@@ -83,7 +83,6 @@ data BCInstr
| PUSH_APPLY_PPPP
| PUSH_APPLY_PPPPP
| PUSH_APPLY_PPPPPP
| PUSH_APPLY_PPPPPPP
| SLIDE Int{-this many-} Int{-down by this much-}
......@@ -164,7 +163,6 @@ instance Outputable BCInstr where
ppr PUSH_APPLY_PPPP = text "PUSH_APPLY_PPPP"
ppr PUSH_APPLY_PPPPP = text "PUSH_APPLY_PPPPP"
ppr PUSH_APPLY_PPPPPP = text "PUSH_APPLY_PPPPPP"
ppr PUSH_APPLY_PPPPPPP = text "PUSH_APPLY_PPPPPPP"
ppr (SLIDE n d) = text "SLIDE " <+> int n <+> int d
ppr (ALLOC_AP sz) = text "ALLOC_AP " <+> int sz
......@@ -228,7 +226,6 @@ bciStackUse PUSH_APPLY_PPP{} = 1
bciStackUse PUSH_APPLY_PPPP{} = 1
bciStackUse PUSH_APPLY_PPPPP{} = 1
bciStackUse PUSH_APPLY_PPPPPP{} = 1
bciStackUse PUSH_APPLY_PPPPPPP{} = 1
bciStackUse ALLOC_AP{} = 1
bciStackUse ALLOC_PAP{} = 1
bciStackUse (UNPACK sz) = sz
......
/* -----------------------------------------------------------------------------
* $Id: Bytecodes.h,v 1.9 2002/12/11 15:36:37 simonmar Exp $
* $Id: Bytecodes.h,v 1.10 2004/09/07 10:10:07 simonmar Exp $
*
* (c) The GHC Team, 1998-2002
*
......@@ -48,7 +48,7 @@
#define bci_PUSH_APPLY_PPPP 22
#define bci_PUSH_APPLY_PPPPP 23
#define bci_PUSH_APPLY_PPPPPP 24
#define bci_PUSH_APPLY_PPPPPPP 25
/* #define bci_PUSH_APPLY_PPPPPPP 25 */
#define bci_SLIDE 26
#define bci_ALLOC_AP 27
#define bci_ALLOC_PAP 28
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment