sem.c

这个是LINUX下的GDB调度工具的源码

// OBSOLETE /* Simulator instruction semantics for fr30bf.
// OBSOLETE 
// OBSOLETE THIS FILE IS MACHINE GENERATED WITH CGEN.
// OBSOLETE 
// OBSOLETE Copyright 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
// OBSOLETE 
// OBSOLETE This file is part of the GNU simulators.
// OBSOLETE 
// OBSOLETE This program is free software; you can redistribute it and/or modify
// OBSOLETE it under the terms of the GNU General Public License as published by
// OBSOLETE the Free Software Foundation; either version 2, or (at your option)
// OBSOLETE any later version.
// OBSOLETE 
// OBSOLETE This program is distributed in the hope that it will be useful,
// OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of
// OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// OBSOLETE GNU General Public License for more details.
// OBSOLETE 
// OBSOLETE You should have received a copy of the GNU General Public License along
// OBSOLETE with this program; if not, write to the Free Software Foundation, Inc.,
// OBSOLETE 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
// OBSOLETE 
// OBSOLETE */
// OBSOLETE 
// OBSOLETE #define WANT_CPU fr30bf
// OBSOLETE #define WANT_CPU_FR30BF
// OBSOLETE 
// OBSOLETE #include "sim-main.h"
// OBSOLETE #include "cgen-mem.h"
// OBSOLETE #include "cgen-ops.h"
// OBSOLETE 
// OBSOLETE #undef GET_ATTR
// OBSOLETE #if defined (__STDC__) || defined (ALMOST_STDC) || defined (HAVE_STRINGIZE)
// OBSOLETE #define GET_ATTR(cpu, num, attr) CGEN_ATTR_VALUE (NULL, abuf->idesc->attrs, CGEN_INSN_##attr)
// OBSOLETE #else
// OBSOLETE #define GET_ATTR(cpu, num, attr) CGEN_ATTR_VALUE (NULL, abuf->idesc->attrs, CGEN_INSN_/**/attr)
// OBSOLETE #endif
// OBSOLETE 
// OBSOLETE /* This is used so that we can compile two copies of the semantic code,
// OBSOLETE    one with full feature support and one without that runs fast(er).
// OBSOLETE    FAST_P, when desired, is defined on the command line, -DFAST_P=1.  */
// OBSOLETE #if FAST_P
// OBSOLETE #define SEM_FN_NAME(cpu,fn) XCONCAT3 (cpu,_semf_,fn)
// OBSOLETE #undef TRACE_RESULT
// OBSOLETE #define TRACE_RESULT(cpu, abuf, name, type, val)
// OBSOLETE #else
// OBSOLETE #define SEM_FN_NAME(cpu,fn) XCONCAT3 (cpu,_sem_,fn)
// OBSOLETE #endif
// OBSOLETE 
// OBSOLETE /* x-invalid: --invalid-- */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,x_invalid) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
// OBSOLETE 
// OBSOLETE   {
// OBSOLETE     /* Update the recorded pc in the cpu state struct.
// OBSOLETE        Only necessary for WITH_SCACHE case, but to avoid the
// OBSOLETE        conditional compilation ....  */
// OBSOLETE     SET_H_PC (pc);
// OBSOLETE     /* Virtual insns have zero size.  Overwrite vpc with address of next insn
// OBSOLETE        using the default-insn-bitsize spec.  When executing insns in parallel
// OBSOLETE        we may want to queue the fault and continue execution.  */
// OBSOLETE     vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
// OBSOLETE     vpc = sim_engine_invalid_insn (current_cpu, pc, vpc);
// OBSOLETE   }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* x-after: --after-- */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,x_after) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
// OBSOLETE 
// OBSOLETE   {
// OBSOLETE #if WITH_SCACHE_PBB_FR30BF
// OBSOLETE     fr30bf_pbb_after (current_cpu, sem_arg);
// OBSOLETE #endif
// OBSOLETE   }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* x-before: --before-- */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,x_before) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
// OBSOLETE 
// OBSOLETE   {
// OBSOLETE #if WITH_SCACHE_PBB_FR30BF
// OBSOLETE     fr30bf_pbb_before (current_cpu, sem_arg);
// OBSOLETE #endif
// OBSOLETE   }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* x-cti-chain: --cti-chain-- */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,x_cti_chain) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
// OBSOLETE 
// OBSOLETE   {
// OBSOLETE #if WITH_SCACHE_PBB_FR30BF
// OBSOLETE #ifdef DEFINE_SWITCH
// OBSOLETE     vpc = fr30bf_pbb_cti_chain (current_cpu, sem_arg,
// OBSOLETE 			       pbb_br_type, pbb_br_npc);
// OBSOLETE     BREAK (sem);
// OBSOLETE #else
// OBSOLETE     /* FIXME: Allow provision of explicit ifmt spec in insn spec.  */
// OBSOLETE     vpc = fr30bf_pbb_cti_chain (current_cpu, sem_arg,
// OBSOLETE 			       CPU_PBB_BR_TYPE (current_cpu),
// OBSOLETE 			       CPU_PBB_BR_NPC (current_cpu));
// OBSOLETE #endif
// OBSOLETE #endif
// OBSOLETE   }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* x-chain: --chain-- */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,x_chain) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
// OBSOLETE 
// OBSOLETE   {
// OBSOLETE #if WITH_SCACHE_PBB_FR30BF
// OBSOLETE     vpc = fr30bf_pbb_chain (current_cpu, sem_arg);
// OBSOLETE #ifdef DEFINE_SWITCH
// OBSOLETE     BREAK (sem);
// OBSOLETE #endif
// OBSOLETE #endif
// OBSOLETE   }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* x-begin: --begin-- */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,x_begin) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.fmt_empty.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 0);
// OBSOLETE 
// OBSOLETE   {
// OBSOLETE #if WITH_SCACHE_PBB_FR30BF
// OBSOLETE #if defined DEFINE_SWITCH || defined FAST_P
// OBSOLETE     /* In the switch case FAST_P is a constant, allowing several optimizations
// OBSOLETE        in any called inline functions.  */
// OBSOLETE     vpc = fr30bf_pbb_begin (current_cpu, FAST_P);
// OBSOLETE #else
// OBSOLETE #if 0 /* cgen engine can't handle dynamic fast/full switching yet.  */
// OBSOLETE     vpc = fr30bf_pbb_begin (current_cpu, STATE_RUN_FAST_P (CPU_STATE (current_cpu)));
// OBSOLETE #else
// OBSOLETE     vpc = fr30bf_pbb_begin (current_cpu, 0);
// OBSOLETE #endif
// OBSOLETE #endif
// OBSOLETE #endif
// OBSOLETE   }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* add: add $Rj,$Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,add) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
// OBSOLETE 
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
// OBSOLETE     CPU (h_vbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), * FLD (i_Rj), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), * FLD (i_Rj));
// OBSOLETE     * FLD (i_Ri) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
// OBSOLETE   }
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_nbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* addi: add $u4,$Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,addi) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.sfmt_addi.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
// OBSOLETE 
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), FLD (f_u4), 0);
// OBSOLETE     CPU (h_vbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), FLD (f_u4), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), FLD (f_u4));
// OBSOLETE     * FLD (i_Ri) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
// OBSOLETE   }
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_nbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* add2: add2 $m4,$Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,add2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.sfmt_add2.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
// OBSOLETE 
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), FLD (f_m4), 0);
// OBSOLETE     CPU (h_vbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), FLD (f_m4), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = ADDSI (* FLD (i_Ri), FLD (f_m4));
// OBSOLETE     * FLD (i_Ri) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
// OBSOLETE   }
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = LTSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_nbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "nbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* addc: addc $Rj,$Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,addc) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.sfmt_add.f
// OBSOLETE   ARGBUF *abuf = SEM_ARGBUF (sem_arg);
// OBSOLETE   int UNUSED written = 0;
// OBSOLETE   IADDR UNUSED pc = abuf->addr;
// OBSOLETE   SEM_PC vpc = SEM_NEXT_VPC (sem_arg, pc, 2);
// OBSOLETE 
// OBSOLETE {
// OBSOLETE   SI tmp_tmp;
// OBSOLETE   tmp_tmp = ADDCSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
// OBSOLETE   {
// OBSOLETE     BI opval = ADDOFSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
// OBSOLETE     CPU (h_vbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "vbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = ADDCFSI (* FLD (i_Ri), * FLD (i_Rj), CPU (h_cbit));
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = tmp_tmp;
// OBSOLETE     * FLD (i_Ri) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
// OBSOLETE   }
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = EQSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {