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