added strdup

This commit is contained in:
IgorCielniak
2026-03-20 21:23:45 +01:00
parent e2159bbca2
commit 5dd361e563

View File

@@ -8,6 +8,11 @@ word strcmp
drop drop 1 drop drop 1
end 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] #strconcat [*, addr, len, addr | len] -> [*, addr | len]
word strconcat word strconcat
0 pick 3 pick + 0 pick 3 pick +