mach.c 1.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. #define CODE_EXPANDER
  2. #include <system.h>
  3. #include <out.h>
  4. #include "mach.h"
  5. #include "back.h"
  6. #ifdef DEBUG
  7. arg_error( s, arg)
  8. char *s;
  9. int arg;
  10. {
  11. fprint( STDERR, "arg_error %s %d\n", s, arg);
  12. }
  13. #endif
  14. con_float(str, argval)
  15. char *str;
  16. int argval;
  17. {
  18. double f;
  19. double atof();
  20. int i;
  21. int j;
  22. double frexp();
  23. float fl;
  24. char *p;
  25. if (argval!= 4 && argval!= 8) {
  26. arg_error("fcon", argval);
  27. argval = 8;
  28. }
  29. f = atof(str);
  30. if (f == 0) {
  31. if (argval == 8) gen4((FOUR_BYTES) 0);
  32. gen4((FOUR_BYTES) 0);
  33. return;
  34. }
  35. if (argval == 4) {
  36. /* careful: avoid overflow */
  37. fl = frexp(f, &i);
  38. fl = frexp(fl,&j);
  39. if (i+j > 127) {
  40. /* overflow situation */
  41. gen1(0377);
  42. gen1(f<0?0377:0177);
  43. gen1(0377);
  44. gen1(0377);
  45. return;
  46. }
  47. if (i+j < -127) {
  48. /* underflow situation */
  49. gen1(0200);
  50. gen1(f<0?0200:0);
  51. gen1(0);
  52. gen1(0);
  53. return;
  54. }
  55. fl = f;
  56. p = (char *) &fl;
  57. }
  58. else {
  59. p = (char *) &f;
  60. }
  61. gen1(*p++&0377);
  62. for (i = argval-1; i; i--) {
  63. gen1(*p++&0377);
  64. }
  65. }
  66. __as_indexed(val, num)
  67. {
  68. if (fit_byte(val)) {
  69. text1( 0xa0 | num);
  70. text1( val);
  71. } else if (fit_word(val)) {
  72. text1( 0xc0 | num);
  73. text2( val);
  74. } else {
  75. text1( 0xe0 | num);
  76. text4( val);
  77. }
  78. }
  79. __as_const(val)
  80. {
  81. if (fit_6bits(val)) {
  82. text1(val);
  83. }
  84. else {
  85. text1(0x8f);
  86. text4(val);
  87. }
  88. }