2020-10-16 23:56:22 +02:00
|
|
|
# -*- mode: org -*-
|
|
|
|
# vim: syntax=c
|
|
|
|
#+TITLE: Memory management
|
|
|
|
|
|
|
|
We override the allocation functions to enable the possibility of
|
|
|
|
optimized libraries to fine-tune the memory allocation.
|
|
|
|
|
|
|
|
3 files are produced:
|
|
|
|
- a header file : =qmckl_memory.h=
|
|
|
|
- a source file : =qmckl_memory.c=
|
|
|
|
- a test file : =test_qmckl_memory.c=
|
|
|
|
|
|
|
|
*** Header
|
|
|
|
#+BEGIN_SRC C :tangle qmckl_memory.h
|
|
|
|
#ifndef QMCKL_MEMORY_H
|
|
|
|
#define QMCKL_MEMORY_H
|
|
|
|
#include "qmckl.h"
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
*** Source
|
|
|
|
#+BEGIN_SRC C :tangle qmckl_memory.c
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include "qmckl_memory.h"
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
*** Test
|
|
|
|
#+BEGIN_SRC C :tangle test_qmckl_memory.c
|
|
|
|
#include "qmckl_memory.h"
|
|
|
|
#include <stdio.h>
|
|
|
|
int main() {
|
|
|
|
qmckl_exit_code rc; /* return code */
|
|
|
|
rc = QMCKL_SUCCESS;
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
** =qmckl_malloc=
|
|
|
|
Analogous of =malloc, but passing signed 64-bit integers as argument.=
|
|
|
|
*** Header
|
|
|
|
#+BEGIN_SRC C :tangle qmckl_memory.h
|
|
|
|
void* qmckl_malloc(long long int size);
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
*** Source
|
|
|
|
#+BEGIN_SRC C :tangle qmckl_memory.c
|
|
|
|
void* qmckl_malloc(long long int size) {
|
|
|
|
return malloc( (size_t) size );
|
|
|
|
}
|
|
|
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
*** Test
|
|
|
|
#+BEGIN_SRC C :tangle test_qmckl_memory.c
|
|
|
|
int *a;
|
|
|
|
a = (int*) qmckl_malloc(3*sizeof(int));
|
|
|
|
a[0] = 1;
|
|
|
|
a[1] = 2;
|
|
|
|
a[2] = 3;
|
|
|
|
if ( a[0] != 1 || a[1] != 2 || a[2] != 3 ) {
|
|
|
|
fprintf(stderr,"qmckl_malloc: Invalid data\n");
|
|
|
|
rc = QMCKL_FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
** =qmckl_free=
|
|
|
|
|
|
|
|
*** Header
|
|
|
|
#+BEGIN_SRC C :tangle qmckl_memory.h
|
|
|
|
void qmckl_free(void *ptr);
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
*** Source
|
|
|
|
#+BEGIN_SRC C :tangle qmckl_memory.c
|
|
|
|
void qmckl_free(void *ptr) {
|
|
|
|
free(ptr);
|
|
|
|
}
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
*** Test
|
|
|
|
#+BEGIN_SRC C :tangle test_qmckl_memory.c
|
|
|
|
qmckl_free(a);
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
* End of files
|
|
|
|
|
|
|
|
*** Header
|
|
|
|
#+BEGIN_SRC C :tangle qmckl_memory.h
|
|
|
|
#endif
|
|
|
|
#+END_SRC
|
|
|
|
|
|
|
|
*** Test
|
|
|
|
#+BEGIN_SRC C :tangle test_qmckl_memory.c
|
2020-10-17 00:28:49 +02:00
|
|
|
return rc;
|
2020-10-16 23:56:22 +02:00
|
|
|
}
|
|
|
|
#+END_SRC
|