compiler/arossupport/createseglist.c

   1 /*
   2     Copyright © 2011-2019, 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 } __attribute__((packed));
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <proto/arossupport.h>
  23
  24         BPTR __CreateSegList(
  25
  26 /*  SYNOPSIS */
  27         APTR function, struct ExecBase *SysBase )
  28
  29 /*  LOCATION */
  30
  31 /*  FUNCTION
  32         Create a SegList, which contains a call to 'function'
  33
  34     INPUTS
  35         function - Function to call when the SegList is executed
  36
  37     RESULT
  38         BPTR to the SegList that was allocated. This SegList can
  39              be freed by DOS/UnloadSeg. If not enough memory,
  40              BNULL will be returned.
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49
  50         dos.library/UnloadSeg()
  51
  52     INTERNALS
  53
  54 *****************************************************************************/
  55 {
  56     struct phony_segment *segtmp;
  57     struct FullJumpVec *Code;   /* Code to jump to the offset */
  58
  59     segtmp = AllocMem(sizeof(*segtmp) + sizeof(*Code), MEMF_ANY);
  60     if (!segtmp)
  61         return BNULL;
  62
  63     Code = (struct FullJumpVec *)((IPTR)segtmp + sizeof(*segtmp));
  64     segtmp->Size = sizeof(*segtmp) + sizeof(*Code);
  65     segtmp->Next = (BPTR)0;
  66     __AROS_SET_FULLJMP(Code, function);
  67
  68     if (SysBase->LibNode.lib_Version >= 36)
  69         CacheClearE(Code, sizeof(*Code), CACRF_ClearI | CACRF_ClearD);
  70
  71     D(bug("[CreateSegList] Created jump segment 0x%p, code 0x%p, target 0x%p\n", MKBADDR(&segtmp->Next), Code, function));
  72
  73     return MKBADDR(&segtmp->Next);
  74 }