home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-ki.lha / ffcall / trampoline / protexec.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-04-15  |  3.6 KB  |  153 lines
  1. /* This file is derived from gcc-2.6.3/libgcc2.c, section L_trampoline */
  2.  
  3. /* Copyright (C) 1989, 1992, 1993, 1994 Free Software Foundation, Inc.
  4.  
  5. This file is part of GNU CC.
  6.  
  7. GNU CC is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2, or (at your option)
  10. any later version.
  11.  
  12. GNU CC is distributed in the hope that it will be useful,
  13. but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. GNU General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with GNU CC; see the file COPYING.  If not, write to
  19. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  20.  
  21.  
  22. /* Jump to a trampoline, loading the static chain address.  */
  23.  
  24. #if defined (__alpha__)
  25.  
  26. void
  27. __enable_execute_stack (addr)
  28.      void *addr;
  29. {
  30.   long size = getpagesize ();
  31.   long mask = ~(size-1);
  32.   char *page = (char *) (((long) addr) & mask);
  33.   char *end  = (char *) ((((long) (addr + TRAMPOLINE_SIZE)) & mask) + size);
  34.  
  35.   /* 7 is PROT_READ | PROT_WRITE | PROT_EXEC */
  36.   if (mprotect (page, end - page, 7) < 0)
  37.     perror ("mprotect of trampoline code");
  38. }
  39.  
  40. #endif
  41.  
  42. #if defined (NeXT) && defined (__MACH__)
  43.  
  44. /* Make stack executable so we can call trampolines on stack.
  45.    This is called from INITIALIZE_TRAMPOLINE in next.h.  */
  46. #ifdef NeXTStep21
  47.  #include <mach.h>
  48. #else
  49.  #include <mach/mach.h>
  50. #endif
  51.  
  52. void
  53. __enable_execute_stack (addr)
  54.      char *addr;
  55. {
  56.   kern_return_t r;
  57.   char *eaddr = addr + TRAMPOLINE_SIZE;
  58.   vm_address_t a = (vm_address_t) addr;
  59.  
  60.   /* turn on execute access on stack */
  61.   r = vm_protect (task_self (), a, TRAMPOLINE_SIZE, FALSE, VM_PROT_ALL);
  62.   if (r != KERN_SUCCESS)
  63.     {
  64.       mach_error("vm_protect VM_PROT_ALL", r);
  65.       exit(1);
  66.     }
  67. } 
  68.  
  69. #endif /* defined (NeXT) && defined (__MACH__) */
  70.  
  71. #ifdef __convex__
  72.  
  73. /* Make stack executable so we can call trampolines on stack.
  74.    This is called from INITIALIZE_TRAMPOLINE in convex.h.  */
  75.  
  76. #include <sys/mman.h>
  77. #include <sys/vmparam.h>
  78. #include <machine/machparam.h>
  79.  
  80. void
  81. __enable_execute_stack ()
  82. {
  83.   int fp;
  84.   static unsigned lowest = USRSTACK;
  85.   unsigned current = (unsigned) &fp & -NBPG;
  86.  
  87.   if (lowest > current)
  88.     {
  89.       unsigned len = lowest - current;
  90.       mremap (current, &len, PROT_READ | PROT_WRITE | PROT_EXEC, MAP_PRIVATE);
  91.       lowest = current;
  92.     }
  93. }
  94. #endif /* __convex__ */
  95.  
  96. #ifdef __DOLPHIN__
  97.  
  98. /* Modified from the convex -code above. */
  99.  
  100. #include <sys/param.h>
  101. #include <errno.h>
  102. #include <sys/m88kbcs.h>
  103.  
  104. void
  105. __enable_execute_stack ()
  106. {
  107.   int save_errno;
  108.   static unsigned long lowest = USRSTACK;
  109.   unsigned long current = (unsigned long) &save_errno & -NBPC;
  110.   
  111.   /* Ignore errno being set. memctl sets errno to EINVAL whenever the
  112.      address is seen as 'negative'. That is the case with the stack.   */
  113.  
  114.   save_errno=errno;
  115.   if (lowest > current)
  116.     {
  117.       unsigned len=lowest-current;
  118.       memctl(current,len,MCT_TEXT);
  119.       lowest = current;
  120.     }
  121.   else
  122.     memctl(current,NBPC,MCT_TEXT);
  123.   errno=save_errno;
  124. }
  125.  
  126. #endif /* __DOLPHIN__ */
  127.  
  128. #ifdef __pyr__
  129.  
  130. #undef NULL /* Avoid errors if stdio.h and our stddef.h mismatch.  */
  131. #include <stdio.h>
  132. #include <sys/mman.h>
  133. #include <sys/types.h>
  134. #include <sys/param.h>
  135. #include <sys/vmmac.h>
  136.  
  137. /* Modified from the convex -code above.
  138.    mremap promises to clear the i-cache. */
  139.  
  140. void
  141. __enable_execute_stack ()
  142. {
  143.   int fp;
  144.   if (mprotect (((unsigned int)&fp/PAGSIZ)*PAGSIZ, PAGSIZ,
  145.         PROT_READ|PROT_WRITE|PROT_EXEC))
  146.     {
  147.       perror ("mprotect in __enable_execute_stack");
  148.       fflush (stderr);
  149.       abort ();
  150.     }
  151. }
  152. #endif /* __pyr__ */
  153.