The R Project SVN R

Rev

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

Rev 85146 Rev 85148
Line 2022... Line 2022...
2022 
#endif
 2022 
#endif
2023 
	    }
 2023 
	    }
2024 
	    break;
 2024 
	    break;
2025 
	case VECSXP:
 2025 
	case VECSXP:
2026 
	    if (Fort) error(_("invalid mode (%s) to pass to Fortran (arg %d)"),
 2026 
	    if (Fort) error(_("invalid mode (%s) to pass to Fortran (arg %d)"),
2027 
			    type2char(t), na + 1);
 2027 
			    R_typeToChar(s), na + 1);
2028 
	    /* Used read-only, so this is safe */
 2028 
	    /* Used read-only, so this is safe */
2029 
#ifdef USE_RINTERNALS
 2029 
#ifdef USE_RINTERNALS
2030 
            if (!ALTREP(s))
 2030 
            if (!ALTREP(s))
2031 
                cargs[na] = (void*) DATAPTR(s);
 2031 
                cargs[na] = (void*) DATAPTR(s);
2032 
            else {
 2032 
            else {
Line 2043... Line 2043...
2043 
	case CLOSXP:
 2043 
	case CLOSXP:
2044 
	case BUILTINSXP:
 2044 
	case BUILTINSXP:
2045 
	case SPECIALSXP:
 2045 
	case SPECIALSXP:
2046 
	case ENVSXP:
 2046 
	case ENVSXP:
2047 
	    if (Fort) error(_("invalid mode (%s) to pass to Fortran (arg %d)"),
 2047 
	    if (Fort) error(_("invalid mode (%s) to pass to Fortran (arg %d)"),
2048 
			    type2char(t), na + 1);
 2048 
			    R_typeToChar(s), na + 1);
2049 
	    cargs[na] =  (void*) s;
 2049 
	    cargs[na] =  (void*) s;
2050 
	    break;
 2050 
	    break;
2051 
	case NILSXP:
 2051 
	case NILSXP:
2052 
	    error(_("invalid mode (%s) to pass to C or Fortran (arg %d)"),
 2052 
	    error(_("invalid mode (%s) to pass to C or Fortran (arg %d)"),
2053 
		  type2char(t), na + 1);
 2053 
		  R_typeToChar(s), na + 1);
2054 
	    cargs[na] =  (void*) s;
 2054 
	    cargs[na] =  (void*) s;
2055 
	    break;
 2055 
	    break;
2056 
	default:
 2056 
	default:
2057 
	    /* Includes pairlists from R 2.15.0 */
 2057 
	    /* Includes pairlists from R 2.15.0 */
2058 
	    if (Fort) error(_("invalid mode (%s) to pass to Fortran (arg %d)"),
 2058 
	    if (Fort) error(_("invalid mode (%s) to pass to Fortran (arg %d)"),
2059 
			    type2char(t), na + 1);
 2059 
			    R_typeToChar(s), na + 1);
2060 
	    warning("passing an object of type '%s' to .C (arg %d) is deprecated",
 2060 
	    warning("passing an object of type '%s' to .C (arg %d) is deprecated",
2061 
		    type2char(t), na + 1);
 2061 
		    R_typeToChar(s), na + 1);
2062 
	    if (t == LISTSXP)
 2062 
	    if (t == LISTSXP)
2063 
		warning(_("pairlists are passed as SEXP as from R 2.15.0"));
 2063 
		warning(_("pairlists are passed as SEXP as from R 2.15.0"));
2064 
	    cargs[na] =  (void*) s;
 2064 
	    cargs[na] =  (void*) s;
2065 
	    break;
 2065 
	    break;
2066 
	}
 2066 
	}