Changeset 1112


Ignore:
Timestamp:
Aug 6, 2003, 5:57:32 PM (17 years ago)
Author:
luba
Message:
  • type_int32 is added
Location:
to-imperative/trunk/library
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/Convert/to_int.cc

    r1080 r1112  
    2828
    2929  uintptr_t len = 0;
    30   uintptr_t len_max = ShortInt::max_len;
     30  uintptr_t len_max = Int32::max_len;
    3131  size_t i = 0;
    3232  size_t str_len = s.get_length();
     
    109109    s_Int = Integer::create_expr(s);
    110110  else
    111     s_Int = ShortInt::create_expr(s);
     111    s_Int = Int32::create_expr(s);
    112112 
    113113RF_END
  • to-imperative/trunk/library/Dos/exit.cc

    r1013 r1112  
    1818  if (s_ReturnCode.get_len() == 1 ) {
    1919    Term* p = s_ReturnCode.get_first();
    20     rftype::ShortInt* num = p->cast_to<rftype::ShortInt>(type_short_int);
     20    rftype::Int32* num = p->cast_to<rftype::Int32>(type_int32);
    2121    if (num) {
    2222      intptr_t n = num->to_int();
  • to-imperative/trunk/library/Dos/time.cc

    r1086 r1112  
    3434  strftime(s, sizeof(s), " %b ", lt);
    3535
    36   Expr e = ShortInt::create_expr((*lt).tm_mday) +
     36  Expr e = Int32::create_expr((*lt).tm_mday) +
    3737           Word::create_expr(s) +
    38            ShortInt::create_expr((*lt).tm_year + 1900) +
     38           Int32::create_expr((*lt).tm_year + 1900) +
    3939           Char::create_expr(" ") +
    40            ShortInt::create_expr((*lt).tm_hour) +
     40           Int32::create_expr((*lt).tm_hour) +
    4141           Char::create_expr(":") +
    42            ShortInt::create_expr((*lt).tm_min) +
     42           Int32::create_expr((*lt).tm_min) +
    4343           Char::create_expr(":") +
    44            ShortInt::create_expr((*lt).tm_sec) +
     44           Int32::create_expr((*lt).tm_sec) +
    4545           Char::create_expr(".");
    4646
    4747  if (uu < 10)
    48     e = e + ShortInt::create_expr(0) +
    49             ShortInt::create_expr(uu);
     48    e = e + Int32::create_expr(0) +
     49            Int32::create_expr(uu);
    5050  else
    51     e = e + ShortInt::create_expr(uu);
     51    e = e + Int32::create_expr(uu);
    5252
    5353  e_String = e;
Note: See TracChangeset for help on using the changeset viewer.