[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/27: Require vector as argument to vector-copy
From: |
Daniel Llorens |
Subject: |
[Guile-commits] 01/27: Require vector as argument to vector-copy |
Date: |
Thu, 9 Apr 2020 11:00:00 -0400 (EDT) |
lloda pushed a commit to branch wip-vector-cleanup
in repository guile.
commit 21ede682af731f6666ffe586a27f6572e00cdebb
Author: Daniel Llorens <address@hidden>
AuthorDate: Mon Feb 3 11:21:20 2020 +0100
Require vector as argument to vector-copy
* libguile/vectors.c: Require vector and simplify.
---
libguile/vectors.c | 22 ++++++----------------
1 file changed, 6 insertions(+), 16 deletions(-)
diff --git a/libguile/vectors.c b/libguile/vectors.c
index 0f1e608..5d2eaf9 100644
--- a/libguile/vectors.c
+++ b/libguile/vectors.c
@@ -33,6 +33,7 @@
#include "numbers.h"
#include "pairs.h"
#include "vectors.h"
+#include <string.h>
#include "generalized-vectors.h"
@@ -269,22 +270,11 @@ SCM_DEFINE (scm_vector_copy, "vector-copy", 1, 0, 0,
"Return a copy of @var{vec}.")
#define FUNC_NAME s_scm_vector_copy
{
- scm_t_array_handle handle;
- size_t i, len;
- ssize_t inc;
- const SCM *src;
- SCM result, *dst;
-
- src = scm_vector_elements (vec, &handle, &len, &inc);
-
- result = make_vector (len);
- dst = SCM_I_VECTOR_WELTS (result);
- for (i = 0; i < len; i++, src += inc)
- dst[i] = *src;
-
- scm_array_handle_release (&handle);
-
- return result;
+ SCM_VALIDATE_VECTOR(1, vec);
+ size_t len = SCM_I_VECTOR_LENGTH (vec);
+ SCM val = make_vector (len);
+ memcpy (SCM_I_VECTOR_WELTS (val), SCM_I_VECTOR_ELTS (vec), len *
sizeof(SCM));
+ return val;
}
#undef FUNC_NAME
- [Guile-commits] branch wip-vector-cleanup updated (6b85b0f -> 4636eb2), Daniel Llorens, 2020/04/09
- [Guile-commits] 01/27: Require vector as argument to vector-copy,
Daniel Llorens <=
- [Guile-commits] 02/27: Require vector as argument to vector->list, Daniel Llorens, 2020/04/09
- [Guile-commits] 03/27: Require vector argument to scm_vector_elements, scm_vector_writable_elements, Daniel Llorens, 2020/04/09
- [Guile-commits] 04/27: Remove the unused argument from scm_array_p, Daniel Llorens, 2020/04/09
- [Guile-commits] 06/27: Simplify interfaces to scm_vector_elements and scm_vector_writable_elements, Daniel Llorens, 2020/04/09
- [Guile-commits] 08/27: Fix doc for last bitvector patch, Daniel Llorens, 2020/04/09
- [Guile-commits] 10/27: Add lenp parameter back to scm_vector_(writable_)elements, Daniel Llorens, 2020/04/09
- [Guile-commits] 07/27: Simplify interfaces to scm_bitvector_elements and scm_bitvector_writable_elements, Daniel Llorens, 2020/04/09
- [Guile-commits] 09/27: Simplify interfaces to scm_TYPEvector_(writable_)elements, Daniel Llorens, 2020/04/09
- [Guile-commits] 11/27: Add lenp parameter back to scm_bitvector_(writable_)elements, Daniel Llorens, 2020/04/09
- [Guile-commits] 14/27: Golf in srfi-4.h, Daniel Llorens, 2020/04/09