From fedbfff7c5f7091e5e2b2d29d6ebf1a20349f60f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 19 Feb 2008 13:22:41 +0100
Subject: Reimplement slot writing.

darcs-hash:54a65f96e6367f42013fef524eeddbeb4b8889ec
---
 Objective-C/libobjcl.h | 3 +++
 Objective-C/libobjcl.m | 8 ++++++++
 2 files changed, 11 insertions(+)

(limited to 'Objective-C')

diff --git a/Objective-C/libobjcl.h b/Objective-C/libobjcl.h
index c2e2fac..b5cefce 100644
--- a/Objective-C/libobjcl.h
+++ b/Objective-C/libobjcl.h
@@ -59,6 +59,9 @@ extern id objcl_current_exception;
 extern NSRecursiveLock *objcl_current_exception_lock;
 
 
+void *
+objcl_memmove (void *dest, void *src, unsigned long length);
+
 void
 objcl_initialise_runtime (void);
 
diff --git a/Objective-C/libobjcl.m b/Objective-C/libobjcl.m
index f244e50..646dccd 100644
--- a/Objective-C/libobjcl.m
+++ b/Objective-C/libobjcl.m
@@ -25,6 +25,7 @@
 #import "Foundation/Foundation.h"
 
 #include <stdarg.h>
+#include <string.h>
 #include <sys/mman.h>
 #include <objc/objc-api.h>
 
@@ -68,6 +69,13 @@ static NSMutableSet *lisp_backed_classes = nil;
 static int init_count = 0;
 
 
+void *
+objcl_memmove (void *dest, void *src, unsigned long length)
+{
+  return memmove (dest, src, length);
+}
+
+
 void
 objcl_initialise_runtime (void)
 {
-- 
cgit v1.2.3