Changeset 1138


Ignore:
Timestamp:
Aug 9, 2003, 4:43:04 AM (17 years ago)
Author:
orlov
Message:
  • Write for Integers.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/runtime/rf_expr.ih

    r1106 r1138  
    1515#include "rf_term.ih"
    1616#include "rf_object_ref.ih"
     17#include "rf_integer.ih"
    1718#include "rf_short_int.ih"
    1819#include "pxx_heap_allocator.ih"
     
    846847        if (fprintf(_fp, "%" PRIdPTR, ((Int32 const&)(*p)).to_int()) == -1)
    847848          return false;
     849      } else if (p->get_type() == type_int) {
     850        mpz_t* z = static_cast<Integer*>(p)->get_mpz_ptr();
     851        if (!mpz_out_str(_fp, 10, *z)) return false;
     852//        if (!write_wstr(_fp, (WString)(*p))) return false;
    848853      } else {
    849854        FATAL("Not supported yet");
Note: See TracChangeset for help on using the changeset viewer.