home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / tcl / tclsrc / c / tclMemory < prev    next >
Encoding:
Text File  |  1994-08-18  |  435 b   |  29 lines
  1. /* Minimal memory checks for RISCOS Tcl */
  2. /* (c) C.T.Stretch */
  3. /* Sat,25 Jun 1994 */
  4.  
  5.  
  6. #include "tclInt.h"
  7.  
  8.  
  9. extern void *ckalloc(size_t size)
  10. { void *p=malloc(size);
  11.   if(p) return p;
  12.   exit(99);
  13.   return 0;
  14. }
  15.  
  16. extern void *ckcalloc(size_t size)
  17. { void *p=calloc(1,size);
  18.   if(p) return p;
  19.   exit(99);
  20.   return 0;
  21. }
  22.  
  23. extern void *ckrealloc(void *p,size_t size)
  24. { void *q=realloc(p,size);
  25.   if(q) return q;
  26.   exit(99);
  27.   return 0;
  28. }
  29.