newlib-cygwin/newlib/libc/machine/hppa/DEFS.h

161 lines
4.1 KiB
C

/*
* Copyright (c) 1990 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
*/
#include "pcc_prefix.s"
#define BLANK
#define BANNER(str) BLANK .VERSION str
#define ENTRY(Name) BLANK M_ENTRY (Name,PROF_/**/Name)
#define ENTRYC(Name) BLANK M_ENTRYC(Name,PROF_/**/Name)
#define EXIT(Name) BLANK M_EXIT (Name,PROF_/**/Name)
#define EXITC(Name) BLANK M_EXITC (Name,PROF_/**/Name)
#ifdef PROF
;
; All four argument registers are saved into caller save registers
; and restored after the call to _mcount. This is possible because
; the mcount routine does not modify them, so we can. Mcount takes
; 3 arguments; the first argument is the incoming 'rp', the second
; is the starting address of the profiled routine, and the third is
; the address of the PROF label (which is where mcount stores the
; profile data).
;
#define M_ENTRY(name,prof) \
.SPACE $TEXT$ !\
.SUBSPA $CODE$ !\
.label name !\
.PROC !\
.CALLINFO CALLER,SAVE_RP !\
.ENTRY !\
stw rp,-20(sp) !\
ldo 48(sp),sp !\
or arg0,r0,r19 !\
or arg1,r0,r20 !\
or arg2,r0,r21 !\
or arg3,r0,r22 !\
or rp,r0,arg0 !\
ldil L%name,r1 !\
ldo R%name(r1),arg1 !\
addil L%prof-$global$,dp !\
bl _mcount,rp !\
ldo R%prof-$global$(r1),arg2 !\
ldw -68(sp),rp !\
ldo -48(sp),sp !\
or r19,r0,arg0 !\
or r20,r0,arg1 !\
or r21,r0,arg2 !\
or r22,r0,arg3 !\
#define M_ENTRYC(name,prof) \
.SPACE $TEXT$ !\
.SUBSPA $CODE$ !\
.label name !\
.PROC !\
.CALLINFO CALLER,SAVE_RP !\
.ENTRY !\
stw rp,-20(sp) !\
ldo 128(sp),sp !\
or arg0,r0,r19 !\
or arg1,r0,r20 !\
or arg2,r0,r21 !\
or arg3,r0,r22 !\
or rp,r0,arg0 !\
ldil L%name,r1 !\
ldo R%name(r1),arg1 !\
addil L%prof-$global$,dp !\
bl _mcount,rp !\
ldo R%prof-$global$(r1),arg2 !\
ldw -148(sp),rp !\
or r19,r0,arg0 !\
or r20,r0,arg1 !\
or r21,r0,arg2 !\
or r22,r0,arg3 !\
;
; The HPUX profiler uses a word for each entrypoint to store the profiling
; information. The setup code passes the address to the _mcount routine.
; The EXIT macro defines a label (PROF_foo), and a word of storage.
;
#define M_EXIT(name,prof) \
bv,n r0(rp) !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY !\
.SPACE $PRIVATE$ !\
.SUBSPA $DATA$ !\
.label prof !\
.WORD 0 !\
.IMPORT $global$,DATA !\
.IMPORT _mcount,CODE
#define M_EXITC(name,prof) \
bv r0(rp) !\
ldo -128(sp),sp !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY !\
.SPACE $PRIVATE$ !\
.SUBSPA $DATA$ !\
.label prof !\
.WORD 0 !\
.IMPORT $global$,DATA !\
.IMPORT _mcount,CODE
#else /* NOT profiling */
#define M_ENTRY(name,prof) \
.SPACE $TEXT$ !\
.SUBSPA $CODE$ !\
.label name !\
.PROC !\
.CALLINFO !\
.ENTRY
#define M_ENTRYC(name,prof) \
.SPACE $TEXT$ !\
.SUBSPA $CODE$ !\
.label name !\
.PROC !\
.CALLINFO CALLER,SAVE_RP !\
.ENTRY !\
stw rp,-20(sp) !\
ldo 128(sp),sp
#define M_EXIT(name,prof) \
bv,n r0(rp) !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY
#define M_EXITC(name,prof) \
ldw -148(sp),rp !\
bv r0(rp) !\
ldo -128(sp),sp !\
.EXIT !\
.PROCEND !\
.EXPORT name,ENTRY
#define ENTRY(Name) BLANK M_ENTRY (Name,PROF_/**/Name)
#define ENTRYC(Name) BLANK M_ENTRYC(Name,PROF_/**/Name)
#define EXIT(Name) BLANK M_EXIT (Name,PROF_/**/Name)
#define EXITC(Name) BLANK M_EXITC (Name,PROF_/**/Name)
#endif