compiler/arossupport/createseglist.c

   1 /*
   2     Copyright © 2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Create a seglist for ROM code.
   6 */
   7
   8 #define AROS_LIBREQ(base,ver)   /* We test for versions manually */
   9
  10 #include <aros/debug.h>
  11 #include <proto/exec.h>
  12
  13 struct phony_segment
  14 {
  15     ULONG Size; /* Length of segment in # of bytes */
  16     BPTR  Next; /* Next segment (always 0 for this) */
  17     struct FullJumpVec Code;    /* Code to jump to the offset */
  18 } __attribute__((packed));
  19
  20 /*****************************************************************************
  21
  22     NAME */
  23 #include <proto/arossupport.h>
  24
  25         BPTR __CreateSegList(
  26
  27 /*  SYNOPSIS */
  28         APTR function, struct ExecBase *SysBase )
  29
  30 /*  LOCATION */
  31
  32 /*  FUNCTION
  33         Create a SegList, which contains a call to 'function'
  34
  35     INPUTS
  36         function - Function to call when the SegList is executed
  37
  38     RESULT
  39         BPTR to the SegList that was allocated. This SegList can
  40              be freed by DOS/UnloadSeg. If not enough memory,
  41              BNULL will be returned.
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51         dos.library/UnloadSeg()
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     struct phony_segment *segtmp;
  58
  59     segtmp = AllocMem(sizeof(*segtmp), MEMF_ANY);
  60     if (!segtmp)
  61         return BNULL;
  62
  63     segtmp->Size = sizeof(*segtmp);
  64     segtmp->Next = (BPTR)0;
  65     __AROS_SET_FULLJMP(&segtmp->Code, function);
  66
  67     if (SysBase->LibNode.lib_Version >= 36)
  68         CacheClearE(&segtmp->Code, sizeof(struct FullJumpVec), CACRF_ClearI | CACRF_ClearD);
  69
  70     D(bug("[CreateSegList] Created jump segment 0x%p, code 0x%p, target 0x%p\n", MKBADDR(&segtmp->Next), &segtmp->Code, function));
  71
  72     return MKBADDR(&segtmp->Next);
  73 }