--- uae/src/include/newcpu.h 2018/04/24 16:49:03 1.1.1.7 +++ uae/src/include/newcpu.h 2018/04/24 17:06:04 1.1.1.13 @@ -6,7 +6,8 @@ * Copyright 1995 Bernd Schmidt */ -#include +#include "readcpu.h" +#include "machdep/m68k.h" #ifndef SET_CFLG @@ -57,6 +58,17 @@ extern unsigned long op_illg (uae_u32) R typedef char flagtype; +/* You can set this to long double to be more accurate. However, the + resulting alignment issues will cost a lot of performance in some + apps */ +#define USE_LONG_DOUBLE 0 + +#if USE_LONG_DOUBLE +typedef long double fptype; +#else +typedef double fptype; +#endif + extern struct regstruct { uae_u32 regs[16]; @@ -76,75 +88,120 @@ extern struct regstruct uae_u32 vbr,sfc,dfc; - double fp[8]; + fptype fp[8]; + fptype fp_result; + uae_u32 fpcr,fpsr,fpiar; + uae_u32 fpsr_highbyte; uae_u32 spcflags; uae_u32 kick_mask; - /* Fellow sources say this is 4 longwords. That's impossible. It needs - * to be at least a longword. The HRM has some cryptic comment about two - * instructions being on the same longword boundary. - * The way this is implemented now seems like a good compromise. - */ + uae_u32 prefetch_pc; uae_u32 prefetch; } regs, lastint_regs; +STATIC_INLINE void set_special (uae_u32 x) +{ + regs.spcflags |= x; +} + +STATIC_INLINE void unset_special (uae_u32 x) +{ + regs.spcflags &= ~x; +} + #define m68k_dreg(r,num) ((r).regs[(num)]) #define m68k_areg(r,num) (((r).regs + 8)[(num)]) +#if !defined USE_COMPILER +STATIC_INLINE void m68k_setpc (uaecptr newpc) +{ + regs.pc_p = regs.pc_oldp = get_real_address (newpc); + regs.pc = newpc; +} +#else +extern void m68k_setpc (uaecptr newpc); +#endif + +STATIC_INLINE uaecptr m68k_getpc (void) +{ + return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp); +} + +STATIC_INLINE uaecptr m68k_getpc_p (uae_u8 *p) +{ + return regs.pc + ((char *)p - (char *)regs.pc_oldp); +} + #define get_ibyte(o) do_get_mem_byte((uae_u8 *)(regs.pc_p + (o) + 1)) #define get_iword(o) do_get_mem_word((uae_u16 *)(regs.pc_p + (o))) #define get_ilong(o) do_get_mem_long((uae_u32 *)(regs.pc_p + (o))) -STATIC_INLINE uae_u32 get_ibyte_prefetch (uae_s32 o) +STATIC_INLINE void refill_prefetch (uae_u32 currpc, uae_u32 offs) { - if (o > 3 || o < 0) - return do_get_mem_byte((uae_u8 *)(regs.pc_p + o + 1)); + uae_u32 t = (currpc + offs) & ~3; + uae_s32 pc_p_offs = t - currpc; + uae_u8 *ptr = regs.pc_p + pc_p_offs; + uae_u32 r; +#ifdef UNALIGNED_PROFITABLE + r = *(uae_u32 *)ptr; + regs.prefetch = r; +#else + r = do_get_mem_long ((uae_u32 *)ptr); + do_put_mem_long (®s.prefetch, r); +#endif + /* printf ("PC %lx T %lx PCPOFFS %d R %lx\n", currpc, t, pc_p_offs, r); */ + regs.prefetch_pc = t; +} - return do_get_mem_byte((uae_u8 *)(((uae_u8 *)®s.prefetch) + o + 1)); +STATIC_INLINE uae_u32 get_ibyte_prefetch (uae_s32 o) +{ + uae_u32 currpc = m68k_getpc (); + uae_u32 addr = currpc + o + 1; + uae_u32 offs = addr - regs.prefetch_pc; + uae_u32 v; + if (offs > 3) { + refill_prefetch (currpc, o + 1); + offs = addr - regs.prefetch_pc; + } + v = do_get_mem_byte (((uae_u8 *)®s.prefetch) + offs); + if (offs >= 2) + refill_prefetch (currpc, 4); + /* printf ("get_ibyte PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v); */ + return v; } STATIC_INLINE uae_u32 get_iword_prefetch (uae_s32 o) { - if (o > 3 || o < 0) - return do_get_mem_word((uae_u16 *)(regs.pc_p + o)); - - return do_get_mem_word((uae_u16 *)(((uae_u8 *)®s.prefetch) + o)); + uae_u32 currpc = m68k_getpc (); + uae_u32 addr = currpc + o; + uae_u32 offs = addr - regs.prefetch_pc; + uae_u32 v; + if (offs > 3) { + refill_prefetch (currpc, o); + offs = addr - regs.prefetch_pc; + } + v = do_get_mem_word ((uae_u16 *)(((uae_u8 *)®s.prefetch) + offs)); + if (offs >= 2) + refill_prefetch (currpc, 4); + /* printf ("get_iword PC %lx ADDR %lx OFFS %lx V %lx\n", currpc, addr, offs, v); */ + return v; } STATIC_INLINE uae_u32 get_ilong_prefetch (uae_s32 o) { - if (o > 3 || o < 0) - return do_get_mem_long((uae_u32 *)(regs.pc_p + o)); - if (o == 0) - return do_get_mem_long(®s.prefetch); - return (do_get_mem_word (((uae_u16 *)®s.prefetch) + 1) << 16) | do_get_mem_word ((uae_u16 *)(regs.pc_p + 4)); + uae_u32 v = get_iword_prefetch (o); + v <<= 16; + v |= get_iword_prefetch (o + 2); + return v; } #define m68k_incpc(o) (regs.pc_p += (o)) STATIC_INLINE void fill_prefetch_0 (void) { - uae_u32 r; -#ifdef UNALIGNED_PROFITABLE - r = *(uae_u32 *)regs.pc_p; - regs.prefetch = r; -#else - r = do_get_mem_long ((uae_u32 *)regs.pc_p); - do_put_mem_long (®s.prefetch, r); -#endif } -#if 0 -STATIC_INLINE void fill_prefetch_2 (void) -{ - uae_u32 r = do_get_mem_long (®s.prefetch) << 16; - uae_u32 r2 = do_get_mem_word (((uae_u16 *)regs.pc_p) + 1); - r |= r2; - do_put_mem_long (®s.prefetch, r); -} -#else #define fill_prefetch_2 fill_prefetch_0 -#endif /* These are only used by the 68020/68881 code, and therefore don't * need to handle prefetch. */ @@ -169,26 +226,6 @@ STATIC_INLINE uae_u32 next_ilong (void) return r; } -#if !defined USE_COMPILER -STATIC_INLINE void m68k_setpc (uaecptr newpc) -{ - regs.pc_p = regs.pc_oldp = get_real_address(newpc); - regs.pc = newpc; -} -#else -extern void m68k_setpc (uaecptr newpc); -#endif - -STATIC_INLINE uaecptr m68k_getpc (void) -{ - return regs.pc + ((char *)regs.pc_p - (char *)regs.pc_oldp); -} - -STATIC_INLINE uaecptr m68k_getpc_p (uae_u8 *p) -{ - return regs.pc + ((char *)p - (char *)regs.pc_oldp); -} - #ifdef USE_COMPILER extern void m68k_setpc_fast (uaecptr newpc); extern void m68k_setpc_bcc (uaecptr newpc); @@ -202,27 +239,29 @@ extern void m68k_setpc_rte (uaecptr newp STATIC_INLINE void m68k_setstopped (int stop) { regs.stopped = stop; - if (stop) + /* A traced STOP instruction drops through immediately without + actually stopping. */ + if (stop && (regs.spcflags & SPCFLAG_DOTRACE) == 0) regs.spcflags |= SPCFLAG_STOP; } extern uae_u32 get_disp_ea_020 (uae_u32 base, uae_u32 dp); extern uae_u32 get_disp_ea_000 (uae_u32 base, uae_u32 dp); -extern uae_s32 ShowEA (int reg, amodes mode, wordsizes size, char *buf); +extern uae_s32 ShowEA (FILE *, int reg, amodes mode, wordsizes size, char *buf); extern void MakeSR (void); extern void MakeFromSR (void); extern void Exception (int, uaecptr); extern void dump_counts (void); -extern void m68k_move2c (int, uae_u32 *); -extern void m68k_movec2 (int, uae_u32 *); +extern int m68k_move2c (int, uae_u32 *); +extern int m68k_movec2 (int, uae_u32 *); extern void m68k_divl (uae_u32, uae_u32, uae_u16, uaecptr); extern void m68k_mull (uae_u32, uae_u32, uae_u16); extern void init_m68k (void); extern void m68k_go (int); -extern void m68k_dumpstate (uaecptr *); -extern void m68k_disasm (uaecptr, uaecptr *, int); +extern void m68k_dumpstate (FILE *, uaecptr *); +extern void m68k_disasm (FILE *, uaecptr, uaecptr *, int); extern void m68k_reset (void); extern void mmu_op (uae_u32, uae_u16); @@ -244,16 +283,22 @@ extern uaecptr last_fault_for_exception_ #define CPU_OP_NAME(a) op ## a +/* 68040 */ +extern struct cputbl op_smalltbl_0_ff[]; /* 68020 + 68881 */ -extern struct cputbl op_smalltbl_0[]; +extern struct cputbl op_smalltbl_1_ff[]; /* 68020 */ -extern struct cputbl op_smalltbl_1[]; +extern struct cputbl op_smalltbl_2_ff[]; /* 68010 */ -extern struct cputbl op_smalltbl_2[]; +extern struct cputbl op_smalltbl_3_ff[]; /* 68000 */ -extern struct cputbl op_smalltbl_3[]; +extern struct cputbl op_smalltbl_4_ff[]; /* 68000 slow but compatible. */ -extern struct cputbl op_smalltbl_4[]; +extern struct cputbl op_smalltbl_5_ff[]; extern cpuop_func *cpufunctbl[65536] ASM_SYM_FOR_FUNC ("cpufunctbl"); +#ifdef JIT +#else +#define flush_icache(X) do {} while (0) +#endif