Diff for /gforth/Attic/hppa.h between versions 1.1 and 1.16

version 1.1, 1994/02/11 16:30:46 version 1.16, 1996/07/19 20:45:01
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.
   
 /* Cell and UCell must be the same size as a pointer */    Gforth is free software; you can redistribute it and/or
 typedef long Cell;    modify it under the terms of the GNU General Public License
 typedef unsigned long UCell;    as published by the Free Software Foundation; either version 2
     of the License, or (at your option) any later version.
 /* DCell and UDCell must be twice as large as Cell */  
 typedef long long DCell;  
 typedef unsigned long long UDCell;  
   
 /* define this if IEEE singles and doubles are available as C data types */  
 #define IEEE_FP  
   
 /* the IEEE types are used only for loading and storing */  
 /* the IEEE double precision type */  
 typedef double DFloat;  
 /* the IEEE single precision type */  
 typedef float SFloat;  
   
 /* define this if the least-significant byte is at the largets address */    This program is distributed in the hope that it will be useful,
 #define BIG_ENDIAN    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.
   
 #ifdef DIRECT_THREADED    You should have received a copy of the GNU General Public License
         /* PFA gives the parameter field address corresponding to a cfa */    along with this program; if not, write to the Free Software
 #       define PFA(cfa) (((Cell *)cfa)+2)    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
         /* PFA1 is a special version for use just after a NEXT1 */  */
         /* the improvement here is that we may destroy cfa before using PFA1 */  
 #       define PFA1(cfa)       /* PFA(cfa) */ \  
                                 ({register volatile Cell *pfa asm("%31"); \  
                                   ((int)pfa & (-4)); })  
         /* HPPA uses register 2 for branch and link */  
   
         /* CODE_ADDRESS is the address of the code jumped to through the code field */  
 #       define CODE_ADDRESS(cfa)        ((Label)((*(unsigned *)(cfa))/* <<2 */))  
         /* 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 */  
 #endif  
 #define MAKE_CFA(cfa,ca)        ({long *_cfa        = (long *)(cfa); \  
                           unsigned _ca = (unsigned)(ca); \  
                                   _cfa[0] = 0xE4A02000 | ((_ca+4-symbols[0]) & 0x7FC)<<1 ; \  
                                   _cfa[1] = *(long *)(_ca); \  
                                   /* printf("%08x:%08x,%08x\n",_cfa,_cfa[0],_cfa[1]); */ \  
                           })  
   
 #ifdef DIRECT_THREADED  #if !defined(USE_TOS) && !defined(USE_NO_TOS)
 #       define MAKE_CF(cfa,ca)          MAKE_CFA(cfa,ca)  #define USE_TOS
         /*  #endif
         #define MAKE_CF(cfa,ca) ({long *_cfa        = (long *)(cfa); \  
                           unsigned _ca = (unsigned)(ca); \  #ifndef INDIRECT_THREADED
                           if((_ca-(int)(_cfa+1)>=-0x40000)||(_ca-(int)(_cfa+1)<0x40000)) \  #ifndef DIRECT_THREADED
                           { \  #define DIRECT_THREADED
                                   _cfa[1] = *(long *)(_ca); \  #endif
                                   _ca = _ca-(int)(_cfa+1); \  #endif
                                   _cfa[0] = 0xEBE00000 | \  
                                             ((int)_ca<0) | \  
                                             (_ca & 0x00FFC)<<1 | \  
                                             (_ca & 0x01000)>>10 | \  
                                             (_ca & 0x3E000)<<3; \  
                           } \  
                           else \  
                           { \  
                                   _cfa[0] = 0x20200000 | \  
                                             ((int)_ca<0) | \  
                                             (_ca & 0x00001800)<<1 | \  
                                             (_ca & 0x0003E000)<<3 | \  
                                             (_ca & 0x000C0000)>>4 | \  
                                             (_ca & 0x7FF00000)>>19  \  
                                   _cfa[1] = 0xE4202002 | (_ca & 0x7FC)<<1 ; \  
                           }})  
         */  
         /* HP wins the price for the most obfuscated binary opcode */  
   
         /* this is the point where the does code starts if label points to the  
          * jump dodoes */  
   
 #       define DOES_CODE(label) (((Xt *)(label))+2)  
   
         /* this is a special version of DOES_CODE for use in dodoes */  
 #       define DOES_CODE1(label)        ({register volatile Xt *_does_code asm("%31"); \  
                                           (Xt *)((int)_does_code & (-4)); })  
         /* HPPA uses register 2 for branch and link */  
   
         /* this stores a call dodoes at addr */  #define LONG_LATENCY
 #       define MAKE_DOESJUMP(addr)      MAKE_CFA((addr),symbols[3])  
   /* cache flush stuff */
   extern void cacheflush(void *, int, int);
   #ifdef DEBUG
   #  define FLUSH_ICACHE(addr,size) \
   ({ \
      fprintf(stderr,"Flushing Cache at %08x:%08x\n",(int) addr, size); \
      fflush(stderr); \
      cacheflush((void *)(addr), (int)(size), 32); \
      fprintf(stderr,"Cache flushed\n");  })
   #else
   #  define FLUSH_ICACHE(addr,size) \
        cacheflush((void *)(addr), (int)(size), 32)
 #endif  #endif
   
 /* OS dependences */  #include "32bit.h"
   
   #ifdef DIRECT_THREADED
      /* PFA gives the parameter field address corresponding to a cfa */
   #  define PFA(cfa)      (((Cell *)cfa)+2)
      /* PFA1 is a special version for use just after a NEXT1 */
      /* the improvement here is that we may destroy cfa before using PFA1 */
   #  define PFA1(cfa)       PFA(cfa)
      /* HPPA uses register 2 for branch and link */
   
      /* CODE_ADDRESS is the address of the code jumped to through the code field */
   
 #define SEEK_SET 0     /* MAKE_CF creates an appropriate code field at the cfa; ca is the code address */
 #define rint(x) floor((x)+0.5)     /* we use ble and a register, since 'bl' only has 21 bits displacement */
   #endif
   
 #ifdef DIRECT_THREADED  #ifdef DIRECT_THREADED
 #       define CPU_DEP  register Label branchto asm("%5")=symbols[0];  
 #       define CPU_DEP2 &&deadcode  #  ifdef DEBUG
 #       define CPU_DEP3 deadcode: return((Label *)branchto);  #         define DOUT(a,b,c,d)  fprintf(stderr,a,b,c,d)
   #  else
   #    define DOUT(a,b,c,d)
   #  endif
   
   #  define ASS17(n)(((((n) >> 13) & 0x1F) << 16)| /* first 5 bits */ \
                      ((((n) >>  2) & 0x3FF) << 3)| /* second 11 bits */ \
                      ((((n) >> 12) & 0x1) << 2)  | /* intermediate bit */ \
                      (((n) < 0) << 0)) /* low sign bit (aaarg!) */
   
   #  define DIS17(n)(((((n) >> 16) & 0x1F) << 13)| /* first 5 bits */ \
                      ((((n) >>  3) & 0x3FF) << 2)| /* second 11 bits */ \
                      ((((n) >>  2) & 0x1) << 12) | /* intermediate bit */ \
                      (-((n) & 1) << 18)) /* low sign bit (aaarg!) */
   
   #  define CODE_ADDRESS(cfa)\
   ((Label)({ \
                unsigned int *_cfa=(unsigned int *)(cfa); \
                unsigned int _ca = DIS17(_cfa[0]); \
                if((_cfa[0] & 0xFFE0E000) == 0xE8000000) /* relative branch */ \
                { \
                    _ca += (int) (_cfa + 1); \
                } \
                else if((_cfa[0] & 0xFFE0E000) == 0xE0000000) /* absolute branch */ \
                { \
                    _ca = _ca-4; \
                } \
                else \
                { \
                    _ca = (int)_cfa; \
                } \
                /* printf("code-address at %08x: %08x\n",_ca,_cfa); */ \
                _ca + ((_cfa[0] & 2) << 1); \
            }))
   
   #  define MAKE_CF(cfa,ca) \
   ({ \
        long *_cfa   = (long *)(cfa); \
        int _ca      = (int)(ca)+4; \
        int _dp      = _ca-(int)(_cfa+2); \
        \
        if(_ca < 0x40000) /* Branch absolute */ \
        { \
            _cfa[0] =((0x38 << 26) | /* major opcode */ \
                      (   0 << 21) | /* register */ \
                      (   0 << 13) | /* space register */ \
                      (   0 <<  1) | /* if 1, don't execute delay slot */ \
                      ASS17(_ca)); \
            _cfa[1] = ((long *)(_ca))[-1]; /* fill delay slot with first inst */ \
        } \
        else if(_dp < 0x40000 || _dp >= -0x40000) \
        { \
            _cfa[0] =((0x3A << 26) | /* major opcode */ \
                      (   0 << 21) | /* register */ \
                      (   0 << 13) | /* space register */ \
                      (   0 <<  1) | /* if 1, don't execute delay slot */ \
                      ASS17(_dp)); \
            _cfa[1] = ((long *)(_ca))[-1]; /* fill delay slot with first inst */ \
        } \
        else \
        { \
            fprintf(stderr,"CODE FIELD assignment failed, use ITC instead of DTC\n"); exit(1); \
        } \
        DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \
    })
   /* HP wins the price for the most obfuscated binary opcode */
   
   /* this is the point where the does code starts if label points to the
    * jump dodoes */
   
   /* this is a special version of DOES_CODE for use in dodoes */
   #  define DOES_CODE1(cfa)       ((Xt *)(((long *)(cfa))[1]))
   
   #  define DOES_CODE(cfa) \
      (((((*(long *)(cfa)) & 0xF7E0E002) == 0xE0000002) && \
        ((long)(CODE_ADDRESS(cfa)) == (long)symbols[DODOES])) ? \
       DOES_CODE1(cfa) : 0L)
   
   /*      ({register Xt * _ret asm("%r31"); _ret;}) */
   
   /* HPPA uses register 2 for branch and link */
   
   #  define DOES_HANDLER_SIZE 8
   #  define MAKE_DOES_HANDLER(cfa)
   
   #  define MAKE_DOES_CF(cfa,ca) \
   ({ \
        long *_cfa   = (long *)(cfa); \
        int _ca      = (int)symbols[DODOES]; \
        int _dp      = _ca-(int)(_cfa+2); \
        \
        if(_ca < 0x40000) /* Branch absolute */ \
        { \
            _cfa[0] =((0x38 << 26) | /* major opcode */ \
                      (   0 << 21) | /* register */ \
                      (   0 << 13) | /* space register */ \
                      (   1 <<  1) | /* if 1, don't execute delay slot */ \
                      ASS17(_ca)); \
            _cfa[1] = (long)(ca); \
        } \
        else if(_dp < 0x40000 || _dp >= -0x40000) \
        { \
            _cfa[0] =((0x3A << 26) | /* major opcode */ \
                      (   0 << 21) | /* register */ \
                      (   0 << 13) | /* space register */ \
                      (   1 <<  1) | /* if 1, don't execute delay slot */ \
                      ASS17(_dp)); \
            _cfa[1] = (long)(ca); \
        } \
        else \
        { \
            fprintf(stderr,"DOESCFA assignment failed, use ITC instead of DTC\n"); exit(1); \
        } \
        DOUT("%08x: %08x,%08x\n",(int)_cfa,_cfa[0],_cfa[1]); \
    })
   /* this stores a call dodoes at addr */
 #endif  #endif
   
   #undef HAVE_LOG1P
   #undef HAVE_RINT
   
   #ifdef FORCE_REG
   #define IPREG asm("%r10")
   #define SPREG asm("%r9")
   #define RPREG asm("%r8")
   #define LPREG asm("%r7")
   #define CFAREG asm("%r6")
   #define TOSREG asm("%r11")
   #endif /* FORCE_REG */

Removed from v.1.1  
changed lines
  Added in v.1.16


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