115 lines
2.5 KiB
C
115 lines
2.5 KiB
C
/* @(#)getfp.c 1.19 15/12/23 Copyright 1988-2015 J. Schilling */
|
|
/*
|
|
* Get frame pointer
|
|
*
|
|
* Copyright (c) 1988-2015 J. Schilling
|
|
*/
|
|
/*
|
|
* The contents of this file are subject to the terms of the
|
|
* Common Development and Distribution License, Version 1.0 only
|
|
* (the "License"). You may not use this file except in compliance
|
|
* with the License.
|
|
*
|
|
* See the file CDDL.Schily.txt in this distribution for details.
|
|
* A copy of the CDDL is also available via the Internet at
|
|
* http://www.opensource.org/licenses/cddl1.txt
|
|
*
|
|
* When distributing Covered Code, include this CDDL HEADER in each
|
|
* file and include the License file CDDL.Schily.txt from this distribution.
|
|
*/
|
|
|
|
#include <schily/mconfig.h>
|
|
#include <schily/standard.h>
|
|
#include <schily/schily.h>
|
|
|
|
#ifndef IS_AVOFFSET
|
|
/*
|
|
* We usually don't like to compile a getfp() that returns junk data in case
|
|
* we cannot scan the stack.
|
|
* The only way to find this out is by including avoffset.h. Unfortunately, we
|
|
* need to be able to use getfp() from avoffset.c in order to check if the
|
|
* return value is usable or junk. To be able to do this, we include getfp.c
|
|
* from avoffset.c and define IS_AVOFFSET before.
|
|
*/
|
|
#include <schily/avoffset.h>
|
|
|
|
#if !defined(AV_OFFSET) || !defined(FP_INDIR)
|
|
# ifdef HAVE_SCANSTACK
|
|
# undef HAVE_SCANSTACK
|
|
# endif
|
|
#endif
|
|
#endif
|
|
|
|
#ifdef HAVE_SCANSTACK
|
|
#include <schily/stkframe.h>
|
|
|
|
#define MAXWINDOWS 32
|
|
#define NWINDOWS 7
|
|
|
|
#if defined(sparc) && defined(__GNUC__)
|
|
# define FP_OFF 0x10 /* some strange things on sparc gcc */
|
|
#else
|
|
# define FP_OFF 0
|
|
#endif
|
|
|
|
#if defined(__clang__) || \
|
|
(defined(__GNUC__) && \
|
|
((__GNUC__ > 4) || (__GNUC__ == 4 && __GNUC_MINOR__ > 7)))
|
|
#define ATTRIBUTE_NO_SANITIZE_ADDRESS __attribute__((no_sanitize_address))
|
|
#else
|
|
#define ATTRIBUTE_NO_SANITIZE_ADDRESS
|
|
#endif
|
|
|
|
EXPORT void **___fpoff __PR((char *cp));
|
|
|
|
ATTRIBUTE_NO_SANITIZE_ADDRESS
|
|
EXPORT void **
|
|
getfp()
|
|
{
|
|
long **dummy[1];
|
|
|
|
#ifdef sparc
|
|
flush_reg_windows(MAXWINDOWS-2);
|
|
#endif
|
|
return ((void **)((struct frame *)___fpoff((char *)&dummy[0]))->fr_savfp);
|
|
}
|
|
|
|
/*
|
|
* Don't make it static to avoid inline optimization.
|
|
*
|
|
* We need this function to fool GCCs check for returning addresses
|
|
* from outside the functions local address space.
|
|
*/
|
|
EXPORT void **
|
|
___fpoff(cp)
|
|
char *cp;
|
|
{
|
|
long ***lp;
|
|
|
|
lp = (long ***)(cp + FP_OFF);
|
|
lp++;
|
|
return ((void **)lp);
|
|
}
|
|
|
|
#ifdef sparc
|
|
EXPORT int
|
|
flush_reg_windows(n)
|
|
int n;
|
|
{
|
|
if (--n > 0)
|
|
flush_reg_windows(n);
|
|
return (0);
|
|
}
|
|
#endif
|
|
|
|
#else /* HAVE_SCANSTACK */
|
|
|
|
EXPORT void **
|
|
getfp()
|
|
{
|
|
raisecond("getfp", 0);
|
|
return ((void **)0);
|
|
}
|
|
|
|
#endif /* HAVE_SCANSTACK */
|