qmckl/src/qmckl_memory.org

# -*- 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
    return QMCKL_SUCCESS;
}
  #+END_SRC