confarray.c 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172
  1. /*
  2. (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. See the copyright notice in the ACK home directory, in the file "Copyright".
  4. */
  5. /*
  6. Module: runtime support for conformant arrays
  7. Author: Ceriel J.H. Jacobs
  8. Version: $Id$
  9. */
  10. #include <m2_traps.h>
  11. #ifndef EM_WSIZE
  12. #define EM_WSIZE _EM_WSIZE
  13. #define EM_PSIZE _EM_PSIZE
  14. #endif
  15. #if EM_WSIZE==EM_PSIZE
  16. typedef unsigned pcnt;
  17. #else
  18. typedef unsigned long pcnt;
  19. #endif
  20. struct descr {
  21. char *addr;
  22. int low;
  23. unsigned int highminlow;
  24. unsigned int size;
  25. };
  26. static struct descr *descrs[10];
  27. static struct descr **ppdescr = descrs;
  28. pcnt
  29. new_stackptr(pdscr, a)
  30. struct descr *pdscr;
  31. {
  32. register struct descr *pdescr = pdscr;
  33. pcnt size = (((pdescr->highminlow + 1) * pdescr->size +
  34. (EM_WSIZE - 1)) & ~(EM_WSIZE - 1));
  35. if (ppdescr >= &descrs[10]) {
  36. /* to many nested traps + handlers ! */
  37. TRP(M2_TOOMANY);
  38. }
  39. *ppdescr++ = pdescr;
  40. if ((char *) &a - (char *) &pdscr > 0) {
  41. /* stack grows downwards */
  42. return - size;
  43. }
  44. return size;
  45. }
  46. copy_array(pp, a)
  47. char *pp;
  48. {
  49. register char *p = pp;
  50. register char *q;
  51. register pcnt sz;
  52. char dummy;
  53. ppdescr--;
  54. sz = ((*ppdescr)->highminlow + 1) * (*ppdescr)->size;
  55. if ((char *) &a - (char *) &pp > 0) {
  56. (*ppdescr)->addr = q = (char *) &a;
  57. }
  58. else (*ppdescr)->addr = q = (char *) &a -
  59. ((sz + (EM_WSIZE - 1)) & ~ (EM_WSIZE - 1));
  60. while (sz--) *q++ = *p++;
  61. }