home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S2.ARC / MYFREEM.MOD < prev    next >
Encoding:
Text File  |  1988-01-17  |  1.3 KB  |  30 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         MyFreeMem --- Free block of memory with error checking       *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE MyFreeMem( VAR P ; Size : WORD );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  MyFreeMem                                            *)
  10. (*                                                                      *)
  11. (*     Purpose:    Free block of memory with error checks.              *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        MyFreeMem( VAR P : POINTER; Size : WORD );                    *)
  16. (*                                                                      *)
  17. (*----------------------------------------------------------------------*)
  18.  
  19. VAR
  20.    PP : POINTER ABSOLUTE P;
  21.  
  22. BEGIN (* MyFreeMem *)
  23.  
  24.    IF ( ( PP <> NIL ) AND ( Size > 0 ) ) THEN
  25.       FREEMEM( PP , Size );
  26.  
  27.    PP := NIL;
  28.  
  29. END   (* MyFreeMem *);
  30.