compiler/alib/dosupernew.c

   1 /*
   2     Copyright © 2003-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define ALIB_NO_INLINE_STDARG
   7
   8 #include <intuition/classes.h>
   9 #include <utility/tagitem.h>
  10 #include <stdarg.h>
  11 #include <proto/alib.h>
  12 #include "alib_intern.h"
  13
  14 /******************************************************************************
  15
  16     NAME */
  17 #include <intuition/classusr.h>
  18 #include <proto/alib.h>
  19
  20         IPTR DoSuperNewTagList
  21         (
  22 /*  SYNOPSIS */
  23             Class             *CLASS,
  24             Object            *object,
  25             struct GadgetInfo *gadgetInfo,
  26             struct TagItem    *tags
  27         )
  28
  29 /*  FUNCTION
  30
  31     INPUTS
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         intuition.library/NewObjectA(), intuition.library/SetAttrsA(), intuition.library/GetAttr(),
  43         intuition.library/DisposeObject(), DoMethodA(),
  44         CoerceMethodA(), <intuition/classes.h>
  45
  46 ******************************************************************************/
  47 {
  48     if (CLASS == NULL || object == NULL) return 0;
  49
  50     return DoSuperMethod(CLASS, object, OM_NEW, tags, gadgetInfo);
  51 } /* DoSuperNewTagList() */
  52
  53 IPTR DoSuperNewTags
  54 (
  55     Class *CLASS,
  56     Object *object,
  57     struct GadgetInfo *gadgetInfo,
  58     Tag tag1,
  59     ...
  60 )
  61 {
  62     if (CLASS == NULL || object == NULL)
  63         return 0;
  64
  65     AROS_SLOWSTACKMETHODS_PRE(tag1)
  66     retval = DoSuperNewTagList(CLASS, object, gadgetInfo, (struct TagItem *) AROS_SLOWSTACKMETHODS_ARG(tag1));
  67     AROS_SLOWSTACKMETHODS_POST
  68 } /* DoSuperNewTags() */