regvar.c 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155
  1. #include "assert.h"
  2. #include "param.h"
  3. #include "tables.h"
  4. #ifdef REGVARS
  5. #ifndef NORCSID
  6. static char rcsid[] = "$Header$";
  7. #endif
  8. #include "types.h"
  9. #include <cg_pattern.h>
  10. #include "data.h"
  11. #include "regvar.h"
  12. #include <em_reg.h>
  13. #include "result.h"
  14. #include "extern.h"
  15. /*
  16. * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
  17. *
  18. * This product is part of the Amsterdam Compiler Kit.
  19. *
  20. * Permission to use, sell, duplicate or disclose this software must be
  21. * obtained in writing. Requests for such permissions may be sent to
  22. *
  23. * Dr. Andrew S. Tanenbaum
  24. * Wiskundig Seminarium
  25. * Vrije Universiteit
  26. * Postbox 7161
  27. * 1007 MC Amsterdam
  28. * The Netherlands
  29. *
  30. * Author: Hans van Staveren
  31. */
  32. extern string myalloc();
  33. struct regvar *rvlist;
  34. struct regvar *
  35. linkreg(of,sz,tp,sc) long of; {
  36. struct regvar *rvlp;
  37. rvlp= (struct regvar *) myalloc(sizeof *rvlp);
  38. rvlp->rv_next = rvlist;
  39. rvlist=rvlp;
  40. rvlp->rv_off = of;
  41. rvlp->rv_size = sz;
  42. rvlp->rv_type = tp;
  43. rvlp->rv_score = sc;
  44. rvlp->rv_reg = 0; /* no register assigned yet */
  45. return(rvlp);
  46. }
  47. tryreg(rvlp,typ) struct regvar *rvlp; {
  48. int score;
  49. register i;
  50. struct regassigned *ra;
  51. struct regvar *save;
  52. if (typ != reg_any && nregvar[typ]!=0) {
  53. if (machregs[rvnumbers[typ][0]].r_size!=rvlp->rv_size)
  54. score = -1;
  55. else
  56. score = regscore(rvlp->rv_off,
  57. rvlp->rv_size,
  58. rvlp->rv_type,
  59. rvlp->rv_score,
  60. typ); /* machine dependent */
  61. ra = regassigned[typ];
  62. if (score>ra[nregvar[typ]-1].ra_score) {
  63. save = ra[nregvar[typ]-1].ra_rv;
  64. for (i=nregvar[typ]-1;i>0 && ra[i-1].ra_score<score;i--)
  65. ra[i] = ra[i-1];
  66. ra[i].ra_rv = rvlp;
  67. ra[i].ra_score = score;
  68. if((rvlp=save)==0)
  69. return;
  70. }
  71. }
  72. if (nregvar[reg_any]==0)
  73. return;
  74. if (machregs[rvnumbers[reg_any][0]].r_size!=rvlp->rv_size)
  75. score = -1;
  76. else
  77. score = regscore(rvlp->rv_off,
  78. rvlp->rv_size,
  79. rvlp->rv_type,
  80. rvlp->rv_score,
  81. reg_any); /* machine dependent */
  82. ra = regassigned[reg_any];
  83. if (score>ra[nregvar[reg_any]-1].ra_score) {
  84. for (i=nregvar[reg_any]-1;i>0 && ra[i-1].ra_score<score;i--)
  85. ra[i] = ra[i-1];
  86. ra[i].ra_rv = rvlp;
  87. ra[i].ra_score = score;
  88. }
  89. }
  90. fixregvars(saveall) {
  91. register struct regvar *rv;
  92. register rvtyp,i;
  93. swtxt();
  94. i_regsave(); /* machine dependent initialization */
  95. for (rvtyp=reg_any;rvtyp<=reg_float;rvtyp++) {
  96. for(i=0;i<nregvar[rvtyp];i++)
  97. if (saveall) {
  98. struct reginfo *rp;
  99. rp= &machregs[rvnumbers[rvtyp][i]];
  100. regsave(codestrings[rp->r_repr],(long)-TEM_WSIZE,rp->r_size);
  101. } else if(regassigned[rvtyp][i].ra_score>0) {
  102. rv=regassigned[rvtyp][i].ra_rv;
  103. rv->rv_reg=rvnumbers[rvtyp][i];
  104. regsave(codestrings[machregs[rv->rv_reg].r_repr],
  105. rv->rv_off,rv->rv_size);
  106. }
  107. }
  108. f_regsave();
  109. #ifndef TEM_BSIZE
  110. for(rv=rvlist;rv!=0;rv=rv->rv_next)
  111. if (rv->rv_off >= 0) rv->rv_off += TEM_BSIZE;
  112. #endif
  113. }
  114. isregvar(off) long off; {
  115. register struct regvar *rvlp;
  116. for(rvlp=rvlist;rvlp!=0;rvlp=rvlp->rv_next)
  117. if(rvlp->rv_off == off)
  118. return(rvlp->rv_reg);
  119. return(-1);
  120. }
  121. unlinkregs() {
  122. register struct regvar *rvlp,*t;
  123. register struct regassigned *ra;
  124. int rvtyp,i;
  125. for(rvlp=rvlist;rvlp!=0;rvlp=t) {
  126. t=rvlp->rv_next;
  127. myfree(rvlp);
  128. }
  129. rvlist=0;
  130. for (rvtyp=reg_any;rvtyp<=reg_float;rvtyp++) {
  131. for(i=0;i<nregvar[rvtyp];i++) {
  132. ra= &regassigned[rvtyp][i];
  133. ra->ra_rv = 0;
  134. ra->ra_score = 0;
  135. }
  136. }
  137. }
  138. #endif REGVARS
  139. /* nothing after this */