From 60929bf40e28fb5a73c3be918290835ee9f2bd75 Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Sun, 19 Apr 2020 13:40:25 +0200 Subject: [PATCH] core: Prepare for M2-Planet: vector.c. * src/vector.c: Rewrite C constructs not supported by M2-Planet. --- src/vector.c | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/vector.c b/src/vector.c index 05323bf5..df81c649 100644 --- a/src/vector.c +++ b/src/vector.c @@ -1,6 +1,6 @@ /* -*-comment-start: "//";comment-end:""-*- * GNU Mes --- Maxwell Equations of Software - * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen + * Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen * * This file is part of GNU Mes. * @@ -28,7 +28,8 @@ make_vector__ (long k) { SCM v = alloc (k); SCM x = make_cell__ (TVECTOR, k, v); - for (long i = 0; i < k; i++) + long i; + for (i = 0; i < k; i = i + 1) g_cells[v + i] = g_cells[vector_entry (cell_unspecified)]; return x; } @@ -98,7 +99,8 @@ list_to_vector (SCM x) SCM p = VECTOR (v); while (x != cell_nil) { - g_cells[p++] = g_cells[vector_entry (car (x))]; + g_cells[p] = g_cells[vector_entry (car (x))]; + p = p + 1; x = cdr (x); } return v; @@ -108,7 +110,8 @@ SCM vector_to_list (SCM v) { SCM x = cell_nil; - for (long i = LENGTH (v); i; i--) + long i; + for (i = LENGTH (v); i; i = i - 1) { SCM e = VECTOR (v) + i - 1; if (TYPE (e) == TREF)