Andreas Krebbel - [PATCH] Ada: Remove local _Unwind_Word and _Unwind_Sword uses (original) (raw)

This is the mail archive of the gcc-patches@gcc.gnu.orgmailing list for the GCC project.

• From: Andreas Krebbel
• To: gcc-patches at gcc dot gnu dot org
• Date: Thu, 1 Feb 2007 17:12:21 +0100
• Subject: [PATCH] Ada: Remove local _Unwind_Word and _Unwind_Sword uses

Hello,

the attached patch replaces the _Unwind_Word and _Unwind_Sword uses with _uleb128_t and _sleb128_t in the ada frontend.

Bootstrapping on s390x.

Ok for mainline given no new testsuite fails occur.

Bye,

-Andreas-

2007-02-01 Andreas Krebbel krebbel1@de.ibm.com

* raise-gcc.c (get_region_description_for, get_call_site_action_for,
get_action_description_for): Replaced _Unwind_Word with _uleb128_t 
and _Unwind_SWord with _sleb128_t.

Index: gcc/ada/raise-gcc.c

*** gcc/ada/raise-gcc.c.orig 2007-01-31 16:09:15.000000000 +0100 --- gcc/ada/raise-gcc.c 2007-01-31 16:15:26.000000000 +0100 *************** get_region_description_for (_Unwind_Cont *** 540,546 **** region_descriptor *region) { const unsigned char * p; ! _Unwind_Word tmp; unsigned char lpbase_encoding;

/* Get the base address of the lsda information. If the provided context

--- 540,546 ---- region_descriptor *region) { const unsigned char * p; ! _uleb128_t tmp; unsigned char lpbase_encoding;

/* Get the base address of the lsda information. If the provided context

*************** get_call_site_action_for (_Unwind_Contex *** 705,711 **** } else { ! _Unwind_Word cs_lp, cs_action;

    /* Let the caller know there may be an action to take, but let it
   determine the kind.  */

--- 705,711 ---- } else { ! _uleb128_t cs_lp, cs_action;

    /* Let the caller know there may be an action to take, but let it
   determine the kind.  */

*************** get_call_site_action_for (_Unwind_Contex *** 765,771 **** while (p < region->action_table) { _Unwind_Ptr cs_start, cs_len, cs_lp; ! _Unwind_Word cs_action;

    /* Note that all call-site encodings are "absolute" displacements.  */
    p = read_encoded_value (0, region->call_site_encoding, p, &cs_start);

--- 765,771 ---- while (p < region->action_table) { _Unwind_Ptr cs_start, cs_len, cs_lp; ! _uleb128_t cs_action;

    /* Note that all call-site encodings are "absolute" displacements.  */
    p = read_encoded_value (0, region->call_site_encoding, p, &cs_start);

*************** get_action_description_for (_Unwind_Cont *** 913,919 **** { const unsigned char * p = action->table_entry;

! _Unwind_Sword ar_filter, ar_disp;

    action->kind = nothing;

--- 913,919 ---- { const unsigned char * p = action->table_entry;

! _sleb128_t ar_filter, ar_disp;

    action->kind = nothing;

• Follow-Ups:
  • Re: [PATCH] Ada: Remove local _Unwind_Word and _Unwind_Sword uses
    * From: Arnaud Charlet