diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-02 15:58:10 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-10-02 15:58:10 +0000 |
commit | 8c24fc1ba49a1623dbecbea82c9fef238f17c4ee (patch) | |
tree | 2ed964bfe61d0d7650dc51b07313bbbc13937dc0 /kernel/byterun/coq_fix_code.c | |
parent | 85c509a0fada387d3af96add3dac6a7c702b5d01 (diff) |
Remove some dead code in the vm
Apparently Cysmtable.set_global_boxed is unused,
and removing it allows to get rid of a bunch of C code
concerning "boxed" things (including ACCUMULATECOND
instruction).
Still TODO: Csymtable.set_transparent_const and
Csymtable.set_opaque_const appear to be no-ops.
Should we remove them ?
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15845 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/byterun/coq_fix_code.c')
-rw-r--r-- | kernel/byterun/coq_fix_code.c | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/kernel/byterun/coq_fix_code.c b/kernel/byterun/coq_fix_code.c index 9a59a773f..3fded6638 100644 --- a/kernel/byterun/coq_fix_code.c +++ b/kernel/byterun/coq_fix_code.c @@ -55,7 +55,7 @@ void init_arity () { arity[PUSHOFFSETCLOSURE]=arity[GETGLOBAL]=arity[PUSHGETGLOBAL]= arity[MAKEBLOCK1]=arity[MAKEBLOCK2]=arity[MAKEBLOCK3]=arity[MAKEBLOCK4]= arity[MAKEACCU]=arity[CONSTINT]=arity[PUSHCONSTINT]=arity[GRABREC]= - arity[PUSHFIELDS]=arity[GETFIELD]=arity[SETFIELD]=arity[ACCUMULATECOND]= + arity[PUSHFIELDS]=arity[GETFIELD]=arity[SETFIELD]= arity[BRANCH]=arity[ISCONST]= 1; /* instruction with two operands */ arity[APPTERM]=arity[MAKEBLOCK]=arity[CLOSURE]= @@ -85,15 +85,6 @@ value coq_makeaccu (value i) { return (value)res; } -value coq_accucond (value i) { - code_t q; - code_t res = coq_stat_alloc(8); - q = res; - *q++ = VALINSTR(ACCUMULATECOND); - *q = (opcode_t)Int_val(i); - return (value)res; -} - value coq_pushpop (value i) { code_t res; int n; @@ -118,7 +109,7 @@ value coq_is_accumulate_code(value code){ code_t q; int res; q = (code_t)code; - res = Is_instruction(q,ACCUMULATECOND) || Is_instruction(q,ACCUMULATE); + res = Is_instruction(q,ACCUMULATE); return Val_bool(res); } |