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

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