* libc/sys/mmixware/*: Correct spacing in all source files.

* libc/sys/mmixware/syscall.h: Move misplaced file...
	* libc/sys/mmixware/sys/syscall.h: ...here.
This commit is contained in:
Hans-Peter Nilsson 2001-11-13 02:49:12 +00:00
parent f513298e18
commit 4cede8c4ce
31 changed files with 203 additions and 226 deletions

View File

@ -1,3 +1,9 @@
2001-11-13 Hans-Peter Nilsson <hp@bitrange.com>
* libc/sys/mmixware/*: Correct spacing in all source files.
* libc/sys/mmixware/syscall.h: Move misplaced file...
* libc/sys/mmixware/sys/syscall.h: ...here.
2001-11-12 Hans-Peter Nilsson <hp@bitrange.com>
* libc/include/machine/ieeefp.h: Add support for mmix target.

View File

@ -1,7 +1,6 @@
/* _exit for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -20,7 +19,7 @@ void _exit (int n)
simulator, so it seems in effect ineffective. We set it anyway;
there may be a purpose. */
__asm__ ("SET $255,%0\n\tTRAP 0,0,0"
: /* No outputs. */
: "r" (n)
: "memory");
: /* No outputs. */
: "r" (n)
: "memory");
}

View File

@ -1,7 +1,6 @@
/* access for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -30,8 +29,8 @@ access (const char *fn, int flags)
if (ret == 0)
{
/* Yes, this was readable. As in other simulator access functions,
we always return success in this case (though the others check
for directory access). */
we always return success in this case (though the others check
for directory access). */
TRAP1f (SYS_Fclose, TMPFNO);
return 0;
}

View File

@ -1,7 +1,6 @@
/* chmod stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* chown stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* close for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* creat for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* crt0 stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* execv stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* execve stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* fork stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* fstat for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -16,7 +15,7 @@
int
_fstat (int file,
struct stat *st)
struct stat *st)
{
st->st_mode = S_IFCHR;
st->st_blksize = 4096;

View File

@ -1,7 +1,6 @@
/* getpid stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* gettime stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* isatty for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* kill for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* lseek for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -18,8 +17,8 @@
off_t
_lseek (int file,
off_t ptr,
int dir)
off_t ptr,
int dir)
{
off_t simoff = dir == SEEK_END ? -(ptr + 1) : ptr;
long ret;
@ -35,10 +34,10 @@ _lseek (int file,
long curpos = TRAP2f (SYS_Ftell, file, 0);
if (curpos == -1)
{
errno = EIO;
return -1;
}
{
errno = EIO;
return -1;
}
ptr += (off_t) curpos;
}

View File

@ -1,7 +1,6 @@
/* open for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -40,13 +39,13 @@ _open (const char *path,
for (fileno = 0;
fileno < (sizeof (_MMIX_allocated_filehandle) /
sizeof (_MMIX_allocated_filehandle[0]));
sizeof (_MMIX_allocated_filehandle[0]));
fileno++)
if (_MMIX_allocated_filehandle[fileno] == 0)
break;
if (fileno == (sizeof (_MMIX_allocated_filehandle) /
sizeof (_MMIX_allocated_filehandle[0])))
sizeof (_MMIX_allocated_filehandle[0])))
{
errno = EMFILE;
return -1;
@ -74,7 +73,7 @@ _open (const char *path,
fffile = 1;
}
else if ((flags & (O_WRONLY | O_CREAT)) == (O_WRONLY | O_CREAT)
|| (flags & (O_WRONLY | O_TRUNC)) == (O_WRONLY | O_TRUNC))
|| (flags & (O_WRONLY | O_TRUNC)) == (O_WRONLY | O_TRUNC))
mode = BinaryWrite;
else if ((flags & (O_RDWR | O_CREAT)) == (O_RDWR | O_CREAT))
mode = BinaryReadWrite;
@ -90,7 +89,7 @@ _open (const char *path,
if (ret < 0)
{
/* It's totally unknown what the error was. We'll just take our
chances and assume ENOENT. */
chances and assume ENOENT. */
errno = ENOENT;
return -1;
}

View File

@ -1,7 +1,6 @@
/* pipe stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* read for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -40,7 +39,7 @@ _read (int file,
if (ret == -1 - (long) len)
{
/* We don't know the nature of the failure, so this is an
approximation. */
approximation. */
errno = EIO;
return -1;
}

View File

@ -1,7 +1,6 @@
/* sbrk for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -26,13 +25,13 @@ extern char *_Sbrk_high;
Pool_Segment and any other symbols that would be predefined in mmixal. */
__asm__ (" .global _Sbrk_high\n"
"_Sbrk_high IS Pool_Segment\n"
"Pool_Segment IS 0x40<<56");
"_Sbrk_high IS Pool_Segment\n"
"Pool_Segment IS 0x40<<56");
caddr_t
_sbrk (size_t incr)
{
extern char end; /* Defined by the linker */
extern char end; /* Defined by the linker */
char *prev_heap_end;
prev_heap_end = _Sbrk_high;

View File

@ -1,7 +1,6 @@
/* Setjmp and longjmp for mmix.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -10,11 +9,11 @@
PURPOSE.
jmp_buf[5]:
0: fp
1: rJ (return-address)
2: sp
3: rO *before* the setjmp call.
4: temporary storage. Reserved between setjmp and longjmp. */
0: fp
1: rJ (return-address)
2: sp
3: rO *before* the setjmp call.
4: temporary storage. Reserved between setjmp and longjmp. */
#ifdef __MMIX_ABI_GNU__
#define arg1 $231
@ -28,38 +27,38 @@
#define popval 1
#endif
.section .text.setjmp,"ax",@progbits
.global setjmp
.section .text.setjmp,"ax",@progbits
.global setjmp
setjmp:
% Store fp, sp and return address. Recycle the static-chain and
% structure-return registers as temporary register, since we need to keep
% the jmp_buf (parameter 1) and the return address across a "POP".
SET $251,arg1
STOU $253,$251,0
GET $252,rJ
STOU $252,$251,8
STOU $254,$251,16
SETL outret,0
SET $251,arg1
STOU $253,$251,0
GET $252,rJ
STOU $252,$251,8
STOU $254,$251,16
SETL outret,0
% Jump through hoops to get the value of rO *before* the setjmp call.
GETA $255,0f
PUT rJ,$255
POP popval,0
GETA $255,0f
PUT rJ,$255
POP popval,0
0:
GET $255,rO
STOU $255,$251,24
GO $255,$252,0
.size setjmp,.-setjmp
GET $255,rO
STOU $255,$251,24
GO $255,$252,0
.size setjmp,.-setjmp
.section .text.longjmp,"ax",@progbits
.global longjmp
.section .text.longjmp,"ax",@progbits
.global longjmp
longjmp:
% Reset arg2 to 1 if it is 0 (see longjmp(2)) and store it in jmp_buf.
% Save arg1 in a global register, since it will be destroyed by the POPs
% (in the mmixware ABI).
CSZ arg2,arg2,1
STOU arg2,arg1,32
SET $251,arg1
CSZ arg2,arg2,1
STOU arg2,arg1,32
SET $251,arg1
% Loop and "POP 0,0" until rO is the expected value, like
% the expansion of nonlocal_goto_receiver, except that we put the return
@ -68,18 +67,18 @@ longjmp:
% GNU ABI, it is unnecessary to do this in the loop and perhaps the memory
% access can be hoisted outside the loop, but this is safe and simple and
% I see no need to optimize longjmps.
GETA $255,0f
PUT rJ,$255
LDOU $255,$251,24
GETA $255,0f
PUT rJ,$255
LDOU $255,$251,24
0:
GET $252,rO
CMPU $252,$252,$255
BNP $252,1f
LDOU outret,$251,32
POP popval,0
GET $252,rO
CMPU $252,$252,$255
BNP $252,1f
LDOU outret,$251,32
POP popval,0
1:
LDOU $253,$251,0
LDOU $255,$251,8
LDOU $254,$251,16
GO $255,$255,0
.size longjmp,.-longjmp
LDOU $253,$251,0
LDOU $255,$251,8
LDOU $254,$251,16
GO $255,$255,0
.size longjmp,.-longjmp

View File

@ -1,7 +1,6 @@
/* stat stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -0,0 +1,137 @@
/* syscall defines for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. */
/* These are the mmixware simulator calls that are of use in newlib. */
#define SYS_halt 0
#define SYS_Fopen 1
#define SYS_Fclose 2
#define SYS_Fread 3
#define SYS_Fwrite 6
#define SYS_Fseek 9
#define SYS_Ftell 10
enum MMIX_filemode
{
TextRead = 0,
TextWrite = 1,
BinaryRead = 2,
BinaryWrite = 3,
BinaryReadWrite = 4
};
#define N_MMIX_FILEHANDLES 32
/* We store a bitmap of allocated filehandles
_MMIX_allocated_filehandle[fileno] in an array. There are 32 of them.
Indexes 0, 1 and 2 are allocated from start. The reason we keep track
of them is that *we* have to allocate a filehandle when opening a file.
Had we got a filehandle from the simulator, we wouldn't have to keep
track of it. A value of 0 denotes a free handle. */
extern unsigned char _MMIX_allocated_filehandle[N_MMIX_FILEHANDLES];
/* We use this file-handle number as a temporary; not used by usual file
I/O. */
#define TMPFNO 127
/* Simulator call with one argument. Also used for zero-argument calls;
pass a zero as ARG1. */
#define TRAP1i(FUN, ARG1) \
({ long ret_; \
__asm__ ("TRAP 0,%1,%2\n\tSET %0,$255" \
: "=r" (ret_) : "i" (FUN), "i" (ARG1) \
: "memory"); \
ret_; \
})
/* Helper macros to cope with the file-handle parameter to the simulator
being *constant*. We support up to 32 simultaneously open files. */
#define I3f(FUN, ARG1, N, ARGS) \
if (ARG1 == N) \
__asm__ ("SET $255,%3\n\tTRAP 0,%1,%2\n\tSET %0,$255" \
: "=r" (ret_) : "i" (FUN), "i" (N), "r" (ARGS) \
: "memory")
/* Using if:s rather than switches to help GCC optimize the rest away. */
#define DO32(FUN, ARG1, ARGS) \
I3f (FUN, ARG1, 0, ARGS); \
else I3f (FUN, ARG1, 1, ARGS); \
else I3f (FUN, ARG1, 2, ARGS); \
else I3f (FUN, ARG1, 3, ARGS); \
else I3f (FUN, ARG1, 4, ARGS); \
else I3f (FUN, ARG1, 5, ARGS); \
else I3f (FUN, ARG1, 6, ARGS); \
else I3f (FUN, ARG1, 7, ARGS); \
else I3f (FUN, ARG1, 8, ARGS); \
else I3f (FUN, ARG1, 9, ARGS); \
else I3f (FUN, ARG1, 10, ARGS); \
else I3f (FUN, ARG1, 11, ARGS); \
else I3f (FUN, ARG1, 12, ARGS); \
else I3f (FUN, ARG1, 13, ARGS); \
else I3f (FUN, ARG1, 14, ARGS); \
else I3f (FUN, ARG1, 15, ARGS); \
else I3f (FUN, ARG1, 16, ARGS); \
else I3f (FUN, ARG1, 17, ARGS); \
else I3f (FUN, ARG1, 18, ARGS); \
else I3f (FUN, ARG1, 19, ARGS); \
else I3f (FUN, ARG1, 20, ARGS); \
else I3f (FUN, ARG1, 21, ARGS); \
else I3f (FUN, ARG1, 22, ARGS); \
else I3f (FUN, ARG1, 23, ARGS); \
else I3f (FUN, ARG1, 24, ARGS); \
else I3f (FUN, ARG1, 25, ARGS); \
else I3f (FUN, ARG1, 26, ARGS); \
else I3f (FUN, ARG1, 27, ARGS); \
else I3f (FUN, ARG1, 28, ARGS); \
else I3f (FUN, ARG1, 29, ARGS); \
else I3f (FUN, ARG1, 30, ARGS); \
else I3f (FUN, ARG1, 31, ARGS); \
else \
{ \
errno = EBADF; \
return -1; \
}
#define TRAP1f(FUN, ARG1) \
({ long ret_; \
DO32 (FUN, ARG1, 0); \
ret_; \
})
#define TRAP2f(FUN, ARG1, ARG2) \
({ long ret_; \
DO32 (FUN, ARG1, ARG2); \
ret_; \
})
#define TRAP3f(FUN, ARG1, ARG2, ARG3) \
({ long ret_; \
unsigned long args_[] \
= { (unsigned long) (ARG2), (unsigned long) (ARG3) }; \
DO32 (FUN, ARG1, args_); \
ret_; \
})
#ifndef __GNUC__
/* Probably will not happen. Nevertheless... */
# define UNIMPLEMENTED(MSG)
#else
# define UNIMPLEMENTED(MSG) UNIMPLEMENTEDi MSG
# define UNIMPLEMENTEDi(MSG, ARGS...) \
do { \
char buf[2000]; \
sprintf (buf, "UNIMPLEMENTED %s in %s\n", __FUNCTION__, __FILE__); \
write (2, buf, strlen (buf)); \
sprintf (buf, MSG , ##ARGS); \
write (2, buf, strlen (buf)); \
write (2, "\n", 1); \
} while (0)
#endif

View File

@ -1,138 +0,0 @@
/* syscall defines for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. */
/* These are the mmixware simulator calls that are of use in newlib. */
#define SYS_halt 0
#define SYS_Fopen 1
#define SYS_Fclose 2
#define SYS_Fread 3
#define SYS_Fwrite 6
#define SYS_Fseek 9
#define SYS_Ftell 10
enum MMIX_filemode
{
TextRead = 0,
TextWrite = 1,
BinaryRead = 2,
BinaryWrite = 3,
BinaryReadWrite = 4
};
#define N_MMIX_FILEHANDLES 32
/* We store a bitmap of allocated filehandles
_MMIX_allocated_filehandle[fileno] in an array. There are 32 of them.
Indexes 0, 1 and 2 are allocated from start. The reason we keep track
of them is that *we* have to allocate a filehandle when opening a file.
Had we got a filehandle from the simulator, we wouldn't have to keep
track of it. A value of 0 denotes a free handle. */
extern unsigned char _MMIX_allocated_filehandle[N_MMIX_FILEHANDLES];
/* We use this file-handle number as a temporary; not used by usual file
I/O. */
#define TMPFNO 127
/* Simulator call with one argument. Also used for zero-argument calls;
pass a zero as ARG1. */
#define TRAP1i(FUN, ARG1) \
({ long ret_; \
__asm__ ("TRAP 0,%1,%2\n\tSET %0,$255" \
: "=r" (ret_) : "i" (FUN), "i" (ARG1) \
: "memory"); \
ret_; \
})
/* Helper macros to cope with the file-handle parameter to the simulator
being *constant*. We support up to 32 simultaneously open files. */
#define I3f(FUN, ARG1, N, ARGS) \
if (ARG1 == N) \
__asm__ ("SET $255,%3\n\tTRAP 0,%1,%2\n\tSET %0,$255" \
: "=r" (ret_) : "i" (FUN), "i" (N), "r" (ARGS) \
: "memory")
/* Using if:s rather than switches to help GCC optimize the rest away. */
#define DO32(FUN, ARG1, ARGS) \
I3f (FUN, ARG1, 0, ARGS); \
else I3f (FUN, ARG1, 1, ARGS); \
else I3f (FUN, ARG1, 2, ARGS); \
else I3f (FUN, ARG1, 3, ARGS); \
else I3f (FUN, ARG1, 4, ARGS); \
else I3f (FUN, ARG1, 5, ARGS); \
else I3f (FUN, ARG1, 6, ARGS); \
else I3f (FUN, ARG1, 7, ARGS); \
else I3f (FUN, ARG1, 8, ARGS); \
else I3f (FUN, ARG1, 9, ARGS); \
else I3f (FUN, ARG1, 10, ARGS); \
else I3f (FUN, ARG1, 11, ARGS); \
else I3f (FUN, ARG1, 12, ARGS); \
else I3f (FUN, ARG1, 13, ARGS); \
else I3f (FUN, ARG1, 14, ARGS); \
else I3f (FUN, ARG1, 15, ARGS); \
else I3f (FUN, ARG1, 16, ARGS); \
else I3f (FUN, ARG1, 17, ARGS); \
else I3f (FUN, ARG1, 18, ARGS); \
else I3f (FUN, ARG1, 19, ARGS); \
else I3f (FUN, ARG1, 20, ARGS); \
else I3f (FUN, ARG1, 21, ARGS); \
else I3f (FUN, ARG1, 22, ARGS); \
else I3f (FUN, ARG1, 23, ARGS); \
else I3f (FUN, ARG1, 24, ARGS); \
else I3f (FUN, ARG1, 25, ARGS); \
else I3f (FUN, ARG1, 26, ARGS); \
else I3f (FUN, ARG1, 27, ARGS); \
else I3f (FUN, ARG1, 28, ARGS); \
else I3f (FUN, ARG1, 29, ARGS); \
else I3f (FUN, ARG1, 30, ARGS); \
else I3f (FUN, ARG1, 31, ARGS); \
else \
{ \
errno = EBADF; \
return -1; \
}
#define TRAP1f(FUN, ARG1) \
({ long ret_; \
DO32 (FUN, ARG1, 0); \
ret_; \
})
#define TRAP2f(FUN, ARG1, ARG2) \
({ long ret_; \
DO32 (FUN, ARG1, ARG2); \
ret_; \
})
#define TRAP3f(FUN, ARG1, ARG2, ARG3) \
({ long ret_; \
unsigned long args_[] \
= { (unsigned long) (ARG2), (unsigned long) (ARG3) }; \
DO32 (FUN, ARG1, args_); \
ret_; \
})
#ifndef __GNUC__
/* Probably will not happen. Nevertheless... */
# define UNIMPLEMENTED(MSG)
#else
# define UNIMPLEMENTED(MSG) UNIMPLEMENTEDi MSG
# define UNIMPLEMENTEDi(MSG, ARGS...) \
do { \
char buf[2000]; \
sprintf (buf, "UNIMPLEMENTED %s in %s\n", __FUNCTION__, __FILE__); \
write (2, buf, strlen (buf)); \
sprintf (buf, MSG , ##ARGS); \
write (2, buf, strlen (buf)); \
write (2, "\n", 1); \
} while (0)
#endif

View File

@ -1,7 +1,6 @@
/* time stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* times stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* unlink stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* utime stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* wait stub for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

View File

@ -1,7 +1,6 @@
/* write for MMIXware.
Copyright (C) 2001 Hans-Peter Nilsson.
Permission to use, copy, modify, and distribute this software is freely
granted, provided that this notice is preserved with no changes.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
@ -17,8 +16,8 @@
int
_write ( int file,
char *ptr,
size_t len)
char *ptr,
size_t len)
{
long ret;