home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / debug / Background / PoolWatch / Test.c < prev    next >
C/C++ Source or Header  |  1995-08-18  |  975b  |  49 lines
  1. /* Small program to test PoolWatch
  2.  */
  3.  
  4. #define _USE_SYSBASE
  5. #include <exec/types.h>
  6. #include <exec/execbase.h>
  7. #include <exec/memory.h>
  8.  
  9. #include <clib/exec_protos.h>
  10.  
  11. #include <pragmas/exec_pragmas.h>
  12.  
  13. #include <dos.h>
  14.  
  15. void kprintf(STRPTR, ...);
  16.  
  17. void main(void)
  18. {
  19.     APTR    pool, mem2;
  20.  
  21.     putreg(REG_D0, 0x12345678);
  22.     putreg(REG_D1, 0x23456781);
  23.     putreg(REG_D2, 0x34567812);
  24.     putreg(REG_D3, 0x45678123);
  25.     putreg(REG_D4, 0x56781234);
  26.     putreg(REG_D5, 0x67812345);
  27.     putreg(REG_D6, 0x78123456);
  28.     putreg(REG_D7, 0x81234567);
  29.     putreg(REG_A0, 0x12345678);
  30.     putreg(REG_A1, 0x23456781);
  31.     putreg(REG_A2, 0x34567812);
  32.     putreg(REG_A3, 0x45678123);
  33.     putreg(REG_A4, 0x56781234);
  34.     putreg(REG_A5, 0x45678123);
  35.     putreg(REG_A6, 0x56781234);
  36.  
  37.     if(pool = CreatePool(MEMF_PUBLIC, 2048, 1024))
  38.     {
  39.         mem2 = AllocPooled(pool, 123);
  40.  
  41.         ((UBYTE *)mem2)[123] = 44;
  42.         ((UBYTE *)mem2)[-23] = 4;
  43.         ((UBYTE *)mem2)[142] = 55;
  44.         FreePooled(pool, mem2, 321);
  45.         DeletePool(pool);
  46.     }
  47.     else kprintf("argh\n");
  48. }
  49.