[std.porth] fix: memset bug :O

taylowar · Apr 24, 2024 · bf30c76 · bf30c76
1 parent 29cb5fc
commit bf30c76
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -76,3 +76,4 @@ tests/memset
 tests/envp
 tests/local-memory-overshadowing
 tests/backslash-in-strlit
+tests/memset-bug
diff --git a/std/std.porth b/std/std.porth
@@ -700,7 +700,7 @@ in
     byte !64
     data @ptr swap
     while dup 0 > do
-        byte @64 data @ptr !64
+        byte @64 data @ptr !8
         data inc64
         1 -
     end

diff --git a/tests/memset-bug.porth b/tests/memset-bug.porth
@@ -0,0 +1,14 @@
+
+include "std/std.porth"
+
+const N 32 end
+memory xs N end
+
+0 while dup N < do
+    'a' over xs + !8
+    1 +
+end drop
+
+N xs puts "\n" puts
+15 'b' xs memset drop
+N xs puts "\n" puts
diff --git a/tests/memset-bug.txt b/tests/memset-bug.txt
@@ -0,0 +1,10 @@
+:i argc 0
+:b stdin 0
+
+:i returncode 0
+:b stdout 66
+aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
+bbbbbbbbbbbbbbbaaaaaaaaaaaaaaaaa
+
+:b stderr 0
+