home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / Exec.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-22  |  405 b   |  18 lines
  1. (* @B- @P- *)
  2. IMPLEMENTATION MODULE Exec ;
  3.  
  4. FROM SYSTEM IMPORT ADR ;
  5.  
  6. PROCEDURE IsListEmpty( x : ListPtr ) : BOOLEAN ;
  7. BEGIN RETURN x^.lh_TailPred = NodePtr( x ) ;
  8. END IsListEmpty ;
  9.  
  10. PROCEDURE IsMsgPortEmpty( x : MsgPortPtr ) : BOOLEAN ;
  11. BEGIN RETURN x^.mp_MsgList.lh_TailPred = NodePtr( ADR(x^.mp_MsgList)) ;
  12. END IsMsgPortEmpty ;
  13.  
  14. (*VAR sysbase[4] : ExecBasePtr ;
  15.  
  16. BEGIN SysBase := sysbase ;*)
  17. END Exec.
  18.