[Rd] Usage of PROTECT_WITH_INDEX in R-exts

Martin Maechler maechler at stat.math.ethz.ch
Fri Jun 9 13:23:07 CEST 2017


>>>>> Kirill Müller <kirill.mueller at ivt.baug.ethz.ch>
>>>>>     on Thu, 8 Jun 2017 12:55:26 +0200 writes:

    > On 06.06.2017 22:14, Kirill Müller wrote:
    >> 
    >> 
    >> On 06.06.2017 10:07, Martin Maechler wrote:
    >>>>>>>> Kirill Müller <kirill.mueller at ivt.baug.ethz.ch> on
    >>>>>>>> Mon, 5 Jun 2017 17:30:20 +0200 writes:
    >>> > Hi I've noted a minor inconsistency in the
    >>> documentation: > Current R-exts reads
    >>> 
    >>> > s = PROTECT_WITH_INDEX(eval(OS->R_fcall, OS->R_env),
    >>> &ipx);
    >>> 
    >>> > but I believe it has to be
    >>> 
    >>> > PROTECT_WITH_INDEX(s = eval(OS->R_fcall, OS->R_env),
    >>> &ipx);
    >>> 
    >>> > because PROTECT_WITH_INDEX() returns void.
    >>> 
    >>> Yes indeed, thank you Kirill!
    >>> 
    >>> note that the same is true for its partner
    >>> function|macro REPROTECT()
    >>> 
    >>> However, as PROTECT() is used a gazillion times and
    >>> PROTECT_WITH_INDEX() is used about 100 x less, and
    >>> PROTECT() *does* return the SEXP, I do wonder why
    >>> PROTECT_WITH_INDEX() and REPROTECT() could not behave
    >>> the same as PROTECT() (a view at the source code seems
    >>> to suggest a change to be trivial).  I assume usual
    >>> compiler optimization would not create less efficient
    >>> code in case the idiom PROTECT_WITH_INDEX(s = ...)  is
    >>> used, i.e., in case the return value is not used ?
    >>> 
    >>> Maybe this is mainly a matter of taste, but I find the
    >>> use of
    >>> 
    >>> SEXP s = PROTECT(........);
    >>> 
    >>> quite nice in typical cases where this appears early in
    >>> a function.  Also for that reason -- but even more for
    >>> consistency -- it would also be nice if
    >>> PROTECT_WITH_INDEX() behaved the same.
    >> Thanks, Martin, this sounds reasonable. I've put together
    >> a patch for review [1], a diff for applying to SVN (via
    >> `cat | patch -p1`) would be [2]. The code compiles on my
    >> system.
    >> 
    >> 
    >> -Kirill
    >> 
    >> 
    >> [1] https://github.com/krlmlr/r-source/pull/5/files
    >> 
    >> [2]
    >> https://patch-diff.githubusercontent.com/raw/krlmlr/r-source/pull/5.diff

    > I forgot to mention that this patch applies cleanly to r72768.

Thank you, Kirill.
I've been a bit busy so did not get to reply more quickly.

Just to be clear: I did not ask for a patch but was _asking_ /
requesting comments about the possibility to do that.

In the mean time, within the core team, the opinions were
mixed and costs of the change (recompilations needed, C source level
check tools would need updating / depend on R versions) are
clearly non-zero.

As a consquence, we will fix the documentation, rather than changing the API.
Martin



More information about the R-devel mailing list