search for: vmaxset

...== --- src/main/printutils.c (revision 39548) +++ src/main/printutils.c (working copy) @@ -638,7 +638,7 @@ res = R_BUFSIZE; } #endif /* HAVE_VA_COPY */ - R_WriteConsole(p, strlen(buf)); + R_WriteConsole(p, strlen(p)); #ifdef HAVE_VA_COPY if(usedRalloc) vmaxset(vmax); if(usedVasprintf) free(p); Jeff -- http://biostat.mc.vanderbilt.edu/JeffreyHorner

...516,521 **** --- 519,527 ---- dd->gp.col = INTEGER(col)[i % ncol]; if (dd->gp.col == NA_INTEGER) dd->gp.col = colsave; + dd->gp.lwd = REAL(lwd)[i % nlwd]; + if (dd->gp.lwd == NA_REAL) + dd->gp.lwd = lwdsave; contour(x, nx, y, ny, z, REAL(c)[i], atom, dd); vmaxset(vmax); } *************** *** 523,529 **** vmaxset(vmax0); dd->gp.lty = ltysave; dd->gp.col = colsave; ! UNPROTECT(2); /* NOTE: only record operation if no "error" */ /* NOTE: on replay, call == R_NilValue */ if (call != R_NilValue) ---...

...R bug? I suspect it has to do with repeated calls to 'vmmin' like this: for (...){ vmax = vmaxget(); vmmin(*p, b, &Fmin, bfun, bfun_gr, *maxit, *trace, mask, abstol, reltol, nREPORT, ext, &fncount, &grcount, &fail); vmaxset(vmax); ... } but I am only guessing. Any suggestions? Ubuntu 8.04, R-2.7.2. G?ran ------------------------------------------------------------------- > glmmboot(y ~ x, cluster = cluster, data = res$dat, family = binomial, boot = 400) Program received signal SI...

...if(m < len ) memset(buf, m+1, len+1); // changed if(len && !m) return R_NilValue; } /* String may contain nuls which we now (R >= 2.8.0) assume to be padding and ignore silently */ ans = mkCharLenCE(buf, len, CE_NATIVE); // changed (one could also use no. read bytes as size) vmaxset(vmax); return ans; } -- The other changes are also not that hard - I'd do them if people think such changes should be included.... Thanks for listening, Michael Lachmann

...mp; look it up */ < p = CHAR(STRING(op)[0]); < q = buf; while ((*q = *p) != '\0') { p++; q++; } < < if (!(fun=R_FindSymbol(buf))) errorcall(call, < "C-R function not in load table\n"); < < retval=fun(args); < < vmaxset(vmax); < return retval; < } < 969c946 < } --- > } diff -r R-0.63/src/main/names.c R-0.63.orig/src/main/names.c 497d496 < {".RC", do_dotRCode, 0, 1, -1, PP_FOREIGN}, diff -r R-0.63/src/main/names.h R-0.63.orig/src/main/names.h...

...c alpha running digital unix 4.0 and got the following: f77 -shared -o ts.so PPsum.o burg.o eureka.o filter.o pacf.o starma.o stl.o carray.o mburg.o myw.o qr.o -lUfor -lfor -lFutil -lm -lots -lm ld: Warning: Unresolved: R_alloc R_NaReal R_IsNA R_IsNaNorNA R_chk_calloc R_chk_free Rf_error vmaxget vmaxset dqrdc2_ dqrcf_ mkdir ../../../../library/ts/libs gmake[4]: Leaving directory `/home/ming/R-1.0.0/src/library/ts/src' gmake[3]: Leaving directory `/home/ming/R-1.0.0/src/library/ts' gmake[3]: Entering directory `/home/ming/R-1.0.0/src/library/profile' building system startup profile gmak...

...ns, i, mkChar(s[i])); UNPROTECT(1); return ans; } and a patch Index: src/include/R_ext/Memory.h =================================================================== --- src/include/R_ext/Memory.h (revision 57169) +++ src/include/R_ext/Memory.h (working copy) @@ -36,6 +36,7 @@ void vmaxset(const void *); void R_gc(void); +void R_gc_needed(size_t); char* R_alloc(size_t, int); char* S_alloc(long, int); Index: src/main/memory.c =================================================================== --- src/main/memory.c (revision 57169) +++ src/main/memory.c (working copy)...

...uot; */ /* PAUL MURRELL Added this to replace definition in sys-defines.h with R one */ -//#include "Mathlib.h" +/* #include "Mathlib.h" */ /* PAUL MURRELL extern.h renamed g_extern.h @@ -166,7 +166,7 @@ label_width = _label_width_hershey (dd, codestring); vmaxset(vmax); - // free (codestring); + /* free (codestring); */ return label_width; } @@ -281,9 +281,9 @@ srtsave = dd->gp.srt; dd->gp.srt = rotation; - // dd->gp.lwd set in _draw_hershey_string + /* dd->gp.lwd set in _draw_hershey_string */ lwdsave = dd->gp.lwd; -...

r-help, The R manual lists two types of memory: transient and user-controlled. If I have transient blocks reachable from the globals only by traversal through user-controlled blocks, will they be correctly preserved? Secondly, what are the ways to mark user controlled blocks as "roots" for the garbage collector, so that transient blocks they reference stay uncollected? So far I

r-help, The R manual lists two types of memory: transient and user-controlled. If I have transient blocks reachable from the globals only by traversal through user-controlled blocks, will they be correctly preserved? Secondly, what are the ways to mark user controlled blocks as "roots" for the garbage collector, so that transient blocks they reference stay uncollected? So far I

This message is in MIME format --_=XFMail.1.3.p0.Linux:990422185944:4782=_ Content-Type: text/plain; charset=us-ascii R-0.64.0 on RedHat Linux 5.1 Some problems with multivariate fast fourier transform. I have attached the dump of a 30 x 3 matrix that seems to reliably reproduce these problems 1) mvfft doesn't like vectors. It complains about not having enough memory: R>

...= n-i; break; } if (tbl[h2].pos == n-i) { tbl[h].val = tbl[h2].val; break; } } tbl[h].pos = j; /* don't set until after search for entry n-i */ } VMAXSET(vmax); } return r; } This will be in a new version of pqR that will have many other performance improvements as well, which I expect to release in a few weeks. Radford Neal

...ern '%s'"), split); } - re_pe = pcre_study(re_pcre, 0, &errorptr); + re_pe = pcre_study(re_pcre, PCRE_STUDY_JIT_COMPILE, &errorptr); if (errorptr) warning(_("PCRE pattern study error\n\t'%s'\n"), errorptr); @@ -482,7 +486,11 @@ } vmaxset(vmax2); } +#ifdef PCRE_CONFIG_JIT + pcre_free_study(re_pe); +#else pcre_free(re_pe); +#endif pcre_free(re_pcre); } else if (!useBytes && use_UTF8) { /* ERE in wchar_t */ regex_t reg; @@ -867,12 +875,12 @@ warning(_("PCRE pattern compilation error\n\t...

...ingcall ld: 0711-317 ERROR: Undefined symbol: .Rf_isString ld: 0711-317 ERROR: Undefined symbol: .Rf_isInteger ld: 0711-317 ERROR: Undefined symbol: .Rf_isLogical ld: 0711-317 ERROR: Undefined symbol: .Rf_isReal ld: 0711-317 ERROR: Undefined symbol: .Rf_RGBpar ld: 0711-317 ERROR: Undefined symbol: .vmaxset ld: 0711-317 ERROR: Undefined symbol: .R_CheckDeviceAvailable ld: 0711-317 ERROR: Undefined symbol: R_interrupts_suspended ld: 0711-317 ERROR: Undefined symbol: .Rf_mkString ld: 0711-317 ERROR: Undefined symbol: .Rf_gsetVar ld: 0711-317 ERROR: Undefined symbol: .GEcreateDevDesc ld: 0711-317 ERROR:...

...---------- */ int j; double *a, ax; char* vmax = vmaxget(); a = (double *)R_alloc(n, sizeof(double)); /* Copy a[] and use copy since it will be re-shuffled: */ for (j = 0; j &lt; n; j++) a[j] = a_in[j]; k--; /* 0-indexing */ rPsort(a, n, k); ax = a[k]; vmaxset(vmax); return ax; } /* pull */ /* Local variables section * Local variables: * mode: c * kept-old-versions: 12 * kept-new-versions: 20 * End: */ double whimed_i(double *a, int *w, int n, double* a_cand, double *a_srt, int* w_cand) { /* Algorithm to compute the weighted high median...

...error(_("cannot allocate pd->annots[i]")); + } + strncpy(annot_str, str, nchar+1); + pd->annots[pd->annotspos++] = annot_str; + } + /* PostScript Device Driver Parameters: * ------------------------ *************** *** 7302,7304 **** --- 7426,7496 ---- vmaxset(vmax); return R_NilValue; } + + + /* PDFAnnotBox(x0, y0, x1, y1, text, coord) */ + + SEXP PDFAnnotBox(SEXP args) + { + pGEDevDesc gdd = GEcurrentDevice(); + PDFDesc *pd = (PDFDesc *) gdd->dev->deviceSpecific; + double x0, y0, x1, y1; + char *text, *coord; + GUnit f...

...cString Rf_allocVector Rf_allocList Rf_asInteger Rf_duplicate Rf_GetOption Rf_install Rf_isList Rf_isVector Rf_length Rf_listAppend Rf_nthcdr Rf_PrintDefaults Rf_protect Rf_unprotect SET_STRING_ELT SET_TAG SETCAR SETCDR Rf_begincontext Rf_endcontext Rf_str2type Rf_errorcall Rf_EncodeElement vmaxget vmaxset R_alloc Rprintf Rf_elt Rf_findVar Rf_GetDevice devNumber GEplayDisplayList addInputHandler getInputHandler removeInputHandler R_InputHandlers Rf_KillDevice R_setX11Routines gmake[5]: Entering directory `/soft/R/R-1.5.1/src/modules/X11' mkdir -p -- /soft/R/R-1.5.1/modules gmake[5]: Leaving direc...