ghc/runtime/c-as-asm/FreeMallocPtr.lc

   1 \section[freemallocptr]{FreeMallocPtr}
   2
   3 ToDo: obliterate -- SOF
   4
   5 This is the default definition of FreeMallocPtr.  It is a file by
   6 itself so that the linker can choose to ignore it if it has already
   7 seen a definition of FreeMallocPtr.
   8
   9 \begin{code}
  10 #ifndef PAR
  11
  12 #include "rtsdefs.h"
  13
  14 void
  15 FreeMallocPtr (StgForeignObj mp)
  16 {
  17     fprintf(stderr, "Error: No deallocation routine for MallocPtr %lx\n", (W_) mp);
  18     EXIT(EXIT_FAILURE);
  19 }
  20
  21 #endif /* not PAR */
  22 \end{code}