test/library/getparentbase.c

   1 /*
   2     Copyright © 2009-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/pertask.h>
   7 #include <aros/libcall.h>
   8
   9 #include LC_LIBDEFS_FILE
  10
  11 AROS_LH0(struct Library *, GetParentBase,
  12          struct PertaskBase *, PertaskBase, 5, Pertask
  13 )
  14 {
  15     AROS_LIBFUNC_INIT
  16
  17     return (struct Library *)__GM_GetBaseParent(PertaskBase);
  18
  19     AROS_LIBFUNC_EXIT
  20 }
  21
  22 struct Library *GetParentBase2(void)
  23 {
  24     struct PertaskBase *PertaskBase = __aros_getbase();
  25
  26     return (struct Library *)__GM_GetBaseParent(PertaskBase);
  27 }