mach.c 673 B

123456789101112131415161718192021222324252627282930313233343536373839
  1. #define CODE_EXPANDER
  2. #include <system.h>
  3. #include "back.h"
  4. #include "mach.h"
  5. #ifdef DEBUG
  6. arg_error( s, arg)
  7. char *s;
  8. int arg;
  9. {
  10. fprint( STDERR, "arg_error %s %d\n", s, arg);
  11. }
  12. #endif
  13. int push_waiting = FALSE;
  14. int fit_byte( val)
  15. int val;
  16. {
  17. return( val >= -128 && val <= 127);
  18. }
  19. #define IEEEFLOAT
  20. #define FL_MSL_AT_LOW_ADDRESS 0
  21. #define FL_MSW_AT_LOW_ADDRESS 0
  22. #define FL_MSB_AT_LOW_ADDRESS 0
  23. #include <con_float>
  24. /* as long as we generate assembler ...
  25. do_open(filename)
  26. char *filename;
  27. {
  28. if (filename == 0 || ! sys_open(filename, OP_WRITE, &codefile))
  29. return FALSE;
  30. fprint( codefile, ".sect .text; .sect .rom; .sect .data; .sect .bss\n"); return TRUE;
  31. }
  32. */