OpenXM_contrib2/asir2000/builtin/miscf.c - diff

Return to miscf.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.28, 2010/12/25 23:10:15

version 1.29, 2013/06/13 07:45:28

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.27 2008/08/26 16:17:03 ohara Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.28 2010/12/25 23:10:15 ohara Exp $

#include "ca.h"

#include "parse.h"

Line 355 void Pheap(arg,rp)

NODE arg;

Q *rp;

{

int h0,h;

size_t h0,h;

unsigned int u,l;

N n;

void GC_expand_hp(int);

h0 = get_heapsize();

Line 365 Q *rp;

Line 367 Q *rp;

GC_expand_hp(h-h0);

}

h = get_heapsize();

STOQ(h,*rp);

if(sizeof(size_t)>sizeof(int)) {

u = h>>(sizeof(int)*CHAR_BIT); l = h&(~0);

if ( !u ) STOQ(l,*rp);

else {

n = NALLOC(2); PL(n)=2; BD(n)[0] = l; BD(n)[1] = u;

NTOQ(n,1,*rp);

}

}else {

STOQ(h,*rp);

}

unsigned int get_asir_version();