8097203fc3
2011-10-13 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Analyze_Formal_{Floating_Type,
Signed_Integer_Type, Decimal_Fixed_Point_Type, Discrete_Type}):
Use sloc of defining identifier of farmal type declaration,
as sloc of generated internal entity, to prevent misplaced
references in ali.
2011-10-13 Ed Schonberg <schonberg@adacore.com>
* sem_intr.adb (Check_Intrinsic_Operator): Check that type
is fully defined before checking that it is a numeric type.
2011-10-13 Ed Schonberg <schonberg@adacore.com>
* sem_aggr.adb (Resolve_Record_Aggregate): If a component
association for component X has a box, then X is covered in the
aggregate even if there is not default value for X in the type
declaration, and X has to be default-initialized.
2011-10-13 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb (Check_Enum_Image, Analyze_Attribute case
'Value): Mark literals as referenced only if reference is in
current source unit.
2011-10-13 Matthew Heaney <heaney@adacore.com>
* a-csquin.ads (Enque, Dequeue): Mark interface operations as entries.
2011-10-13 Olivier Hainque <hainque@adacore.com>
* sigtramp.h: New file. Prototype and spec of the signal
trampoline to be called by an established handler to provide
dwarf call frame info before the real signal processing code.
* sigtramp-ppcvxw.c: New file. Implementation of the signal
trampoline for ppc-vxworks.
* init.c (vxworks section): Use it for ppc.
From-SVN: r179899
257 lines
8.4 KiB
C
257 lines
8.4 KiB
C
/****************************************************************************
|
|
* *
|
|
* GNAT COMPILER COMPONENTS *
|
|
* *
|
|
* S I G T R A M P *
|
|
* *
|
|
* Asm Implementation File *
|
|
* *
|
|
* Copyright (C) 2011, Free Software Foundation, Inc. *
|
|
* *
|
|
* GNAT is free software; you can redistribute it and/or modify it under *
|
|
* terms of the GNU General Public License as published by the Free Soft- *
|
|
* ware Foundation; either version 3, or (at your option) any later ver- *
|
|
* sion. GNAT is distributed in the hope that it will be useful, but WITH- *
|
|
* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
|
|
* or FITNESS FOR A PARTICULAR PURPOSE. *
|
|
* *
|
|
* As a special exception under Section 7 of GPL version 3, you are granted *
|
|
* additional permissions described in the GCC Runtime Library Exception, *
|
|
* version 3.1, as published by the Free Software Foundation. *
|
|
* *
|
|
* In particular, you can freely distribute your programs built with the *
|
|
* GNAT Pro compiler, including any required library run-time units, using *
|
|
* any licensing terms of your choosing. See the AdaCore Software License *
|
|
* for full details. *
|
|
* *
|
|
* GNAT was originally developed by the GNAT team at New York University. *
|
|
* Extensive contributions were provided by Ada Core Technologies Inc. *
|
|
* *
|
|
****************************************************************************/
|
|
|
|
/**********************************************************
|
|
* PowerPC-VxWorks version of the __gnat_sigtramp service *
|
|
**********************************************************/
|
|
|
|
#include "sigtramp.h"
|
|
|
|
#include <vxWorks.h>
|
|
#include <arch/../regs.h>
|
|
#include <sigLib.h>
|
|
|
|
/* ----------------------
|
|
-- General comments --
|
|
----------------------
|
|
|
|
Stubs are generated from toplevel asms and .cfi directives, much simpler
|
|
to use and check for correctness than manual encodings of CFI byte
|
|
sequences. The general idea is to establish CFA as sigcontext->sc_pregs
|
|
and state where to find the registers as offsets from there.
|
|
|
|
As of today, we support a single stub, providing CFI info for common
|
|
registers (GPRs, LR, ...). We might need variants with support for floating
|
|
point or altivec registers as well at some point.
|
|
|
|
Checking which variant should apply and getting at sc_pregs is simpler
|
|
to express in C (we can't use offsetof in toplevel asms and hardcoding
|
|
constants is not workable with the flurry of VxWorks variants), so this
|
|
is the choice for our toplevel interface. */
|
|
|
|
/* -----------------------------------------
|
|
-- Protypes for our internal asm stubs --
|
|
-----------------------------------------
|
|
|
|
SC_PREGS is always expected to be SIGCONTEXT->sc_pregs. Eventhough our
|
|
symbols will remain local, the prototype claims "extern" and not
|
|
"static" to prevent compiler complaints about a symbol used but never
|
|
defined. */
|
|
|
|
/* sigtramp stub providing CFI info for common registers. */
|
|
|
|
extern void __gnat_sigtramp_common
|
|
(int signo, void *siginfo, void *sigcontext,
|
|
sighandler_t * handler, void * sc_pregs);
|
|
|
|
|
|
/* -------------------------------------
|
|
-- Common interface implementation --
|
|
-------------------------------------
|
|
|
|
We enforce optimization to minimize the overhead of the extra layer. */
|
|
|
|
void __gnat_sigtramp (int signo, void *si, void *sc,
|
|
sighandler_t * handler)
|
|
__attribute__((optimize(2)));
|
|
|
|
void __gnat_sigtramp (int signo, void *si, void *sc,
|
|
sighandler_t * handler)
|
|
{
|
|
struct sigcontext * sctx = (struct sigcontext *) sc;
|
|
|
|
__gnat_sigtramp_common (signo, si, sctx, handler, sctx->sc_pregs);
|
|
}
|
|
|
|
|
|
/* ---------------------------
|
|
-- And now the asm stubs --
|
|
---------------------------
|
|
|
|
They all have a common structure with blocks of asm sequences queued one
|
|
after the others. Typically:
|
|
|
|
SYMBOL_START
|
|
|
|
CFI_DIRECTIVES
|
|
CFI_DEF_CFA,
|
|
CFI_COMMON_REGISTERS,
|
|
...
|
|
|
|
STUB_BODY
|
|
asm code to establish frame, setup the cfa reg value,
|
|
call the real signal handler, ...
|
|
|
|
SYMBOL_END
|
|
*/
|
|
|
|
/*--------------------------------
|
|
-- Misc constants and helpers --
|
|
-------------------------------- */
|
|
|
|
/* REGNO constants, dwarf column numbers for registers of interest. */
|
|
|
|
#define REGNO_LR 65
|
|
#define REGNO_XER 76
|
|
#define REGNO_CR 70
|
|
#define REGNO_GR(N) (N)
|
|
|
|
#define REGNO_PC 67 /* ARG_POINTER_REGNUM */
|
|
|
|
/* asm string contruction helpers. */
|
|
|
|
#define STR(TEXT) #TEXT
|
|
/* stringify expanded TEXT, surrounding it with double quotes. */
|
|
|
|
#define S(E) STR(E)
|
|
/* stringify E, which will resolve as text but may contain macros
|
|
still to be expanded. */
|
|
|
|
/* asm (TEXT) outputs <tab>TEXT. These facilitate the output of
|
|
multine contents: */
|
|
#define TAB(S) "\t" S
|
|
#define CR(S) S "\n"
|
|
#define TCR(S) TAB(CR(S))
|
|
|
|
/*------------------------------
|
|
-- Stub construction blocks --
|
|
------------------------------ */
|
|
|
|
/* CFA setup block
|
|
---------------
|
|
Only non-volatile registers are suitable for a CFA base. We use r14
|
|
here and set it to the value we need in stub body that follows. */
|
|
|
|
#define CFI_DEF_CFA \
|
|
CR(".cfi_def_cfa 14, 0")
|
|
|
|
/* Register location blocks
|
|
------------------------
|
|
Rules to find registers of interest from the CFA. This should
|
|
comprise all the non-volatile registers relevant to the interrupted
|
|
context. */
|
|
|
|
#define COMMON_CFI(REG) \
|
|
".cfi_offset " S(REGNO_##REG) "," S(REG_SET_##REG)
|
|
|
|
#define CFI_COMMON_REGS \
|
|
CR("# CFI for common registers\n") \
|
|
TCR(COMMON_CFI(GR(1))) \
|
|
TCR(COMMON_CFI(GR(14))) \
|
|
TCR(COMMON_CFI(GR(15))) \
|
|
TCR(COMMON_CFI(GR(16))) \
|
|
TCR(COMMON_CFI(GR(17))) \
|
|
TCR(COMMON_CFI(GR(18))) \
|
|
TCR(COMMON_CFI(GR(19))) \
|
|
TCR(COMMON_CFI(GR(20))) \
|
|
TCR(COMMON_CFI(GR(21))) \
|
|
TCR(COMMON_CFI(GR(22))) \
|
|
TCR(COMMON_CFI(GR(23))) \
|
|
TCR(COMMON_CFI(GR(24))) \
|
|
TCR(COMMON_CFI(GR(25))) \
|
|
TCR(COMMON_CFI(GR(26))) \
|
|
TCR(COMMON_CFI(GR(27))) \
|
|
TCR(COMMON_CFI(GR(28))) \
|
|
TCR(COMMON_CFI(GR(29))) \
|
|
TCR(COMMON_CFI(GR(30))) \
|
|
TCR(COMMON_CFI(GR(31))) \
|
|
TCR(COMMON_CFI(LR)) \
|
|
TCR(COMMON_CFI(CR)) \
|
|
TCR(COMMON_CFI(PC)) \
|
|
TCR(".cfi_return_column " S(REGNO_PC))
|
|
|
|
/* Trampoline body block
|
|
--------------------- */
|
|
|
|
#define SIGTRAMP_BODY \
|
|
CR("") \
|
|
TCR("# Allocate frame and save the non-volatile") \
|
|
TCR("# registers we're going to modify") \
|
|
TCR("stwu %r1,-16(%r1)") \
|
|
TCR("mflr %r0") \
|
|
TCR("stw %r0,20(%r1)") \
|
|
TCR("stw %r14,8(%r1)") \
|
|
TCR("") \
|
|
TCR("# Setup r14 = sc_pregs, that we'll retrieve as our CFA value") \
|
|
TCR("mr %r14, %r7") \
|
|
TCR("") \
|
|
TCR("# Call the real handler. The signo, siginfo and sigcontext") \
|
|
TCR("# arguments are the same as those we received in r3, r4 and r5") \
|
|
TCR("mtctr %r6") \
|
|
TCR("bctrl") \
|
|
TCR("") \
|
|
TCR("# Restore our callee-saved items, release our frame and return") \
|
|
TCR("lwz %r14,8(%r1)") \
|
|
TCR("lwz %r0,20(%r1)") \
|
|
TCR("mtlr %r0") \
|
|
TCR("") \
|
|
TCR("addi %r1,%r1,16") \
|
|
TCR("blr")
|
|
|
|
/* Symbol definition block
|
|
----------------------- */
|
|
|
|
#define SIGTRAMP_START(SYM) \
|
|
CR("# " S(SYM) " cfi trampoline") \
|
|
TCR(".type " S(SYM) ", @function") \
|
|
CR("") \
|
|
CR(S(SYM) ":") \
|
|
TCR(".cfi_startproc") \
|
|
TCR(".cfi_signal_frame")
|
|
|
|
/* Symbol termination block
|
|
------------------------ */
|
|
|
|
#define SIGTRAMP_END(SYM) \
|
|
CR(".cfi_endproc") \
|
|
TCR(".size " S(SYM) ", .-" S(SYM))
|
|
|
|
/*----------------------------
|
|
-- And now, the real code --
|
|
---------------------------- */
|
|
|
|
/* Text section start. The compiler isn't aware of that switch. */
|
|
|
|
asm (".text\n"
|
|
TCR(".align 2"));
|
|
|
|
/* sigtramp stub for common registers. */
|
|
|
|
#define TRAMP_COMMON __gnat_sigtramp_common
|
|
|
|
asm (SIGTRAMP_START(TRAMP_COMMON));
|
|
asm (CFI_DEF_CFA);
|
|
asm (CFI_COMMON_REGS);
|
|
asm (SIGTRAMP_BODY);
|
|
asm (SIGTRAMP_END(TRAMP_COMMON));
|
|
|
|
|