X-Git-Url: http://demsky.eecs.uci.edu/git/?a=blobdiff_plain;f=mymemory.cc;h=3d5168f95571abb4f36afc848a4be1073c7abda8;hb=HEAD;hp=5cb06a4f834e72a1be7f578c0e41c76d70f06aad;hpb=6f66bffd0b774c219883d634586a4565c9e59af5;p=c11tester.git

diff --git a/mymemory.cc b/mymemory.cc
index 5cb06a4f..3d5168f9 100644
--- a/mymemory.cc
+++ b/mymemory.cc
@@ -1,220 +1,200 @@
-#include "mymemory.h"
-#include "snapshot.h"
-#include "snapshotimp.h"
+
+#include <stdlib.h>
 #include <stdio.h>
 #include <dlfcn.h>
 #include <unistd.h>
-#include <cstring>
+#include <string.h>
+#include <new>
+
+#include "mymemory.h"
+#include "snapshot.h"
 #include "common.h"
+#include "threads-model.h"
+#include "model.h"
+#include "datarace.h"
+
 #define REQUESTS_BEFORE_ALLOC 1024
-size_t allocatedReqs[ REQUESTS_BEFORE_ALLOC ] = { 0 };
+
+size_t allocatedReqs[REQUESTS_BEFORE_ALLOC] = { 0 };
 int nextRequest = 0;
 int howManyFreed = 0;
-#if !USE_MPROTECT_SNAPSHOT
-static mspace sStaticSpace = NULL;
-#endif
+mspace sStaticSpace = NULL;
 
 /** Non-snapshotting calloc for our use. */
-void *model_calloc(size_t count, size_t size) {
-#if USE_MPROTECT_SNAPSHOT
-	static void *(*callocp)(size_t count, size_t size)=NULL;
-	char *error;
-	void *ptr;
-
-	/* get address of libc malloc */
-	if (!callocp) {
-		callocp = ( void * ( * )( size_t, size_t ) )dlsym(RTLD_NEXT, "calloc");
-		if ((error = dlerror()) != NULL) {
-			fputs(error, stderr);
-			exit(EXIT_FAILURE);
-		}
-	}
-	ptr = callocp(count, size);
-	return ptr;
-#else
-	if( !snapshotrecord) {
-		createSharedMemory();
-	}
-	if( NULL == sStaticSpace )
-		sStaticSpace = create_mspace_with_base( ( void * )( snapshotrecord->mSharedMemoryBase ), SHARED_MEMORY_DEFAULT -sizeof( struct SnapShot ), 1 );
-	return mspace_calloc( sStaticSpace, count, size );
-#endif
+void *model_calloc(size_t count, size_t size)
+{
+	return mspace_calloc(sStaticSpace, count, size);
 }
 
 /** Non-snapshotting malloc for our use. */
-void *model_malloc(size_t size) {
-#if USE_MPROTECT_SNAPSHOT
-	static void *(*mallocp)(size_t size)=NULL;
-	char *error;
-	void *ptr;
-
-	/* get address of libc malloc */
-	if (!mallocp) {
-		mallocp = ( void * ( * )( size_t ) )dlsym(RTLD_NEXT, "malloc");
-		if ((error = dlerror()) != NULL) {
-			fputs(error, stderr);
-			exit(EXIT_FAILURE);
-		}
-	}
-	ptr = mallocp(size);
-	return ptr;
-#else
-	if( !snapshotrecord) {
-		createSharedMemory();
-	}
-	if( NULL == sStaticSpace )
-		sStaticSpace = create_mspace_with_base( ( void * )( snapshotrecord->mSharedMemoryBase ), SHARED_MEMORY_DEFAULT -sizeof( struct SnapShot ), 1 );
-	return mspace_malloc( sStaticSpace, size );
-#endif
+void *model_malloc(size_t size)
+{
+	return mspace_malloc(sStaticSpace, size);
+}
+
+/** Non-snapshotting malloc for our use. */
+void *model_realloc(void *ptr, size_t size)
+{
+	return mspace_realloc(sStaticSpace, ptr, size);
 }
 
 /** @brief Snapshotting malloc, for use by model-checker (not user progs) */
 void * snapshot_malloc(size_t size)
 {
-	return malloc(size);
+	void *tmp = mspace_malloc(model_snapshot_space, size);
+	ASSERT(tmp);
+	return tmp;
 }
 
 /** @brief Snapshotting calloc, for use by model-checker (not user progs) */
 void * snapshot_calloc(size_t count, size_t size)
 {
-	return calloc(count, size);
+	void *tmp = mspace_calloc(model_snapshot_space, count, size);
+	ASSERT(tmp);
+	return tmp;
 }
 
-/** @brief Snapshotting free, for use by model-checker (not user progs) */
-void snapshot_free(void *ptr)
+/** @brief Snapshotting realloc, for use by model-checker (not user progs) */
+void *snapshot_realloc(void *ptr, size_t size)
 {
-	free(ptr);
+	void *tmp = mspace_realloc(model_snapshot_space, ptr, size);
+	ASSERT(tmp);
+	return tmp;
 }
 
-void *system_malloc( size_t size ){
-	static void *(*mallocp)(size_t size);
-	char *error;
-	void *ptr;
-
-	/* get address of libc malloc */
-	if (!mallocp) {
-		mallocp = ( void * ( * )( size_t ) )dlsym(RTLD_NEXT, "malloc");
-		if ((error = dlerror()) != NULL) {
-			fputs(error, stderr);
-			exit(EXIT_FAILURE);
-		}
-	}
-	ptr = mallocp(size);
-	return ptr;
+/** @brief Snapshotting free, for use by model-checker (not user progs) */
+void snapshot_free(void *ptr)
+{
+	mspace_free(model_snapshot_space, ptr);
 }
 
 /** Non-snapshotting free for our use. */
-void model_free(void *ptr) {
-#if USE_MPROTECT_SNAPSHOT
-	static void (*freep)(void *);
-	char *error;
-
-	/* get address of libc free */
-	if (!freep) {
-		freep = ( void  ( * )( void * ) )dlsym(RTLD_NEXT, "free");
-		if ((error = dlerror()) != NULL) {
-			fputs(error, stderr);
-			exit(EXIT_FAILURE);
-		}
-	}
-	freep(ptr);
-#else
-	mspace_free( sStaticSpace, ptr );
-#endif
+void model_free(void *ptr)
+{
+	mspace_free(sStaticSpace, ptr);
 }
 
+/** Bootstrap allocation. Problem is that the dynamic linker calls require
+ *  calloc to work and calloc requires the dynamic linker to work. */
 
-/** @brief Global mspace reference for the snapshotting heap */
-mspace mySpace = NULL;
-
-/** Bootstrap allocation.  Problem is that the dynamic linker calls
- *  require calloc to work and calloc requires the dynamic linker to
- *	work.  */
-
-#define BOOTSTRAPBYTES 4096
+#define BOOTSTRAPBYTES 131072
 char bootstrapmemory[BOOTSTRAPBYTES];
-size_t offset=0;
+size_t offset = 0;
 
-void * HandleEarlyAllocationRequest( size_t sz ){
-	/*Align to 8 byte boundary*/
-	sz=(sz+7)&~7;
+void * HandleEarlyAllocationRequest(size_t sz)
+{
+	/* Align to 8 byte boundary */
+	sz = (sz + 7) & ~7;
 
 	if (sz > (BOOTSTRAPBYTES-offset)) {
-		printf("OUT OF BOOTSTRAP MEMORY\n");
+		model_print("OUT OF BOOTSTRAP MEMORY.  Increase the size of BOOTSTRAPBYTES in mymemory.cc\n");
 		exit(EXIT_FAILURE);
 	}
 
-	void * pointer= (void *) & bootstrapmemory[offset];
-	offset+=sz;
+	void *pointer = (void *)&bootstrapmemory[offset];
+	offset += sz;
 	return pointer;
 }
 
-/** Check whether this is bootstrapped memory that we should not
-		free. */
-
-bool DontFree( void * ptr ){
-	return (ptr>=(&bootstrapmemory[0])&&ptr<(&bootstrapmemory[BOOTSTRAPBYTES]));
-}
-
-/** @brief Snapshotting malloc implementation for user programs */
-void *malloc( size_t size )
-{
-	if (mySpace) {
-		void *tmp=mspace_malloc( mySpace, size );
-		ASSERT(tmp);
-		return tmp;
-	} else
-		return HandleEarlyAllocationRequest( size );
-}
-
-/** @brief Snapshotting free implementation for user programs */
-void free( void * ptr ){
-	if (!DontFree(ptr))
-		mspace_free(mySpace, ptr);
-}
+/** @brief Global mspace reference for the model-checker's snapshotting heap */
+mspace model_snapshot_space = NULL;
 
-/** @brief Snapshotting realloc implementation for user programs */
-void *realloc( void *ptr, size_t size )
+/** @brief Snapshotting allocation function for use by the Thread class only */
+void * Thread_malloc(size_t size)
 {
-	void *tmp = mspace_realloc(mySpace, ptr, size);
-	ASSERT(tmp);
-	return tmp;
+	return snapshot_malloc(size);
 }
 
-/** @brief Snapshotting calloc implementation for user programs */
-void * calloc( size_t num, size_t size )
+/** @brief Snapshotting free function for use by the Thread class only */
+void Thread_free(void *ptr)
 {
-	if (mySpace) {
-		void *tmp = mspace_calloc(mySpace, num, size);
-		ASSERT(tmp);
-		return tmp;
-	} else {
-		void *tmp=HandleEarlyAllocationRequest( size * num );
-		std::memset( tmp, 0, size * num );
-		return tmp;
-	}
+	snapshot_free(ptr);
 }
 
-/** @brief Snapshotting new operator for user programs */
-void * operator new(size_t size) throw(std::bad_alloc)
-{
-	return malloc(size);
-}
+void * (*volatile real_memcpy)(void * dst, const void *src, size_t n) = NULL;
+void * (*volatile real_memmove)(void * dst, const void *src, size_t len) = NULL;
+void (*volatile real_bzero)(void * dst, size_t len) = NULL;
+void * (*volatile real_memset)(void * dst, int c, size_t len) = NULL;
 
-/** @brief Snapshotting delete operator for user programs */
-void operator delete(void *p) throw()
+void init_memory_ops()
 {
-	free(p);
+	if (!real_memcpy) {
+		real_memcpy = (void * (*)(void * dst, const void *src, size_t n)) 1;
+		real_memcpy = (void * (*)(void * dst, const void *src, size_t n))dlsym(RTLD_NEXT, "memcpy");
+	}
+	if (!real_memmove) {
+		real_memmove = (void * (*)(void * dst, const void *src, size_t n)) 1;
+		real_memmove = (void * (*)(void * dst, const void *src, size_t n))dlsym(RTLD_NEXT, "memmove");
+	}
+	if (!real_memset) {
+		real_memset = (void * (*)(void * dst, int c, size_t n)) 1;
+		real_memset = (void * (*)(void * dst, int c, size_t n))dlsym(RTLD_NEXT, "memset");
+	}
+	if (!real_bzero) {
+		real_bzero = (void (*)(void * dst, size_t len)) 1;
+		real_bzero = (void (*)(void * dst, size_t len))dlsym(RTLD_NEXT, "bzero");
+	}
 }
 
-/** @brief Snapshotting new[] operator for user programs */
-void * operator new[](size_t size) throw(std::bad_alloc)
-{
-	return malloc(size);
+void * memcpy(void * dst, const void * src, size_t n) {
+	if (model && !inside_model) {
+		//model_print("memcpy size: %d\n", n);
+		thread_id_t tid = thread_current_id();
+		raceCheckReadMemop(tid, (void *)src, n);
+		raceCheckWriteMemop(tid, (void *)dst, n);
+	} else if (((uintptr_t)real_memcpy) < 2) {
+		for(uint i=0;i<n;i++) {
+			((volatile char *)dst)[i] = ((char *)src)[i];
+		}
+		return dst;
+	}
+	return real_memcpy(dst, src, n);
+}
+
+void * memmove(void * dst, const void * src, size_t n) {
+	if (model && !inside_model) {
+		thread_id_t tid = thread_current_id();
+		raceCheckReadMemop(tid, (void *)src, n);
+		raceCheckWriteMemop(tid, (void *)dst, n);
+	} else if (((uintptr_t)real_memmove) < 2) {
+		if (((uintptr_t)dst) < ((uintptr_t)src))
+			for(uint i=0;i<n;i++) {
+				((volatile char *)dst)[i] = ((char *)src)[i];
+			}
+		else
+			for(uint i=n;i!=0; ) {
+				i--;
+				((volatile char *)dst)[i] = ((char *)src)[i];
+			}
+		return dst;
+	}
+	return real_memmove(dst, src, n);
+}
+
+void * memset(void *dst, int c, size_t n) {
+	if (model && !inside_model) {
+		//model_print("memset size: %d\n", n);
+		thread_id_t tid = thread_current_id();
+		raceCheckWriteMemop(tid, (void *)dst, n);
+	} else if (((uintptr_t)real_memset) < 2) {
+		//stuck in dynamic linker alloc cycle...
+		for(size_t s=0;s<n;s++) {
+			((volatile char *)dst)[s] = (char) c;
+		}
+		return dst;
+	}
+	return real_memset(dst, c, n);
 }
 
-/** @brief Snapshotting delete[] operator for user programs */
-void operator delete[](void *p, size_t size)
-{
-	free(p);
+void bzero(void *dst, size_t n) {
+	if (model && !inside_model) {
+		thread_id_t tid = thread_current_id();
+		raceCheckWriteMemop(tid, (void *)dst, n);
+	} else if (((uintptr_t)real_bzero) < 2) {
+		for(size_t s=0;s<n;s++) {
+			((volatile char *)dst)[s] = 0;
+		}
+		return;
+	}
+	real_bzero(dst, n);
 }