source: src/SynTree/Constant.cc @ ff29f08

new-envwith_gc
Last change on this file since ff29f08 was 68f9c43, checked in by Aaron Moss <a3moss@…>, 6 years ago

First pass at delete removal

  • Property mode set to 100644
File size: 2.7 KB
RevLine 
[0dd3a2f]1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
[62423350]7// Constant.cc --
[0dd3a2f]8//
9// Author           : Richard C. Bilson
10// Created On       : Mon May 18 07:44:20 2015
[2c37f34]11// Last Modified By : Andrew Beach
[6ea87486]12// Last Modified On : Fri Jul 14 14:50:00 2017
13// Update Count     : 29
[0dd3a2f]14//
15
[e3e16bc]16#include <cassert>   // for strict_dynamic_cast, assertf
[ea6332d]17#include <iostream>  // for operator<<, ostream, basic_ostream
18#include <string>    // for to_string, string, char_traits, operator<<
[51b7345]19
20#include "Constant.h"
[ea6332d]21#include "Type.h"    // for BasicType, Type, Type::Qualifiers, PointerType
[51b7345]22
[d56e5bc]23Constant::Constant( Type * type, std::string rep, unsigned long long val ) : type( type ), rep( rep ), val( val ) {}
24Constant::Constant( Type * type, std::string rep, double val ) : type( type ), rep( rep ), val( val ) {}
[51b7345]25
[d56e5bc]26Constant::Constant( const Constant &other ) : rep( other.rep ), val( other.val ) {
[7f5566b]27        type = other.type->clone();
28}
29
[2c37f34]30Constant Constant::from_bool( bool b ) {
31        return Constant( new BasicType( Type::Qualifiers(), BasicType::Bool ), b ? "1" : "0" , (unsigned long long int)b );
32}
33
[a2dbad10]34Constant Constant::from_char( char c ) {
35        return Constant( new BasicType( Type::Qualifiers(), BasicType::Char ), std::to_string( c ), (unsigned long long int)c );
36}
37
[cb4c607]38Constant Constant::from_int( int i ) {
[d56e5bc]39        return Constant( new BasicType( Type::Qualifiers(), BasicType::SignedInt ), std::to_string( i ), (unsigned long long int)i );
[9d7b3ea]40}
41
[cb4c607]42Constant Constant::from_ulong( unsigned long i ) {
[d56e5bc]43        return Constant( new BasicType( Type::Qualifiers(), BasicType::LongUnsignedInt ), std::to_string( i ), (unsigned long long int)i );
[9d7b3ea]44}
45
[cb4c607]46Constant Constant::from_double( double d ) {
[d56e5bc]47        return Constant( new BasicType( Type::Qualifiers(), BasicType::Double ), std::to_string( d ), d );
[9d7b3ea]48}
49
[6ea87486]50Constant Constant::null( Type * ptrtype ) {
51        if ( nullptr == ptrtype ) {
52                ptrtype = new PointerType(
53                        Type::Qualifiers(),
54                        new VoidType( Type::Qualifiers() )
55                        );
56        }
57
58        return Constant( ptrtype, "0", (unsigned long long int)0 );
59}
60
[62423350]61unsigned long long Constant::get_ival() const {
[e3e16bc]62        assertf( strict_dynamic_cast<BasicType*>(type)->isInteger(), "Attempt to retrieve ival from non-integer constant." );
[62423350]63        return val.ival;
64}
65
66double Constant::get_dval() const {
[e3e16bc]67        assertf( ! strict_dynamic_cast<BasicType*>(type)->isInteger(), "Attempt to retrieve dval from integer constant." );
[62423350]68        return val.dval;
69}
70
[bb9d8e8]71void Constant::print( std::ostream &os, Indenter ) const {
[d56e5bc]72        os << "(" << rep << " " << val.ival;
[0dd3a2f]73        if ( type ) {
[ea9b9d3]74                os << ": ";
[0dd3a2f]75                type->print( os );
76        } // if
[ea9b9d3]77  os << ")";
[51b7345]78}
79
[0dd3a2f]80// Local Variables: //
81// tab-width: 4 //
82// mode: c++ //
83// compile-command: "make install" //
84// End: //
Note: See TracBrowser for help on using the repository browser.