[PATCH] Ada: Remove local _Unwind_Word and _Unwind_Sword uses

[Andreas Krebbel]

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;