ghc/runtime/hooks/FreeForeignObj.lc

   1 \section{FreeForeignObj}
   2
   3 ToDo: obliterate -- SOF
   4
   5 This is the default definition of freeForeignObj.  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 freeForeignObj.
   8
   9 \begin{code}
  10 #include "rtsdefs.h"
  11
  12 void
  13 freeForeignObj (StgForeignObj mp)
  14 {
  15     fprintf(stderr, "Error: No deallocation routine for ForeignObj %lx\n", (W_) mp);
  16     EXIT(EXIT_FAILURE);
  17 }
  18 \end{code}