URL
https://opencores.org/ocsvn/or1k/or1k/trunk
Subversion Repositories or1k
[/] [or1k/] [trunk/] [newlib-1.10.0/] [newlib/] [libc/] [machine/] [hppa/] [DEFS.h] - Rev 1773
Go to most recent revision | Compare with Previous | Blame | View Log
/* * 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) #if 0 #define TEXT_SEGMENT \ .SPACE $TEXT$ !\ .SUBSPA $CODE$ #define RO_SEGMENT \ .SPACE $TEXT$ !\ .SUBSPA $lit$ #define DATA_SEGMENT \ .SPACE $PRIVATE$ !\ .SUBSPA $data$ #define BSS_SEGMENT \ .SPACE $PRIVATE$ !\ .SUBSPA $bss$ #else #define TEXT_SEGMENT .text #define RO_SEGMENT .rodata #define DATA_SEGMENT .data #define BSS_SEGMENT .bss #endif #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) \ TEXT_SEGMENT !\ .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) \ TEXT_SEGMENT !\ .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 !\ DATA_SEGMENT !\ .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 !\ DATA_SEGMENT !\ .label prof !\ .WORD 0 !\ .IMPORT $global$,DATA !\ .IMPORT _mcount,CODE #else /* NOT profiling */ #define M_ENTRY(name,prof) \ TEXT_SEGMENT !\ .label name !\ .PROC !\ .CALLINFO !\ .ENTRY #define M_ENTRYC(name,prof) \ TEXT_SEGMENT !\ .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
Go to most recent revision | Compare with Previous | Blame | View Log