regvar.c 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150
  1. #include "assert.h"
  2. #include "param.h"
  3. #include "tables.h"
  4. #ifdef REGVARS
  5. #ifndef NORCSID
  6. static char rcsid[] = "$Id$";
  7. #endif
  8. #include "types.h"
  9. #include <cgg_cg.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 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  17. * See the copyright notice in the ACK home directory, in the file "Copyright".
  18. *
  19. * Author: Hans van Staveren
  20. */
  21. extern string myalloc();
  22. struct regvar *rvlist;
  23. struct regvar *
  24. linkreg(of,sz,tp,sc) long of; {
  25. register struct regvar *rvlp;
  26. rvlp= (struct regvar *) myalloc(sizeof *rvlp);
  27. rvlp->rv_next = rvlist;
  28. rvlist=rvlp;
  29. rvlp->rv_off = of;
  30. rvlp->rv_size = sz;
  31. rvlp->rv_type = tp;
  32. rvlp->rv_score = sc;
  33. rvlp->rv_reg = 0; /* no register assigned yet */
  34. return(rvlp);
  35. }
  36. tryreg(rvlp,typ) register struct regvar *rvlp; {
  37. int score;
  38. register i;
  39. register struct regassigned *ra;
  40. struct regvar *save;
  41. if (typ != reg_any && nregvar[typ]!=0) {
  42. if (machregs[rvnumbers[typ][0]].r_size!=rvlp->rv_size)
  43. score = -1;
  44. else
  45. score = regscore(rvlp->rv_off,
  46. rvlp->rv_size,
  47. rvlp->rv_type,
  48. rvlp->rv_score,
  49. typ); /* machine dependent */
  50. ra = regassigned[typ];
  51. if (score>ra[nregvar[typ]-1].ra_score) {
  52. save = ra[nregvar[typ]-1].ra_rv;
  53. for (i=nregvar[typ]-1;i>0 && ra[i-1].ra_score<score;i--)
  54. ra[i] = ra[i-1];
  55. ra[i].ra_rv = rvlp;
  56. ra[i].ra_score = score;
  57. if((rvlp=save)==0)
  58. return;
  59. }
  60. }
  61. if (nregvar[reg_any]==0)
  62. return;
  63. if (machregs[rvnumbers[reg_any][0]].r_size!=rvlp->rv_size)
  64. score = -1;
  65. else
  66. score = regscore(rvlp->rv_off,
  67. rvlp->rv_size,
  68. rvlp->rv_type,
  69. rvlp->rv_score,
  70. reg_any); /* machine dependent */
  71. ra = regassigned[reg_any];
  72. if (score>ra[nregvar[reg_any]-1].ra_score) {
  73. for (i=nregvar[reg_any]-1;i>0 && ra[i-1].ra_score<score;i--)
  74. ra[i] = ra[i-1];
  75. ra[i].ra_rv = rvlp;
  76. ra[i].ra_score = score;
  77. }
  78. }
  79. fixregvars(saveall) {
  80. register struct regvar *rv;
  81. register rvtyp,i;
  82. swtxt();
  83. i_regsave(); /* machine dependent initialization */
  84. for (rvtyp=reg_any;rvtyp<=reg_float;rvtyp++) {
  85. for(i=0;i<nregvar[rvtyp];i++)
  86. if (saveall) {
  87. struct reginfo *rp;
  88. rp= &machregs[rvnumbers[rvtyp][i]];
  89. regsave(codestrings[rp->r_repr],(long)-TEM_WSIZE,rp->r_size);
  90. } else if(regassigned[rvtyp][i].ra_score>0) {
  91. rv=regassigned[rvtyp][i].ra_rv;
  92. rv->rv_reg=rvnumbers[rvtyp][i];
  93. rv->rv_type = rvtyp;
  94. regsave(codestrings[machregs[rv->rv_reg].r_repr],
  95. rv->rv_off,rv->rv_size);
  96. }
  97. }
  98. f_regsave();
  99. }
  100. isregvar(off) long off; {
  101. register struct regvar *rvlp;
  102. for(rvlp=rvlist;rvlp!=0;rvlp=rvlp->rv_next)
  103. if(rvlp->rv_off == off)
  104. return(rvlp->rv_reg);
  105. return(-1);
  106. }
  107. isregtyp(off) long off; {
  108. register struct regvar *rvlp;
  109. for(rvlp=rvlist;rvlp!=0;rvlp=rvlp->rv_next)
  110. if(rvlp->rv_off == off)
  111. return(rvlp->rv_reg ? rvlp->rv_type+1 : 0);
  112. return(-1);
  113. }
  114. unlinkregs() {
  115. register struct regvar *rvlp,*t;
  116. register struct regassigned *ra;
  117. int rvtyp,i;
  118. for(rvlp=rvlist;rvlp!=0;rvlp=t) {
  119. t=rvlp->rv_next;
  120. myfree((string)rvlp);
  121. }
  122. rvlist=0;
  123. for (rvtyp=reg_any;rvtyp<=reg_float;rvtyp++) {
  124. for(i=0;i<nregvar[rvtyp];i++) {
  125. ra= &regassigned[rvtyp][i];
  126. ra->ra_rv = 0;
  127. ra->ra_score = 0;
  128. }
  129. }
  130. }
  131. #endif /* REGVARS */
  132. /* nothing after this */