do_comp.c 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171
  1. /*
  2. * Sources of the "COMPARE" group instructions
  3. */
  4. /* $Id$ */
  5. #include <em_abs.h>
  6. #include "logging.h"
  7. #include "nofloat.h"
  8. #include "global.h"
  9. #include "log.h"
  10. #include "warn.h"
  11. #include "mem.h"
  12. #include "shadow.h"
  13. #include "trap.h"
  14. #include "text.h"
  15. #include "fra.h"
  16. #ifndef NOFLOAT
  17. extern double fpop();
  18. #endif /* NOFLOAT */
  19. PRIVATE compare_obj();
  20. DoCMI(l)
  21. register size l;
  22. {
  23. /* CMI w: Compare w byte integers, Push negative, zero, positive for <, = or > */
  24. register long t = spop(arg_wi(l));
  25. register long s = spop(l);
  26. LOG(("@T6 DoCMI(%ld)", l));
  27. spoilFRA();
  28. wpush((long)(t < s ? 1 : t > s ? -1 : 0));
  29. }
  30. DoCMF(l)
  31. register size l;
  32. {
  33. /* CMF w: Compare w byte reals */
  34. #ifndef NOFLOAT
  35. double t = fpop(arg_wf(l));
  36. double s = fpop(l);
  37. LOG(("@T6 DoCMF(%ld)", l));
  38. spoilFRA();
  39. wpush((long)(t < s ? 1 : t > s ? -1 : 0));
  40. #else /* NOFLOAT */
  41. nofloat();
  42. #endif /* NOFLOAT */
  43. }
  44. DoCMU(l)
  45. register size l;
  46. {
  47. /* CMU w: Compare w byte unsigneds */
  48. register unsigned long t = upop(arg_wi(l));
  49. register unsigned long s = upop(l);
  50. LOG(("@T6 DoCMU(%ld)", l));
  51. spoilFRA();
  52. wpush((long)(t < s ? 1 : t > s ? -1 : 0));
  53. }
  54. DoCMS(l)
  55. register size l;
  56. {
  57. /* CMS w: Compare w byte values, can only be used for bit for bit equality test */
  58. LOG(("@T6 DoCMS(%ld)", l));
  59. spoilFRA();
  60. compare_obj(arg_w(l));
  61. }
  62. DoCMP()
  63. {
  64. /* CMP -: Compare pointers */
  65. register ptr t, s;
  66. LOG(("@T6 DoCMP()"));
  67. spoilFRA();
  68. t = dppop();
  69. s = dppop();
  70. wpush((long)(t < s ? 1 : t > s ? -1 : 0));
  71. }
  72. DoTLT()
  73. {
  74. /* TLT -: True if less, i.e. iff top of stack < 0 */
  75. LOG(("@T6 DoTLT()"));
  76. spoilFRA();
  77. wpush((long)(wpop() < 0 ? 1 : 0));
  78. }
  79. DoTLE()
  80. {
  81. /* TLE -: True if less or equal, i.e. iff top of stack <= 0 */
  82. LOG(("@T6 DoTLE()"));
  83. spoilFRA();
  84. wpush((long)(wpop() <= 0 ? 1 : 0));
  85. }
  86. DoTEQ()
  87. {
  88. /* TEQ -: True if equal, i.e. iff top of stack = 0 */
  89. LOG(("@T6 DoTEQ()"));
  90. spoilFRA();
  91. wpush((long)(wpop() == 0 ? 1 : 0));
  92. }
  93. DoTNE()
  94. {
  95. /* TNE -: True if not equal, i.e. iff top of stack non zero */
  96. LOG(("@T6 DoTNE()"));
  97. spoilFRA();
  98. wpush((long)(wpop() != 0 ? 1 : 0));
  99. }
  100. DoTGE()
  101. {
  102. /* TGE -: True if greater or equal, i.e. iff top of stack >= 0 */
  103. LOG(("@T6 DoTGE()"));
  104. spoilFRA();
  105. wpush((long)(wpop() >= 0 ? 1 : 0));
  106. }
  107. DoTGT()
  108. {
  109. /* TGT -: True if greater, i.e. iff top of stack > 0 */
  110. LOG(("@T6 DoTGT()"));
  111. spoilFRA();
  112. wpush((long)(wpop() > 0 ? 1 : 0));
  113. }
  114. /********************************************************
  115. * Compare objects *
  116. * *
  117. * Two 'obj_size' sized objects are bytewise *
  118. * compared; as soon as one byte is different *
  119. * 1 is returned, otherwise 0. No type checking *
  120. * is performed. Checking for undefined bytes *
  121. * is done when LOGGING is defined. *
  122. ********************************************************/
  123. PRIVATE compare_obj(obj_size)
  124. size obj_size;
  125. {
  126. register ptr addr1; /* ADDRess in object highest on st. */
  127. register ptr addr2; /* ADDRess in object deeper in st. */
  128. register int comp_res = 0; /* COMPare RESult */
  129. for ( addr1 = SP, addr2 = SP + obj_size;
  130. addr1 < SP + obj_size;
  131. addr1++, addr2++
  132. ) {
  133. #ifdef LOGGING
  134. if (!st_sh(addr1) || !st_sh(addr2)) {
  135. warning(WUNCMP);
  136. /* Let's say undefined's are not equal: */
  137. comp_res = 1;
  138. break;
  139. }
  140. #endif /* LOGGING */
  141. if (stack_loc(addr1) != stack_loc(addr2)) {
  142. comp_res = 1;
  143. break;
  144. }
  145. }
  146. st_dec(2 * obj_size);
  147. wpush((long) comp_res);
  148. }