From 8194ecfc0f79a8d0224c9dfd50880c9bba665acc Mon Sep 17 00:00:00 2001
From: "Jan (janneke) Nieuwenhuizen" <janneke@gnu.org>
Date: Sun, 17 May 2020 19:29:57 +0200
Subject: [PATCH] mescc: Mes C Library: Prepare for M2-Planet: strcpy.

* lib/string/strcpy.c: Rewrite C-constructs not supported by M2-Planet.
---
 lib/string/strcpy.c | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/lib/string/strcpy.c b/lib/string/strcpy.c
index b0e696c2..d414a5dd 100644
--- a/lib/string/strcpy.c
+++ b/lib/string/strcpy.c
@@ -1,6 +1,6 @@
 /* -*-comment-start: "//";comment-end:""-*-
  * GNU Mes --- Maxwell Equations of Software
- * Copyright © 2016,2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+ * Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
  *
  * This file is part of GNU Mes.
  *
@@ -24,8 +24,14 @@ char *
 strcpy (char *dest, char const *src)
 {
   char *p = dest;
-  while (*src)
-    *p++ = *src++;
-  *p = 0;
+
+  while (src[0] != 0)
+    {
+      p[0] = src[0];
+      p = p + 1;
+      src = src + 1;
+    }
+  p[0] = 0;
+
   return dest;
 }