usr/src/contrib/mprof/md.s

/*
 * mprof
 * md.s 1.2 8/17/90 16:22:14
 * Copyright (c) 1988, Benjamin G. Zorn
 *
 * Machine dependent part.
 */

#ifdef sun4
#include <sun4/trap.h>

/*
 * This is severly misnamed, since we're really getting the sp, not
 * the fp. But we don't want to contort the logic of the rest of the
 * program, so here we are.
 */
.global _get_current_fp
_get_current_fp:
        ta      ST_FLUSH_WINDOWS        /* we're going to walk the stack */
        retl
        mov     %sp,%o0

#endif sun4

#ifdef mips
 #   3  extern int intloc;
 #   4
        .extern intloc 4
        .text
        .align  2
        .file   2 "md.s"
 #   1  /* place register 31 in location intloc */
 #   2
        .globl  get31
        .ent get31
get31:
        .frame  $sp, 0, $31
        sw      $31, intloc
        j       $31
        .end    get31

        .text
        .align  2
 #   1  /* get the sp of the caller */
 #   2
        .globl  getsp
        .ent getsp
getsp:
        .frame  $sp, 0, $31
        sw      $sp, intloc
        j       $31
        .end    getsp
#endif