From 1cfc4937b52fcad0ce6bf28b246cec289c15d07d Mon Sep 17 00:00:00 2001
From: Florian Gerber <florian.gerber@math.uzh.ch>
Date: Tue, 12 Dec 2017 13:38:56 +0100
Subject: [PATCH] .
---
inst/include/dotCall64.h | 2 +-
src/dotCall64.c | 8 ++++----
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/inst/include/dotCall64.h b/inst/include/dotCall64.h
index 2c816c1..78f16ef 100644
--- a/inst/include/dotCall64.h
+++ b/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
diff --git a/src/dotCall64.c b/src/dotCall64.c
index 777ed49..5cb003f 100644
--- a/src/dotCall64.c
+++ b/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];
--
GitLab