[BACK]Return to hppa.h CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/hppa.h between versions 1.8 and 1.14

version 1.8, 1995/09/06 21:00:18 version 1.14, 1995/11/07 18:06:45
Line 1 Line 1
 /*  /* This is the machine-specific part for a HPPA running HP-UX
   $Id$  
   Copyright 1992 by the ANSI figForth Development Group  
   
   This is the machine-specific part for a HPPA running HP-UX    Copyright (C) 1995 Free Software Foundation, Inc.
   
     This file is part of Gforth.
   
     Gforth is free software; you can redistribute it and/or
     modify it under the terms of the GNU General Public License
     as published by the Free Software Foundation; either version 2
     of the License, or (at your option) any later version.
   
     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU General Public License for more details.
   
     You should have received a copy of the GNU General Public License
     along with this program; if not, write to the Free Software
     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */  */
   
 #if !defined(USE_TOS) && !defined(USE_NO_TOS)  #if !defined(USE_TOS) && !defined(USE_NO_TOS)
Line 15 Line 29
 #endif  #endif
 #endif  #endif
   
 /* cache flush stuff */  #define LONG_LATENCY
 #ifdef DIRECT_THREADED  
   
 extern void * cacheflush(void *, int, int);  /* cache flush stuff */
   extern void cacheflush(void *, int, int);
 #ifdef DEBUG  #ifdef DEBUG
 #  define CACHE_FLUSH(addr,size) \  #  define FLUSH_ICACHE(addr,size) \
         ({      fprintf(stderr,"Flushing Cache at %08x:%08x\n",(int) addr, size); \  ({ \
                 fflush(stderr); \     fprintf(stderr,"Flushing Cache at %08x:%08x\n",(int) addr, size); \
                 fprintf(stderr,"Cache flushed, final address: %08x\n", \     fflush(stderr); \
                         (int)cacheflush((void *)(addr), (int)(size), 32)); })     cacheflush((void *)(addr), (int)(size), 32); \
      fprintf(stderr,"Cache flushed\n");  })
 #else  #else
 #  define CACHE_FLUSH(addr,size) \  #  define FLUSH_ICACHE(addr,size) \
                 ({ (void)cacheflush((void *)(addr), (int)(size), 32); })       cacheflush((void *)(addr), (int)(size), 32)
 #  endif  
 #endif  #endif
   
 #include "32bit.h"  #include "32bit.h"
   
 #ifdef DIRECT_THREADED  #ifdef DIRECT_THREADED
         /* PFA gives the parameter field address corresponding to a cfa */     /* PFA gives the parameter field address corresponding to a cfa */
 #       define PFA(cfa) (((Cell *)cfa)+2)  #  define PFA(cfa)      (((Cell *)cfa)+2)
         /* PFA1 is a special version for use just after a NEXT1 */     /* PFA1 is a special version for use just after a NEXT1 */
         /* the improvement here is that we may destroy cfa before using PFA1 */     /* the improvement here is that we may destroy cfa before using PFA1 */
 #       define PFA1(cfa)       PFA(cfa)  #  define PFA1(cfa)       PFA(cfa)
         /* HPPA uses register 2 for branch and link */     /* HPPA uses register 2 for branch and link */
   
         /* CODE_ADDRESS is the address of the code jumped to through the code field */     /* CODE_ADDRESS is the address of the code jumped to through the code field */
   
         /* MAKE_CF creates an appropriate code field at the cfa; ca is the code address */     /* MAKE_CF creates an appropriate code field at the cfa; ca is the code address */
         /* 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 DIRECT_THREADED  #ifdef DIRECT_THREADED
Line 52  extern void * cacheflush(void *, int, in Line 66  extern void * cacheflush(void *, int, in
 #  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 */ \
                                        ((((n) >> 12) & 0x1) << 2)  | /* lo sign (arg!) */ \                     ((((n) >> 12) & 0x1) << 2)  | /* lo sign (aaarg!) */ \
                                        (((n) < 0) << 0)) /* sign bit */                     (((n) < 0) << 0)) /* sign bit */
   
 #  define DIS17(n)(((((n) >> 16) & 0x1F) << 13)| /* first 5 bits */ \  #  define DIS17(n)(((((n) >> 16) & 0x1F) << 13)| /* first 5 bits */ \
                                        ((((n) >>  3) & 0x3FF) << 2)| /* second 11 bits */ \                     ((((n) >>  3) & 0x3FF) << 2)| /* second 11 bits */ \
                                        ((((n) >>  2) & 0x1) << 12) | /* lo sign (arg!) */ \                     ((((n) >>  2) & 0x1) << 12) | /* lo sign (aaarg!) */ \
                                        (-((n) & 1) << 18)) /* sign bit */                     (-((n) & 1) << 18)) /* sign bit */
   
 #       define CODE_ADDRESS(cfa) ((Label)({ \  #  define CODE_ADDRESS(cfa)\
                 unsigned int *_cfa=(unsigned int *)(cfa); unsigned _ca; \  ((Label)({ \
                 if((_cfa[0] & 0xFFE0E002) == 0xE8000000) /* relative branch */ \               unsigned int *_cfa=(unsigned int *)(cfa); unsigned _ca; \
                         { \               if((_cfa[0] & 0xFFE0E002) == 0xE8000000) /* relative branch */ \
                                 _ca = _cfa[0]; \               { \
                                 _ca = DIS17(_ca); \                   _ca = _cfa[0]; \
                                 _ca += (int) (_cfa + 2); \                   _ca = DIS17(_ca); \
                         } \                   _ca += (int) (_cfa + 1); \
                 else if((_cfa[0] & 0xFFE0E002) == 0xE0000000) /* absolute branch */ \               } \
                         { \               else if((_cfa[0] & 0xFFE0E002) == 0xE0000000) /* absolute branch */ \
                                 _ca = _cfa[0]; \               { \
                                 _ca = DIS17(_ca); \                   _ca = _cfa[0]; \
                         } \                   _ca = DIS17(_ca)-4; \
                 else \               } \
                         { \               else \
                                 _ca = _cfa[0]; \               { \
                                 _ca = (_ca<<31) | \                   _ca = _cfa[0]; \
                                       ((_ca>>1 ) & 0x00001800) | \                   _ca = (_ca<<31) | \
                                       ((_ca>>3 ) & 0x0003E000) | \                   ((_ca>>1 ) & 0x00001800) | \
                                       ((_ca<<4 ) & 0x000C0000) | \                   ((_ca>>3 ) & 0x0003E000) | \
                                       ((_ca<<19) & 0x7FF00000) |  \                   ((_ca<<4 ) & 0x000C0000) | \
                                       ((_cfa[1]>>1) & 0xFFC); \                   ((_ca<<19) & 0x7FF00000) |  \
                         } \                   ((_cfa[1]>>1) & 0xFFC); \
                 /* printf("code-address at %08x: %08x\n",_ca,_cfa); */ \               } \
                 _ca; \               /* printf("code-address at %08x: %08x\n",_ca,_cfa); */ \
         }))               _ca; \
            }))
 #       define MAKE_CF(cfa,ca) \  
         ({ \  #  define MAKE_CF(cfa,ca) \
                 long *_cfa   = (long *)(cfa); \  ({ \
                 int _ca      = (int)(ca)+4; \       long *_cfa   = (long *)(cfa); \
                 int _dp      = _ca-(int)(_cfa+2); \       int _ca      = (int)(ca)+4; \
                 \       int _dp      = _ca-(int)(_cfa+2); \
                 if(_ca < 0x40000) /* Branch absolute */ \       \
                         { \       if(_ca < 0x40000) /* Branch absolute */ \
                                 _cfa[0] =((0x38 << 26) | /* major opcode */ \       { \
                                           (   0 << 21) | /* register */ \           _cfa[0] =((0x38 << 26) | /* major opcode */ \
                                           (   0 << 13) | /* space register */ \                     (   0 << 21) | /* register */ \
                                           (   0 <<  1))| /* if 1, don't execute delay slot */ \                     (   0 << 13) | /* space register */ \
                       ASS17(_ca); \                     (   0 <<  1) | /* if 1, don't execute delay slot */ \
                                 _cfa[1] = ((long *)(_ca))[-1]; /* or %r0,%r0,%r0 */; \                     ASS17(_ca)); \
                         } \           _cfa[1] = ((long *)(_ca))[-1]; /* or %r0,%r0,%r0 */; \
                 else if(_dp < 0x40000 || _dp >= -0x40000) \       } \
                         { \       else if(_dp < 0x40000 || _dp >= -0x40000) \
                                 _cfa[0] =((0x3A << 26) | /* major opcode */ \       { \
                                           (   0 << 21) | /* register */ \           _cfa[0] =((0x3A << 26) | /* major opcode */ \
                                           (   0 << 13) | /* space register */ \                     (   0 << 21) | /* register */ \
                                           (   0 <<  1))| /* if 1, don't execute delay slot */ \                     (   0 << 13) | /* space register */ \
                                           ASS17(_dp); \                     (   0 <<  1) | /* if 1, don't execute delay slot */ \
                                 _cfa[1] = ((long *)(_ca))[-1]; /* 0x08000240 or %r0,%r0,%r0 */; \                     ASS17(_dp)); \
                         } \           _cfa[1] = ((long *)(_ca))[-1]; /* 0x08000240 or %r0,%r0,%r0 */; \
                 else \       } \
                         { \       else \
                                 _ca -= 4; \       { \
                                 _cfa[0] = (0x08 << 26) | \           _ca -= 4; \
                                           ((int)_ca<0) | \           _cfa[0] = (0x08 << 26) | \
                                           (_ca & 0x00001800)<<1 | \           ((int)_ca<0) | \
                                           (_ca & 0x0003E000)<<3 | \           (_ca & 0x00001800)<<1 | \
                                           (_ca & 0x000C0000)>>4 | \           (_ca & 0x0003E000)<<3 | \
                                           (_ca & 0x7FF00000)>>19; \           (_ca & 0x000C0000)>>4 | \
             _ca &= 0x3FF; \           (_ca & 0x7FF00000)>>19; \
                                 _cfa[1] =((0x38 << 26) | /* major opcode */ \           _ca &= 0x3FF; \
                                           (   1 << 21) | /* register */ \           _cfa[1] =((0x38 << 26) | /* major opcode */ \
                                           (   0 << 13) | /* space register */ \                     (   1 << 21) | /* register */ \
                                           (   1 <<  1))| /* if 1, don't execute delay slot */ \                     (   0 << 13) | /* space register */ \
                                           ASS17(_ca); \                     (   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]); \
         /* HP wins the price for the most obfuscated binary opcode */   })
   /* HP wins the price for the most obfuscated binary opcode */
   
         /* 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 *)(((long *)(cfa))[1]))  #  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) \
 /*      ({register Xt * _ret asm("%r31"); _ret;}) */  /*      ({register Xt * _ret asm("%r31"); _ret;}) */
   
         /* 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; })  #  define MAKE_DOES_HANDLER(cfa)  ({ *(long *)(cfa)=DODOES; })
 #ifdef undefined  #ifdef undefined
 #       define MAKE_DOES_HANDLER(cfa) \  #  define MAKE_DOES_HANDLER(cfa) \
         ({ \  ({ \
                 long *_cfa   = (long *)(cfa); \       long *_cfa   = (long *)(cfa); \
                 int _ca      = (int)symbols[DODOES]; \       int _ca      = (int)symbols[DODOES]; \
                 int _dp      = _ca-(int)(_cfa+2); \       int _dp      = _ca-(int)(_cfa+2); \
                 \       \
                 if(_ca < 0x40000) /* Branch absolute */ \       if(_ca < 0x40000) /* Branch absolute */ \
                         { \       { \
                                 _cfa[0] =((0x38 << 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 */ \                     (   0 <<  1) | /* if 1, don't execute delay slot */ \
                                           ASS17(_ca); \                     ASS17(_ca)); \
                                 _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \           _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \
                         } \       } \
                 else if(_dp < 0x40000 || _dp >= -0x40000) \       else if(_dp < 0x40000 || _dp >= -0x40000) \
                         { \       { \
                                 _cfa[0] =((0x3A << 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 */ \                     (   0 <<  1) | /* if 1, don't execute delay slot */ \
                                           ASS17(_dp); \                     ASS17(_dp)); \
                                 _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \           _cfa[1] = 0x08000240 /* or %r0,%r0,%r0 */; \
                         } \       } \
                 else \       else \
                         { \       { \
                                 fprintf(stderr,"DOESHANDLER assignment failed, use ITC instead of DTC\n"); exit(1); \           fprintf(stderr,"DOESHANDLER assignment failed, use ITC instead of DTC\n"); exit(1); \
                                 _cfa[0] = (0x08 << 26) | \           _cfa[0] = ((0x08 << 26) | \
                                           ((int)_ca<0) | \                      ((int)_ca<0) | \
                                           (_ca & 0x00001800)<<1 | \                      (_ca & 0x00001800)<<1 | \
                                           (_ca & 0x0003E000)<<3 | \                      (_ca & 0x0003E000)<<3 | \
                                           (_ca & 0x000C0000)>>4 | \                      (_ca & 0x000C0000)>>4 | \
                                           (_ca & 0x7FF00000)>>19; \                      (_ca & 0x7FF00000)>>19); \
             _ca &= 0x3FF; \           _ca &= 0x3FF; \
                                 _cfa[1] =((0x38 << 26) | /* major opcode */ \           _cfa[1] =((0x38 << 26) | /* major opcode */ \
                                           (   1 << 21) | /* register */ \                     (   1 << 21) | /* register */ \
                                           (   0 << 13) | /* space register */ \                     (   0 << 13) | /* space register */ \
                                           (   1 <<  1))| /* if 1, don't execute delay slot */ \                     (   1 <<  1) | /* if 1, don't execute delay slot */ \
                                           ASS17(_ca); \                     ASS17(_ca)); \
                         } \       } \
                         DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \       DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \
         })   })
 #endif  #endif
   
 #       define MAKE_DOES_CF(cfa,ca) \  #  define MAKE_DOES_CF(cfa,ca) \
         ({ \  ({ \
                 long *_cfa   = (long *)(cfa); \       long *_cfa   = (long *)(cfa); \
                 int _ca      = (int)symbols[DODOES]; \       int _ca      = (int)symbols[DODOES]; \
                 int _dp      = _ca-(int)(_cfa+2); \       int _dp      = _ca-(int)(_cfa+2); \
                 \       \
                 if(_ca < 0x40000) /* Branch absolute */ \       if(_ca < 0x40000) /* Branch absolute */ \
                         { \       { \
                                 _cfa[0] =((0x38 << 26) | /* major opcode */ \           _cfa[0] =((0x38 << 26) | /* major opcode */ \
                                           (   0 << 21) | /* register */ \                     (   0 << 21) | /* register */ \
                                           (   0 << 13) | /* space register */ \                     (   0 << 13) | /* space register */ \
                                           (   1 <<  1))| /* if 1, don't execute delay slot */ \                     (   1 <<  1) | /* if 1, don't execute delay slot */ \
                                           ASS17(_ca); \                     ASS17(_ca)); \
                                 _cfa[1] = (long)(ca); \           _cfa[1] = (long)(ca); \
                         } \       } \
                 else if(_dp < 0x40000 || _dp >= -0x40000) \       else if(_dp < 0x40000 || _dp >= -0x40000) \
                         { \       { \
                                 _cfa[0] =((0x3A << 26) | /* major opcode */ \           _cfa[0] =((0x3A << 26) | /* major opcode */ \
                                           (   0 << 21) | /* register */ \                     (   0 << 21) | /* register */ \
                                           (   0 << 13) | /* space register */ \                     (   0 << 13) | /* space register */ \
                                           (   1 <<  1))| /* if 1, don't execute delay slot */ \                     (   1 <<  1) | /* if 1, don't execute delay slot */ \
                                           ASS17(_dp); \                     ASS17(_dp)); \
                                 _cfa[1] = (long)(ca); \           _cfa[1] = (long)(ca); \
                         } \       } \
                 else \       else \
                         { \       { \
                                 fprintf(stderr,"DOESCFA assignment failed, use ITC instead of DTC\n"); exit(1); \           fprintf(stderr,"DOESCFA assignment failed, use ITC instead of DTC\n"); exit(1); \
                         } \       } \
                         DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \       DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \
         })   })
         /* this stores a call dodoes at addr */  /* this stores a call dodoes at addr */
 #endif  #endif
   
 #undef HAVE_LOG1P  #undef HAVE_LOG1P
Removed from v.1.8  
changed lines
  Added in v.1.14

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