The R Project SVN R

Rev

Rev 53309 | Rev 82110 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 53309 Rev 53310
Line 21... Line 21...
21 
#include <stdio.h>
 21 
#include <stdio.h>
22 
#define XMALLOC_INTERNAL 1
 22 
#define XMALLOC_INTERNAL 1
23 
#include "xmalloc.h"
 23 
#include "xmalloc.h"
24 
 
 24 
 
25 
/* fake definition */
 25 
/* fake definition */
26 
extern void error(const char *str);
 26 
extern void Rf_error(const char *str);
27 
#define assert(a) R_assert(a)
 27 
#define assert(a) R_assert(a)
28 
 
 28 
 
29 
static void assert(int expr)
 29 
static void assert(int expr)
30 
{
 30 
{
31 
    if(expr == 0)
 31 
    if(expr == 0)
32 
	error("internal allocation error in TRE");
 32 
	Rf_error("internal allocation error in TRE");
33 
}
 33 
}
34 
 
 34 
 
35
35
36 
/*
 36 
/*
37 
  Internal stuff.
 37 
  Internal stuff.