Remove my_memcpy.

Author: dvanhorn

langs/mug/compile-ops.rkt

@@ -146,7 +146,7 @@
 
        (Mov 'r12 rdx)            ; save rdx before destroyed
        pad-stack
-       (Call 'my_memcpy)
+       (Call 'memcpy)
        unpad-stack
        (Mov rbx rax) ; dst is returned, install as heap pointer
        (Add rbx 'r12)))

langs/mug/compile.rkt

@@ -44,4 +44,4 @@
        (Extern 'write_byte)
        (Extern 'raise_error)
        (Extern 'intern_symbol)
-       (Extern 'my_memcpy)))
+       (Extern 'memcpy)))

langs/mug/symbol.c

@@ -1,7 +1,5 @@
 #include <stdlib.h>
 #include <inttypes.h>
-#include <stdio.h>
-#include <string.h>
 #include "values.h"
 
 int symb_cmp(const val_symb_t *, const val_symb_t *);
@@ -15,13 +13,6 @@ struct Node {
 
 static struct Node *symbol_tbl = NULL;
 
-void *my_memcpy(void *dest, const void *src, size_t n) {
-  printf("memcpy(%" PRId64 ", %" PRId64 ", %" PRId64 ")", (int64_t)dest, (int64_t)src, (int64_t)n);
-  void * r = memcpy(dest, src, n);
-  printf(" = %" PRId64 "\n", (int64_t)r);
-  return r;
-}
-
 val_symb_t *intern_symbol(val_symb_t* symb)
 {
   struct Node **curr = &symbol_tbl;