sem.c

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

// OBSOLETE } else {
// OBSOLETE   {
// OBSOLETE     SI opval = 0;
// OBSOLETE     SET_H_DR (((UINT) 4), opval);
// OBSOLETE     written |= (1 << 5);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   abuf->written = written;
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* div0u: div0u $Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,div0u) (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, 2);
// OBSOLETE 
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = 0;
// OBSOLETE     CPU (h_d0bit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "d0bit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     BI opval = 0;
// OBSOLETE     CPU (h_d1bit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "d1bit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = 0;
// OBSOLETE     SET_H_DR (((UINT) 4), opval);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* div1: div1 $Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,div1) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.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   {
// OBSOLETE     SI opval = SLLSI (GET_H_DR (((UINT) 4)), 1);
// OBSOLETE     SET_H_DR (((UINT) 4), opval);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE if (LTSI (GET_H_DR (((UINT) 5)), 0)) {
// OBSOLETE   {
// OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 4)), 1);
// OBSOLETE     SET_H_DR (((UINT) 4), opval);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE   {
// OBSOLETE     SI opval = SLLSI (GET_H_DR (((UINT) 5)), 1);
// OBSOLETE     SET_H_DR (((UINT) 5), opval);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE if (EQBI (CPU (h_d1bit), 1)) {
// OBSOLETE {
// OBSOLETE   tmp_tmp = ADDSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
// OBSOLETE   {
// OBSOLETE     BI opval = ADDCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 6);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE } else {
// OBSOLETE {
// OBSOLETE   tmp_tmp = SUBSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
// OBSOLETE   {
// OBSOLETE     BI opval = SUBCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 6);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE if (NOTBI (XORBI (XORBI (CPU (h_d0bit), CPU (h_d1bit)), CPU (h_cbit)))) {
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     SI opval = tmp_tmp;
// OBSOLETE     SET_H_DR (((UINT) 4), opval);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = ORSI (GET_H_DR (((UINT) 5)), 1);
// OBSOLETE     SET_H_DR (((UINT) 5), opval);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE   {
// OBSOLETE     BI opval = EQSI (GET_H_DR (((UINT) 4)), 0);
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   abuf->written = written;
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* div2: div2 $Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,div2) (SIM_CPU *current_cpu, SEM_ARG sem_arg)
// OBSOLETE {
// OBSOLETE #define FLD(f) abuf->fields.sfmt_mov2dr.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 if (EQBI (CPU (h_d1bit), 1)) {
// OBSOLETE {
// OBSOLETE   tmp_tmp = ADDSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
// OBSOLETE   {
// OBSOLETE     BI opval = ADDCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 3);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE } else {
// OBSOLETE {
// OBSOLETE   tmp_tmp = SUBSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri));
// OBSOLETE   {
// OBSOLETE     BI opval = SUBCFSI (GET_H_DR (((UINT) 4)), * FLD (i_Ri), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 3);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE if (EQSI (tmp_tmp, 0)) {
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = 1;
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     written |= (1 << 5);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = 0;
// OBSOLETE     SET_H_DR (((UINT) 4), opval);
// OBSOLETE     written |= (1 << 4);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE } else {
// OBSOLETE   {
// OBSOLETE     BI opval = 0;
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     written |= (1 << 5);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   abuf->written = written;
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* div3: div3 */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,div3) (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, 2);
// OBSOLETE 
// OBSOLETE if (EQBI (CPU (h_zbit), 1)) {
// OBSOLETE   {
// OBSOLETE     SI opval = ADDSI (GET_H_DR (((UINT) 5)), 1);
// OBSOLETE     SET_H_DR (((UINT) 5), opval);
// OBSOLETE     written |= (1 << 2);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   abuf->written = written;
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* div4s: div4s */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,div4s) (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, 2);
// OBSOLETE 
// OBSOLETE if (EQBI (CPU (h_d1bit), 1)) {
// OBSOLETE   {
// OBSOLETE     SI opval = NEGSI (GET_H_DR (((UINT) 5)));
// OBSOLETE     SET_H_DR (((UINT) 5), opval);
// OBSOLETE     written |= (1 << 2);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "dr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   abuf->written = written;
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* lsl: lsl $Rj,$Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,lsl) (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_shift;
// OBSOLETE   tmp_shift = ANDSI (* FLD (i_Rj), 31);
// OBSOLETE if (NESI (tmp_shift, 0)) {
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (32, tmp_shift))), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 3);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = SLLSI (* FLD (i_Ri), tmp_shift);
// OBSOLETE     * FLD (i_Ri) = opval;
// OBSOLETE     written |= (1 << 2);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE } else {
// OBSOLETE   {
// OBSOLETE     BI opval = 0;
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 3);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// 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     BI opval = EQSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   abuf->written = written;
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* lsli: lsl $u4,$Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,lsli) (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   SI tmp_shift;
// OBSOLETE   tmp_shift = FLD (f_u4);
// OBSOLETE if (NESI (tmp_shift, 0)) {
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (32, tmp_shift))), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 3);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = SLLSI (* FLD (i_Ri), tmp_shift);
// OBSOLETE     * FLD (i_Ri) = opval;
// OBSOLETE     written |= (1 << 2);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "gr", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE } else {
// OBSOLETE   {
// OBSOLETE     BI opval = 0;
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 3);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// 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     BI opval = EQSI (* FLD (i_Ri), 0);
// OBSOLETE     CPU (h_zbit) = opval;
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "zbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE }
// OBSOLETE 
// OBSOLETE   abuf->written = written;
// OBSOLETE   return vpc;
// OBSOLETE #undef FLD
// OBSOLETE }
// OBSOLETE 
// OBSOLETE /* lsl2: lsl2 $u4,$Ri */
// OBSOLETE 
// OBSOLETE static SEM_PC
// OBSOLETE SEM_FN_NAME (fr30bf,lsl2) (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   SI tmp_shift;
// OBSOLETE   tmp_shift = ADDSI (FLD (f_u4), 16);
// OBSOLETE if (NESI (tmp_shift, 0)) {
// OBSOLETE {
// OBSOLETE   {
// OBSOLETE     BI opval = NESI (ANDSI (* FLD (i_Ri), SLLSI (1, SUBSI (32, tmp_shift))), 0);
// OBSOLETE     CPU (h_cbit) = opval;
// OBSOLETE     written |= (1 << 3);
// OBSOLETE     TRACE_RESULT (current_cpu, abuf, "cbit", 'x', opval);
// OBSOLETE   }
// OBSOLETE   {
// OBSOLETE     SI opval = S