1134d9b7d7
* Add memory intercept routines for Darwin using the official Darwin API (thanks to Drew Gallatin from Myricom for pointing me to some information from Apple engineers about how to make this work) * add debugging output to functionality test This commit was SVN r6920.
92 строки
2.4 KiB
C
92 строки
2.4 KiB
C
/*
|
|
* Copyright (c) 2004-2005 The Trustees of Indiana University.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 The Trustees of the University of Tennessee.
|
|
* All rights reserved.
|
|
* Copyright (c) 2004-2005 High Performance Computing Center Stuttgart,
|
|
* University of Stuttgart. All rights reserved.
|
|
* Copyright (c) 2004-2005 The Regents of the University of California.
|
|
* All rights reserved.
|
|
* $COPYRIGHT$
|
|
*
|
|
* Additional copyrights may follow
|
|
*
|
|
* $HEADER$
|
|
*/
|
|
|
|
#include "ompi_config.h"
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <sys/mman.h>
|
|
|
|
#include "ompi/include/constants.h"
|
|
#include "opal/runtime/opal.h"
|
|
#include "opal/memory/memory.h"
|
|
|
|
int ret = 2;
|
|
int size = 10 * 1024 * 1024;
|
|
|
|
static void
|
|
callback(void *buf, size_t length, void *cbdata)
|
|
{
|
|
printf("\tcallback with %lx, %d\n", (unsigned long) buf, (int) length);
|
|
ret--;
|
|
}
|
|
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
void * foo, *bar;
|
|
int retval;
|
|
|
|
opal_init();
|
|
#if 0
|
|
if (!opal_mem_free_is_supported()) {
|
|
printf("no memory registration supported. skipping\n");
|
|
return 77;
|
|
}
|
|
#endif
|
|
retval = opal_mem_free_register_handler(callback, NULL);
|
|
if (retval != OMPI_SUCCESS) {
|
|
printf("handler registration failed\n");
|
|
return retval;
|
|
}
|
|
|
|
/* make some big malloc that should trip an unmap */
|
|
foo = malloc(size);
|
|
printf(" - free of first big buffer\n");
|
|
free(foo);
|
|
|
|
/* and check munmap directly */
|
|
printf(" - munmap of small buffer\n");
|
|
munmap(NULL, 0);
|
|
|
|
/* see if realloc works. This is kind of a huristic (that going
|
|
from a small block to a big one will fail), so don't make this
|
|
an error */
|
|
if (ret == 0) {
|
|
ret = 2;
|
|
printf(" - realloc\n");
|
|
foo = malloc(size);
|
|
bar = malloc(10);
|
|
foo = realloc(foo, size * 2);
|
|
free(bar);
|
|
free(foo);
|
|
if (ret > 0) {
|
|
printf("WARNING - It appears that realloc does not trigger a callback\n");
|
|
printf("WARNING - this may be a problem or it may be a sign that your\n");
|
|
printf("WARNING - memory manager is better than mine\n");
|
|
printf("ret: %d\n", ret);
|
|
}
|
|
ret = 0;
|
|
}
|
|
|
|
retval = opal_mem_free_unregister_handler(callback);
|
|
if (retval != OMPI_SUCCESS) return retval;
|
|
|
|
opal_finalize();
|
|
|
|
return ret;
|
|
}
|