gforth/arch/alpha/machine.h - diff

Return to machine.h CVS log

Up to [gforth] / gforth / arch / alpha

-version 1.9, 2000/09/23 15:47:02
+version 1.10, 2001/12/29 20:40:49
  Line 169  typedef short Int16;
                                      _cfa[1] = (doesp); })
  #endif
+ /* dynamic superinstruction stuff */
+ #define INST_GRANULARITY 4
+ #define IND_JUMP_LENGTH 4
+ #define IS_NEXT_JUMP(_addr) (((*(unsigned *)(_addr))&0xffe00000) == 0x6be00000)
+ #define ALIGN_CODE   { \
+     int align_diff; \
+     old_code_here = (Address)(((((Cell)old_code_here)-1)|0xf)+1); \
+     align_diff = old_code_here - code_here; \
+     memcpy(code_here, ((char *)(int []){0x47ff041f,0x2fe00000,0x47ff041f,0x2fe00000})+16-align_diff,align_diff); \
+     code_here = old_code_here; \
+   }
  #ifdef FORCE_REG
  /* $9-$14 are callee-saved, $1-$8 and $22-$25 are caller-saved */
  #define IPREG asm("$10")