.

inst/include/dotCall64.h

@@ -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

src/dotCall64.c

@@ -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];