Changeset 1109


Ignore:
Timestamp:
Aug 6, 2003, 5:41:36 PM (17 years ago)
Author:
luba
Message:
  • type_short_int is replaced by type_int32
Location:
to-imperative/trunk/library/Access
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/Access/l.cc

    r560 r1109  
    2525  size_t left = 0;
    2626
    27   if (p_Left->get_type() == type_short_int)
     27  if (p_Left->get_type() == type_int32)
    2828  {
    29     intptr_t l = ((ShortInt*)p_Left)->to_int();
     29    intptr_t l = ((Int32*)p_Left)->to_int();
    3030    if (l < 0 || uintptr_t(l) > SIZE_MAX)
    3131      RF_LIB_ERROR("Invalid argument");
  • to-imperative/trunk/library/Access/left.cc

    r586 r1109  
    2323  size_t left = 0;
    2424
    25   if (p_Left->get_type() == type_short_int)
     25  if (p_Left->get_type() == type_int32)
    2626  {
    27     intptr_t l = ((ShortInt*)p_Left)->to_int();
     27    intptr_t l = ((Int32*)p_Left)->to_int();
    2828    if (l < 0 || uintptr_t(l) > SIZE_MAX)
    2929      RF_LIB_ERROR("Invalid argument");
     
    3838  }
    3939
    40   if (p_Len->get_type() == type_short_int)
     40  if (p_Len->get_type() == type_int32)
    4141  {
    42     intptr_t l = ((ShortInt*)p_Len)->to_int();
     42    intptr_t l = ((Int32*)p_Len)->to_int();
    4343    if (l < 0 || uintptr_t(l) > SIZE_MAX)
    4444      RF_LIB_ERROR("Invalid argument");
  • to-imperative/trunk/library/Access/length.cc

    r573 r1109  
    1616RF_FUNC (Length, (RF_ARG e_Exp), (RF_RES s_ExpLen))
    1717
    18   s_ExpLen = ShortInt::create_expr(e_Exp.get_len());
     18  s_ExpLen = Int32::create_expr(e_Exp.get_len());
    1919
    2020RF_END
  • to-imperative/trunk/library/Access/middle.cc

    r586 r1109  
    2323  size_t right = 0;
    2424
    25   if (p_Left->get_type() == type_short_int)
     25  if (p_Left->get_type() == type_int32)
    2626  {
    27     intptr_t l = ((ShortInt*)p_Left)->to_int();
     27    intptr_t l = ((Int32*)p_Left)->to_int();
    2828    if (l < 0 || uintptr_t(l) > SIZE_MAX)
    2929      RF_LIB_ERROR("Invalid argument");
     
    3737    RF_LIB_ERROR("Invalid argument");
    3838  }
    39   if (p_Right->get_type() == type_short_int)
     39  if (p_Right->get_type() == type_int32)
    4040  {
    41     intptr_t r = ((ShortInt*)p_Right)->to_int();
     41    intptr_t r = ((Int32*)p_Right)->to_int();
    4242    if (r < 0 || uintptr_t(r) > SIZE_MAX)
    4343      RF_LIB_ERROR("Invalid argument");
  • to-imperative/trunk/library/Access/r.cc

    r885 r1109  
    2020  size_t right = 0;
    2121
    22   if (p_Right->get_type() == type_short_int)
     22  if (p_Right->get_type() == type_int32)
    2323  {
    24     intptr_t r = ((ShortInt*)p_Right)->to_int();
     24    intptr_t r = ((Int32*)p_Right)->to_int();
    2525    if (r < 0 || uintptr_t(r) > SIZE_MAX)
    2626      RF_LIB_ERROR("Invalid argument");
  • to-imperative/trunk/library/Access/right.cc

    r586 r1109  
    2424  size_t right = 0;
    2525
    26   if (p_Len->get_type() == type_short_int)
     26  if (p_Len->get_type() == type_int32)
    2727  {
    28     intptr_t len = ((ShortInt*)p_Len)->to_int();
     28    intptr_t len = ((Int32*)p_Len)->to_int();
    2929    if (len < 0 || uintptr_t(len) > SIZE_MAX)
    3030      RF_LIB_ERROR("Invalid argument");
     
    3939  }
    4040   
    41   if (p_Right->get_type() == type_short_int)
     41  if (p_Right->get_type() == type_int32)
    4242  {
    43     intptr_t r = ((ShortInt*)p_Right)->to_int();
     43    intptr_t r = ((Int32*)p_Right)->to_int();
    4444    if (r < 0 || uintptr_t(r) > SIZE_MAX)
    4545      RF_LIB_ERROR("Invalid argument");
Note: See TracChangeset for help on using the changeset viewer.