Diff for /gforth/Attic/hppa.h between versions 1.2 and 1.4

version 1.2, 1994/09/26 20:31:13 version 1.4, 1994/11/29 16:22:39
Line 15  extern void * cacheflush(void *, int, in Line 15  extern void * cacheflush(void *, int, in
                 fflush(stderr); \                  fflush(stderr); \
                 fprintf(stderr,"Cache flushed, final address: %08x\n", \                  fprintf(stderr,"Cache flushed, final address: %08x\n", \
                         (int)cacheflush((void *)(addr), (int)(size), 32)); })                          (int)cacheflush((void *)(addr), (int)(size), 32)); })
 #  else  #else
 /*  
 #  define CACHE_FLUSH(addr,size) \  
         ({      fprintf(stderr,"Flushing Cache at %08x:%08x\n",(int) addr, size); \  
                 fflush(stderr); \  
                 fprintf(stderr,"Cache flushed, final address: %08x\n", \  
                         (int)cacheflush((void *)(addr), (int)(size), 32)); })  
 */  
 #  define CACHE_FLUSH(addr,size) \  #  define CACHE_FLUSH(addr,size) \
                 ({ (void)cacheflush((void *)(addr), (int)(size), 32); })                  ({ (void)cacheflush((void *)(addr), (int)(size), 32); })
   
 #  endif  #  endif
 #endif  #endif
   
Line 64  typedef float SFloat; Line 56  typedef float SFloat;
         /* we use ble and a register, since 'bl' only has 21 bits displacement */          /* we use ble and a register, since 'bl' only has 21 bits displacement */
 #endif  #endif
   
 #ifdef undefined  
 #define MAKE_CFA(cfa,ca)        ({long *_cfa        = (long *)(cfa); \  
                           unsigned _ca = (unsigned)(ca); \  
                                   _cfa[0] = 0xE4A02000 | (((int)_ca+4-(int)symbols[0]) & 0x7FC)<<1 ; \  
                                   _cfa[1] = *(long *)(_ca); \  
                                   /* printf("%08x:%08x,%08x\n",_cfa,_cfa[0],_cfa[1]); */ \  
                           })  
 #endif  
   
 #ifdef DIRECT_THREADED  #ifdef DIRECT_THREADED
   
 #ifdef DEBUG  #  ifdef DEBUG
 #       define DOUT(a,b,c,d)  fprintf(stderr,a,b,c,d)  #         define DOUT(a,b,c,d)  fprintf(stderr,a,b,c,d)
 #else  #  else
 #       define DOUT(a,b,c,d)  #         define DOUT(a,b,c,d)
 #endif  #  endif
   
 #  define ASS17(n)(((((n) >> 13) & 0x1F) << 16)| /* first 5 bits */ \  #  define ASS17(n)(((((n) >> 13) & 0x1F) << 16)| /* first 5 bits */ \
                                        ((((n) >>  2) & 0x3FF) << 3)| /* second 11 bits */ \                                         ((((n) >>  2) & 0x3FF) << 3)| /* second 11 bits */ \
Line 121  typedef float SFloat; Line 104  typedef float SFloat;
 #       define MAKE_CF(cfa,ca) \  #       define MAKE_CF(cfa,ca) \
         ({ \          ({ \
                 long *_cfa   = (long *)(cfa); \                  long *_cfa   = (long *)(cfa); \
                 int _ca      = (int)(ca); \                  int _ca      = (int)(ca)+4; \
                 int _dp      = _ca-(int)(_cfa+2); \                  int _dp      = _ca-(int)(_cfa+2); \
                 \                  \
                 if(_ca < 0x40000) /* Branch absolute */ \                  if(_ca < 0x40000) /* Branch absolute */ \
Line 131  typedef float SFloat; Line 114  typedef float SFloat;
                                           (   0 << 13) | /* space register */ \                                            (   0 << 13) | /* space register */ \
                                           (   0 <<  1))| /* if 1, don't execute delay slot */ \                                            (   0 <<  1))| /* if 1, don't execute delay slot */ \
                       ASS17(_ca); \                        ASS17(_ca); \
                                 _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \                                  _cfa[1] = ((long *)(_ca))[-1]; /* or %r0,%r0,%r0 */; \
                         } \                          } \
                 else if(_dp < 0x40000 || _dp >= -0x40000) \                  else if(_dp < 0x40000 || _dp >= -0x40000) \
                         { \                          { \
Line 140  typedef float SFloat; Line 123  typedef float SFloat;
                                           (   0 << 13) | /* space register */ \                                            (   0 << 13) | /* space register */ \
                                           (   0 <<  1))| /* if 1, don't execute delay slot */ \                                            (   0 <<  1))| /* if 1, don't execute delay slot */ \
                                           ASS17(_dp); \                                            ASS17(_dp); \
                                 _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \                                  _cfa[1] = ((long *)(_ca))[-1]; /* 0x08000240 or %r0,%r0,%r0 */; \
                         } \                          } \
                 else \                  else \
                         { \                          { \
                                   _ca -= 4; \
                                 _cfa[0] = (0x08 << 26) | \                                  _cfa[0] = (0x08 << 26) | \
                                           ((int)_ca<0) | \                                            ((int)_ca<0) | \
                                           (_ca & 0x00001800)<<1 | \                                            (_ca & 0x00001800)<<1 | \
Line 164  typedef float SFloat; Line 148  typedef float SFloat;
         /* this is the point where the does code starts if label points to the          /* this is the point where the does code starts if label points to the
          * jump dodoes */           * jump dodoes */
   
 #       define DOES_CODE(cfa)   ((Xt *)(((char *)CODE_ADDRESS(cfa))+8))  #       define DOES_CODE(cfa)   ((Xt *)(((long *)(cfa))[1]))
   
         /* this is a special version of DOES_CODE for use in dodoes */          /* this is a special version of DOES_CODE for use in dodoes */
 #       define DOES_CODE1(cfa)  DOES_CODE(cfa) \  #       define DOES_CODE1(cfa)  DOES_CODE(cfa) \
Line 173  typedef float SFloat; Line 157  typedef float SFloat;
         /* HPPA uses register 2 for branch and link */          /* HPPA uses register 2 for branch and link */
   
 #       define DOES_HANDLER_SIZE 8  #       define DOES_HANDLER_SIZE 8
   #       define MAKE_DOES_HANDLER(cfa)  ({ *(long *)(cfa)=DODOES; })
   #ifdef undefined
 #       define MAKE_DOES_HANDLER(cfa) \  #       define MAKE_DOES_HANDLER(cfa) \
         ({ \          ({ \
                 long *_cfa   = (long *)(cfa); \                  long *_cfa   = (long *)(cfa); \
Line 215  typedef float SFloat; Line 201  typedef float SFloat;
                         } \                          } \
                         DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \                          DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \
         })          })
   #endif
   
 #       define MAKE_DOES_CF(cfa,ca) \  #       define MAKE_DOES_CF(cfa,ca) \
         ({ \          ({ \
                 long *_cfa   = (long *)(cfa); \                  long *_cfa   = (long *)(cfa); \
                 int _ca      = (int)(ca)-DOES_HANDLER_SIZE; \                  int _ca      = (int)symbols[DODOES]; \
                 int _dp      = _ca-(int)(_cfa+2); \                  int _dp      = _ca-(int)(_cfa+2); \
                 \                  \
                 if(_dp < 0x40000 || _dp >= -0x40000) \                  if(_ca < 0x40000) /* Branch absolute */ \
                         { \                          { \
                                 _cfa[0] = (0x3A << 26) | /* major opcode */ \                                  _cfa[0] =((0x38 << 26) | /* major opcode */ \
                                           (   0 << 21) | /* register */ \                                            (   0 << 21) | /* register */ \
                                           (   0 << 13) | /* space register */ \                                            (   0 << 13) | /* space register */ \
                                           (   0 <<  1) | /* if 1, don't execute delay slot */ \                                            (   1 <<  1))| /* if 1, don't execute delay slot */ \
                                           ASS17(_dp); \                                            ASS17(_ca); \
                                 _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \                                  _cfa[1] = (long)(ca); \
                         } \                          } \
                 else if(_ca < 0x40000) /* Branch absolute */ \                  else if(_dp < 0x40000 || _dp >= -0x40000) \
                         { \                          { \
                                 _cfa[0] = (0x38 << 26) | /* major opcode */ \                                  _cfa[0] =((0x3A << 26) | /* major opcode */ \
                                           (   0 << 21) | /* register */ \                                            (   0 << 21) | /* register */ \
                                           (   0 << 13) | /* space register */ \                                            (   0 << 13) | /* space register */ \
                                           (   0 <<  1) | /* if 1, don't execute delay slot */ \                                            (   1 <<  1))| /* if 1, don't execute delay slot */ \
                                           ASS17(_ca); \                                            ASS17(_dp); \
                                 _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \                                  _cfa[1] = (long)(ca); \
                         } \                          } \
                 else \                  else \
                         { \                          { \
                                 _cfa[0] = (0x08 << 26) | \                                  fprintf(stderr,"DOESCFA assignment failed, use ITC instead of DTC\n"); exit(1); \
                                           ((int)_ca<0) | \  
                                           (_ca & 0x00001800)<<1 | \  
                                           (_ca & 0x0003E000)<<3 | \  
                                           (_ca & 0x000C0000)>>4 | \  
                                           (_ca & 0x7FF00000)>>19; \  
             _ca &= 0x3FF; \  
                                 _cfa[1] = (0x38 << 26) | /* major opcode */ \  
                                           (   1 << 21) | /* register */ \  
                                           (   0 << 13) | /* space register */ \  
                                           (   1 <<  1) | /* if 1, don't execute delay slot */ \  
                                           ASS17(_ca); \  
                         } \                          } \
                         DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \                          DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \
         })          })

Removed from v.1.2  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>