1989-01-27 12:41:43 +00:00
|
|
|
#define CODE_EXPANDER
|
1988-08-18 14:33:57 +00:00
|
|
|
#include "mach.h"
|
|
|
|
|
#include <back.h>
|
1988-11-10 13:46:53 +00:00
|
|
|
#include <system.h>
|
1988-08-18 14:33:57 +00:00
|
|
|
|
|
|
|
|
|
1989-02-02 12:49:21 +00:00
|
|
|
#ifdef DEBUG
|
1988-08-18 14:33:57 +00:00
|
|
|
arg_error( s, arg)
|
|
|
|
|
char *s;
|
|
|
|
|
int arg;
|
|
|
|
|
{
|
1988-11-10 13:46:53 +00:00
|
|
|
fprint( STDERR, "arg_error %s %d\n", s, arg);
|
1988-08-18 14:33:57 +00:00
|
|
|
}
|
1989-02-02 12:49:21 +00:00
|
|
|
#endif
|
1988-08-18 14:33:57 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
|
do_open( filename)
|
|
|
|
|
char *filename;
|
|
|
|
|
{
|
|
|
|
|
if ( filename == (char *)0 || !sys_open( filename, OP_WRITE, &codefile))
|
|
|
|
|
return( 0);
|
|
|
|
|
|
|
|
|
|
fprint( codefile, ".sect .text; .sect .rom; .sect .data; .sect .bss\n");
|
|
|
|
|
return( 1);
|
|
|
|
|
}
|
|
|
|
|
*/
|
1988-09-14 14:06:31 +00:00
|
|
|
|
1989-10-24 15:08:27 +00:00
|
|
|
#define IEEEFLOAT
|
1989-07-31 14:50:19 +00:00
|
|
|
#include <float_cst>
|
