The R Project SVN R

Rev

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

Rev 84211 Rev 84246
Line 40... Line 40...
40 
    SEXPTYPE type = eval ? BUILTINSXP : SPECIALSXP;
 40 
    SEXPTYPE type = eval ? BUILTINSXP : SPECIALSXP;
41 
    static SEXP PrimCache = NULL;
 41 
    static SEXP PrimCache = NULL;
42 
    static int FunTabSize = 0;
 42 
    static int FunTabSize = 0;
43
43
44 
    if (PrimCache == NULL) {
 44 
    if (PrimCache == NULL) {
45 
	/* compute the number of entires in R_FunTab */
 45 
	/* compute the number of entries in R_FunTab */
46 
	while (R_FunTab[FunTabSize].name)
 46 
	while (R_FunTab[FunTabSize].name)
47 
	    FunTabSize++;
 47 
	    FunTabSize++;
48 
 
 48 
 
49 
	/* allocate and protect the cache */
 49 
	/* allocate and protect the cache */
50 
	PrimCache = allocVector(VECSXP, FunTabSize);
 50 
	PrimCache = allocVector(VECSXP, FunTabSize);