Fix bug in memcpy()

Author: mupfdev

src/api.c

@@ -676,8 +676,8 @@ static int pico8_srand(lua_State* L)
 
 static int pico8_memcpy(lua_State* L)
 {
-    uint16_t source_addr = fix32_to_uint16(luaL_checkunsigned(L, 1));
-    uint16_t dest_addr = fix32_to_uint16(luaL_checkunsigned(L, 2));
+    uint16_t dest_addr = fix32_to_uint16(luaL_checkunsigned(L, 1));
+    uint16_t source_addr = fix32_to_uint16(luaL_checkunsigned(L, 2));
     uint32_t len = fix32_to_uint32(luaL_checkunsigned(L, 3));
 
     // Clamp length so that both source and destination stay within RAM_SIZE.

tests/tests.p8

@@ -175,17 +175,17 @@ function run_tests()
     pset(10, 10, 0)
     assert_equal(pget(10, 10), 0, "pget(10, 10)")
 
-    memset(0x6000, 0xab, 8)
+    memset(0x6000, 0xab, 2)
     assert_equal(peek2(0x6000), 0xabab, "memset(0x6000, 0xab, 8)")
-    memset(0x6002, 0xba, 8)
-    assert_equal(peek2(0x6002), 0xbaba, "memset(0x6002, 0xba, 8)")
-
-    memcpy(0x6000, 0x7000, 2)
-    assert_equal(peek2(0x6000), peek2(0x7000), "memcpy(0x6000, 0x7000, 2)")
-    assert_equal(peek2(0x7000), 0xabab,        "memcpy(0x6000, 0x7000, 2)")
-    memcpy(0x6002, 0x7002, 2)
-    assert_equal(peek2(0x6002), peek2(0x7002), "memcpy(0x6002, 0x7002, 2)")
-    assert_equal(peek2(0x7002), 0xbaba,        "memcpy(0x6002, 0x7002, 2)")
+
+    memcpy(0x6080, 0x6000, 2)
+    assert_equal(peek2(0x6080), 0xabab, "memcpy(0x6080, 0x6000, 2)")
+
+    memset(0x6000, 0, 0x1fc0)
+    memset(0x6040, 0xf9, 0x1fc0)
+    assert_equal(peek2(0x6040), 0xf9f9, "memset(0x6040, 0xf9, 0x1fc0)")
+    memcpy(0x6000,0x6040,0x1fc0)
+    assert_equal(peek2(0x6000), 0xf9f9, "memcpy(0x6000, 0x6040, 0x1fc0)")
 end
 
 run_tests()