humung.cpp

Go to the documentation of this file.

/*
 * $Id$
 *
 * Author: David Fournier
 * Copyright (c) 2008-2012 Regents of the University of California
 */
// file fvar.cpp
// constructors, destructors and misc functions involving class prevariable
#include "fvar.hpp"

#if defined(__ZTC__)
//  void _far * _cdecl _farptr_norm(void _far *);
  void _far * _cdecl _farptr_fromlong(unsigned long);
  long _cdecl _farptr_tolong(void _far *);
#endif

humungous_pointer::humungous_pointer():
  adjustment(0),
  ptr(NULL)
{
}

void humungous_pointer::free()
{
  ptr -= adjustment;
  adjustment = 0;
#if defined(__BORLANDC__) || defined(__ZTC__)
  farfree(ptr);
#else
  ::free(ptr);
#endif
  ptr = NULL;
}

void humungous_pointer::adjust(const size_t a)
{
  adjustment = a;
  ptr += adjustment;
}

int humungous_pointer::operator == (void * p)
{
  return (ptr==p);
}

int humungous_pointer::operator != (void * p)
{
  return (ptr!=p);
}

humungous_pointer::operator char* ()
{
  return ptr;
}

humungous_pointer::operator void* ()
{
  return (void*)ptr;
}

humungous_pointer::operator double_and_int* ()
{
  return (double_and_int*)ptr;
}

humungous_pointer::operator double* ()
{
  return (double*)ptr;
}

humungous_pointer humungous_pointer::operator + (unsigned long int& offset)
{
  humungous_pointer tmp;
#if defined(__ZTC__)
  tmp.ptr=(char*)(_farptr_fromlong(_farptr_tolong(ptr)+offset));
#else
  tmp.ptr=(ptr+offset);
#endif
  return tmp;
}

humungous_pointer& humungous_pointer::operator += (unsigned long int& offset)
{
#if defined(__ZTC__)
  ptr=(char*)(_farptr_fromlong(_farptr_tolong(ptr)+offset));
#else
  ptr=(ptr+offset);
#endif
  return *this;
}

humungous_pointer& humungous_pointer::operator = (void * p)
{
#if defined(__BORLANDC__)
  ptr = (char huge *) p;
#else
  ptr = (char*) p;
#endif
  return *this;
}