The R Project SVN R

Rev

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

Rev 49076 Rev 50745
Line 761... Line 761...
761 
{
 761 
{
762 
    DL_FUNC ofun = NULL;
 762 
    DL_FUNC ofun = NULL;
763 
    R_ExternalRoutine fun = NULL;
 763 
    R_ExternalRoutine fun = NULL;
764 
    SEXP retval;
 764 
    SEXP retval;
765 
    R_RegisteredNativeSymbol symbol = {R_EXTERNAL_SYM, {NULL}, NULL};
 765 
    R_RegisteredNativeSymbol symbol = {R_EXTERNAL_SYM, {NULL}, NULL};
766 
    void *vmax = vmaxget();
 766 
    const void *vmax = vmaxget();
767 
    char buf[MaxSymbolBytes];
 767 
    char buf[MaxSymbolBytes];
768 
 
 768 
 
769 
    args = resolveNativeRoutine(args, &ofun, &symbol, buf, NULL, NULL,
 769 
    args = resolveNativeRoutine(args, &ofun, &symbol, buf, NULL, NULL,
770 
				NULL, call);
 770 
				NULL, call);
771 
    fun = (R_ExternalRoutine) ofun;
 771 
    fun = (R_ExternalRoutine) ofun;
Line 802... Line 802...
802 
    DL_FUNC ofun = NULL;
 802 
    DL_FUNC ofun = NULL;
803 
    VarFun fun = NULL;
 803 
    VarFun fun = NULL;
804 
    SEXP retval, nm, cargs[MAX_ARGS], pargs;
 804 
    SEXP retval, nm, cargs[MAX_ARGS], pargs;
805 
    R_RegisteredNativeSymbol symbol = {R_CALL_SYM, {NULL}, NULL};
 805 
    R_RegisteredNativeSymbol symbol = {R_CALL_SYM, {NULL}, NULL};
806 
    int nargs;
 806 
    int nargs;
807 
    void *vmax = vmaxget();
 807 
    const void *vmax = vmaxget();
808 
    char buf[MaxSymbolBytes];
 808 
    char buf[MaxSymbolBytes];
809 
 
 809 
 
810 
    nm = CAR(args);
 810 
    nm = CAR(args);
811 
    args = resolveNativeRoutine(args, &ofun, &symbol, buf, NULL, NULL,
 811 
    args = resolveNativeRoutine(args, &ofun, &symbol, buf, NULL, NULL,
812 
				NULL, call);
 812 
				NULL, call);