added strdup

2026-03-20 21:23:45 +01:00
parent e2159bbca2
commit 5dd361e563
1 changed files with 5 additions and 0 deletions
--- a/stdlib/utils.sl
+++ b/stdlib/utils.sl
@@ -8,6 +8,11 @@ word strcmp
    drop drop 1
 end

+# strdup [*, addr | len] -> [*, addr, len, addr1 | len1]
+word strdup
+    dup alloc 2 pick 2 pick memcpy
+end
+
 #strconcat [*, addr, len, addr | len] -> [*, addr | len]
 word strconcat
    0 pick 3 pick +