compiler/include/rexx/rexxcall-m68k.h

   1 /*
   2     Copyright © 1995-2002, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Macro's to make calling arexx library querying functions portable
   6     Lang: English
   7 */
   8
   9 #ifndef AROS_REXXCALL_H
  10 #define AROS_REXXCALL_H
  11
  12 /* Some macro's to make ARexx portable to non-m68k platforms */
  13 #define RexxCallQueryLibFunc(rexxmsg, libbase, offset, retargstringptr) \
  14   ({ \
  15     int _offset=abs(offset)/6; \
  16     AROS_LC2(ULONG, RexxCallQueryLibFunc, \
  17                AROS_LCA(struct RexxMsg *, rexxmsg, A0), \
  18                AROS_LCA(STRPTR *, retargstringptr, A1), \
  19                struct Library *, libbase, _offset, rexxcall); \
  20   })
  21
  22 #define AROS_AREXXLIBQUERYFUNC(f,m,lt,l,o,p) \
  23   AROS_LH2(ULONG, f, \
  24              AROS_LCA(struct RexxMsg *, m, A0), \
  25              AROS_LCA(STRPTR *, _retargstringptr, A1), \
  26              lt, l, o, p)
  27
  28 #warning FIXME: retargstringptr has to be returned in A0 also, asm has to be added
  29 #define ReturnRexxQuery(rc,arg) \
  30   *_retargstringptr = arg; \
  31   return rc;
  32
  33 #endif