diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 7 | ||||
| -rw-r--r-- | rts/Interpreter.c | 13 | ||||
| -rw-r--r-- | rts/RtsSymbols.c | 1 | ||||
| -rw-r--r-- | rts/StgMiscClosures.cmm | 12 | ||||
| -rw-r--r-- | rts/include/stg/MachRegs.h | 10 | ||||
| -rw-r--r-- | rts/include/stg/MiscClosures.h | 1 | ||||
| -rw-r--r-- | rts/include/stg/Regs.h | 6 |
7 files changed, 0 insertions, 50 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index 8ab8356550..186b740c1c 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -338,13 +338,6 @@ stg_gc_d1 return (D_ d) } -/*-- L1 contains an int64 ------------------------------------------------- */ - -stg_gc_l1 return (L_ l) -{ - jump stg_gc_noregs (stg_ret_l_info, l) (); -} - /*-- Unboxed tuples with multiple pointers -------------------------------- */ stg_gc_pp return (P_ arg1, P_ arg2) diff --git a/rts/Interpreter.c b/rts/Interpreter.c index 581238c36a..57fba55b35 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -1337,19 +1337,6 @@ run_BCO: goto nextInsn; } - case bci_PUSH_ALTS_L: { - int o_bco = BCO_GET_LARGE_ARG; - SpW(-2) = (W_)&stg_ctoi_L1_info; - SpW(-1) = BCO_PTR(o_bco); - Sp_subW(2); -#if defined(PROFILING) - Sp_subW(2); - SpW(1) = (W_)cap->r.rCCCS; - SpW(0) = (W_)&stg_restore_cccs_info; -#endif - goto nextInsn; - } - case bci_PUSH_ALTS_V: { int o_bco = BCO_GET_LARGE_ARG; SpW(-2) = (W_)&stg_ctoi_V_info; diff --git a/rts/RtsSymbols.c b/rts/RtsSymbols.c index 317b284158..7319663ae1 100644 --- a/rts/RtsSymbols.c +++ b/rts/RtsSymbols.c @@ -605,7 +605,6 @@ extern char **environ; SymI_HasDataProto(stg_gc_unbx_r1) \ SymI_HasDataProto(stg_gc_f1) \ SymI_HasDataProto(stg_gc_d1) \ - SymI_HasDataProto(stg_gc_l1) \ SymI_HasDataProto(stg_gc_pp) \ SymI_HasDataProto(stg_gc_ppp) \ SymI_HasDataProto(stg_gc_pppp) \ diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index ff0ec062f8..dbc9d8a02e 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -179,18 +179,6 @@ INFO_TABLE_RET( stg_ctoi_D1, RET_BCO ) } /* - * When the returned value is in L1 - */ -INFO_TABLE_RET( stg_ctoi_L1, RET_BCO ) - /* explicit stack */ -{ - Sp_adj(-1) - 8; - L_[Sp + WDS(1)] = L1; - Sp(0) = stg_ret_l_info; - jump stg_yield_to_interpreter []; -} - -/* * When the returned value is a void */ INFO_TABLE_RET( stg_ctoi_V, RET_BCO ) diff --git a/rts/include/stg/MachRegs.h b/rts/include/stg/MachRegs.h index 6c66e112b2..372dfe0393 100644 --- a/rts/include/stg/MachRegs.h +++ b/rts/include/stg/MachRegs.h @@ -123,7 +123,6 @@ #define MAX_REAL_VANILLA_REG 1 /* always, since it defines the entry conv */ #define MAX_REAL_FLOAT_REG 0 #define MAX_REAL_DOUBLE_REG 0 -#define MAX_REAL_LONG_REG 0 #define MAX_REAL_XMM_REG 4 #define MAX_REAL_YMM_REG 4 #define MAX_REAL_ZMM_REG 4 @@ -269,7 +268,6 @@ the stack. See Note [Overlapping global registers] for implications. #define MAX_REAL_VANILLA_REG 6 #define MAX_REAL_FLOAT_REG 6 #define MAX_REAL_DOUBLE_REG 6 -#define MAX_REAL_LONG_REG 0 #define MAX_REAL_XMM_REG 6 #define MAX_REAL_YMM_REG 6 #define MAX_REAL_ZMM_REG 6 @@ -684,14 +682,6 @@ the stack. See Note [Overlapping global registers] for implications. # endif #endif -#if !defined(MAX_REAL_LONG_REG) -# if defined(REG_L1) -# define MAX_REAL_LONG_REG 1 -# else -# define MAX_REAL_LONG_REG 0 -# endif -#endif - #if !defined(MAX_REAL_XMM_REG) # if defined(REG_XMM6) # define MAX_REAL_XMM_REG 6 diff --git a/rts/include/stg/MiscClosures.h b/rts/include/stg/MiscClosures.h index e6b4957e17..3482f81338 100644 --- a/rts/include/stg/MiscClosures.h +++ b/rts/include/stg/MiscClosures.h @@ -389,7 +389,6 @@ RTS_FUN_DECL(stg_gc_unpt_r1); RTS_FUN_DECL(stg_gc_unbx_r1); RTS_FUN_DECL(stg_gc_f1); RTS_FUN_DECL(stg_gc_d1); -RTS_FUN_DECL(stg_gc_l1); RTS_FUN_DECL(stg_gc_pp); RTS_FUN_DECL(stg_gc_ppp); RTS_FUN_DECL(stg_gc_pppp); diff --git a/rts/include/stg/Regs.h b/rts/include/stg/Regs.h index a4e6db2415..895b30586b 100644 --- a/rts/include/stg/Regs.h +++ b/rts/include/stg/Regs.h @@ -395,12 +395,6 @@ GLOBAL_REG_DECL(StgWord512,ZMM6,REG_ZMM6) #define ZMM6 (BaseReg->rZMM6) #endif -#if defined(REG_L1) && !defined(NO_GLOBAL_REG_DECLS) -GLOBAL_REG_DECL(StgWord64,L1,REG_L1) -#else -#define L1 (BaseReg->rL1) -#endif - /* * If BaseReg isn't mapped to a machine register, just use the global * address of the current register table (CurrentRegTable in |