From 8e5f169218c2518b6458def89d50e18658383b0c Mon Sep 17 00:00:00 2001
From: Michael Mikonos <mb@iinet.net.au>
Date: Tue, 30 Jan 2024 21:48:54 +0800
Subject: [PATCH] StrScan(): Copy into new buffer with MemCopy() instead of a
 loop

---
 src/Kernel/StrScan.ZC | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Kernel/StrScan.ZC b/src/Kernel/StrScan.ZC
index 457a04d5..9e634725 100755
--- a/src/Kernel/StrScan.ZC
+++ b/src/Kernel/StrScan.ZC
@@ -242,7 +242,7 @@ and take address.
 */
 	U8	*buf, *ptr, **pptr;
 	Bool left_justify = FALSE;
-	I64  ch, cur_arg = 0, i, len, *i_ptr, dec_len;
+	I64  ch, cur_arg = 0, len, *i_ptr, dec_len;
 	F64 *d_ptr;
 
 	if (!format)
@@ -301,9 +301,9 @@ and take address.
 					}
 				}
 				buf = MAlloc(len + 1);
-				for (i = 0; i < len; i++)
-					buf[i] = *src++;
-				buf[i] = 0;
+				MemCopy(buf, src, len);
+				buf[len] = 0;
+				src += len;
 				switch (ch)
 				{
 					case 's':