Commit 1cfc4937 authored by Florian Gerber's avatar Florian Gerber

.

parent 167ad0ae
......@@ -16,7 +16,7 @@
/*
* Because R does not define an int64 type, this pseudo type is used to
* indicate an int64_t argument type:
* Currently, R only uses 4 bits for it's types. Therefore this value will not
* Currently, R only uses 4 bits for types. Therefore, this value will not
* clash.
*/
#define INT64_TYPE 9999
......
......@@ -209,7 +209,7 @@ SEXP dC64(SEXP args_in) {
}
// Determine if the arguments were named and keep the names if true.
// Determine if the arguments are named and keep the names if true.
SEXP names = NULL;
Rboolean havenames = FALSE;
for(na = 0; na < nargs; na++) {
......@@ -321,7 +321,7 @@ void dotCall64(DL_FUNC fun, int nargs, SEXP *args, int *args_type, int *args_int
do_type[na] = args_type[na];
}
// Check if a warning should be raised in case the provided arguement type dose not match the expected type.
// Check if a warning should be raised in case the provided argument type dose not match the expected type.
if(flag_verbose >= 1 && TYPEOF(s)!=do_type[na]) {
warning(_("[dotCall64|wrong R object type] argument %d; expected type '%s'; got type '%s'; argument coerced"),
na+1, type2char(do_type[na]), CHAR(type2str(TYPEOF(s))));
......@@ -396,11 +396,11 @@ static void prepareArguments(DL_FUNC fun, int nargs, SEXP *args,
int na;
void **cargs[MAX_ARGS]; // pointers for the actual function.
SEXP args_in[MAX_ARGS]; // contains a copy of the arguments given.
SEXP args_in[MAX_ARGS]; // contains a copy of the given arguments.
int n_protect = 0; // counts how many times PROTECT has been called.
// Copy the the argument: Used for efficient int64 casting.
// Copy the argument (for efficient int64 casting).
for(na=0; na < nargs; na++)
args_in[na] = args[na];
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment