2 * Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
3 * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
4 * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
5 * Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. The name of the author may not be used to endorse or promote products
17 * derived from this software without specific prior written permission.
19 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
33 #if defined(SPARC) || defined(SPARC64)
35 unsigned short st_dev;
37 unsigned short st_mode;
39 unsigned short st_uid;
40 unsigned short st_gid;
41 unsigned short st_rdev;
44 unsigned int __unused1;
46 unsigned int __unused2;
48 unsigned int __unused3;
51 unsigned int __unused4[2];
58 unsigned int st_nlink;
68 unsigned long __unused4[2];
71 # define stat kernel_stat
72 # include <asm/stat.h>
76 unsigned long long st_dev;
77 unsigned long long st_ino;
78 unsigned long long st_nlink;
84 unsigned long long st_rdev;
89 unsigned long long st_atime;
90 unsigned long long st_atime_nsec;
91 unsigned long long st_mtime;
92 unsigned long long st_mtime_nsec;
93 unsigned long long st_ctime;
94 unsigned long long st_ctime_nsec;
95 long long __unused[3];
99 unsigned long long st_dev;
100 unsigned char __pad0[4];
101 unsigned long __st_ino;
102 unsigned int st_mode;
103 unsigned int st_nlink;
104 unsigned long st_uid;
105 unsigned long st_gid;
106 unsigned long long st_rdev;
107 unsigned char __pad3[4];
109 unsigned long st_blksize;
110 unsigned long long st_blocks;
111 unsigned long st_atime;
112 unsigned long st_atime_nsec;
113 unsigned long st_mtime;
114 unsigned int st_mtime_nsec;
115 unsigned long st_ctime;
116 unsigned long st_ctime_nsec;
117 unsigned long long st_ino;
118 } __attribute__((packed));
119 # define HAVE_STAT64 1
121 struct __old_kernel_stat {
122 unsigned short st_dev;
123 unsigned short st_ino;
124 unsigned short st_mode;
125 unsigned short st_nlink;
126 unsigned short st_uid;
127 unsigned short st_gid;
128 unsigned short st_rdev;
129 unsigned int st_size;
130 unsigned int st_atime;
131 unsigned int st_mtime;
132 unsigned int st_ctime;
143 # define dev_t __kernel_dev_t
144 # define ino_t __kernel_ino_t
145 # define mode_t __kernel_mode_t
146 # define nlink_t __kernel_nlink_t
147 # define uid_t __kernel_uid_t
148 # define gid_t __kernel_gid_t
149 # define off_t __kernel_off_t
150 # define loff_t __kernel_loff_t
152 # include <asm/stat.h>
164 # define mode_t mode_t
165 # define nlink_t nlink_t
169 # define loff_t loff_t
172 #define stat libc_stat
173 #define stat64 libc_stat64
174 #include <sys/stat.h>
177 /* These might be macros. */
182 #ifdef MAJOR_IN_SYSMACROS
183 # include <sys/sysmacros.h>
186 #ifdef MAJOR_IN_MKDEV
187 # include <sys/mkdev.h>
192 #if defined(SPARC) || defined(SPARC64)
200 int st_pad1[3]; /* network id */
209 int st_pad3; /* st_size, off_t expansion */
210 timestruct_t st_atime;
211 timestruct_t st_mtime;
212 timestruct_t st_ctime;
216 int st_pad4[8]; /* expansion area */
220 printstatsol(struct tcb *tcp, long addr)
222 struct solstat statbuf;
224 if (umove(tcp, addr, &statbuf) < 0) {
229 tprintf("{st_dev=makedev(%lu, %lu), st_ino=%lu, st_mode=%s, ",
230 (unsigned long) ((statbuf.st_dev >> 18) & 0x3fff),
231 (unsigned long) (statbuf.st_dev & 0x3ffff),
232 (unsigned long) statbuf.st_ino,
233 sprintmode(statbuf.st_mode));
234 tprintf("st_nlink=%lu, st_uid=%lu, st_gid=%lu, ",
235 (unsigned long) statbuf.st_nlink,
236 (unsigned long) statbuf.st_uid,
237 (unsigned long) statbuf.st_gid);
238 tprintf("st_blksize=%lu, ", (unsigned long) statbuf.st_blksize);
239 tprintf("st_blocks=%lu, ", (unsigned long) statbuf.st_blocks);
242 tprintf("{st_mode=%s, ", sprintmode(statbuf.st_mode));
243 switch (statbuf.st_mode & S_IFMT) {
244 case S_IFCHR: case S_IFBLK:
245 tprintf("st_rdev=makedev(%lu, %lu), ",
246 (unsigned long) ((statbuf.st_rdev >> 18) & 0x3fff),
247 (unsigned long) (statbuf.st_rdev & 0x3ffff));
250 tprintf("st_size=%u, ", statbuf.st_size);
254 tprintf("st_atime=%s, ", sprinttime(statbuf.st_atime.tv_sec));
255 tprintf("st_mtime=%s, ", sprinttime(statbuf.st_mtime.tv_sec));
256 tprintf("st_ctime=%s}", sprinttime(statbuf.st_ctime.tv_sec));
262 # if defined(SPARC64)
264 printstat_sparc64(struct tcb *tcp, long addr)
266 struct stat_sparc64 statbuf;
268 if (umove(tcp, addr, &statbuf) < 0) {
274 tprintf("{st_dev=makedev(%lu, %lu), st_ino=%lu, st_mode=%s, ",
275 (unsigned long) major(statbuf.st_dev),
276 (unsigned long) minor(statbuf.st_dev),
277 (unsigned long) statbuf.st_ino,
278 sprintmode(statbuf.st_mode));
279 tprintf("st_nlink=%lu, st_uid=%lu, st_gid=%lu, ",
280 (unsigned long) statbuf.st_nlink,
281 (unsigned long) statbuf.st_uid,
282 (unsigned long) statbuf.st_gid);
283 tprintf("st_blksize=%lu, ",
284 (unsigned long) statbuf.st_blksize);
285 tprintf("st_blocks=%lu, ",
286 (unsigned long) statbuf.st_blocks);
289 tprintf("{st_mode=%s, ", sprintmode(statbuf.st_mode));
290 switch (statbuf.st_mode & S_IFMT) {
291 case S_IFCHR: case S_IFBLK:
292 tprintf("st_rdev=makedev(%lu, %lu), ",
293 (unsigned long) major(statbuf.st_rdev),
294 (unsigned long) minor(statbuf.st_rdev));
297 tprintf("st_size=%lu, ", statbuf.st_size);
301 tprintf("st_atime=%s, ", sprinttime(statbuf.st_atime));
302 tprintf("st_mtime=%s, ", sprinttime(statbuf.st_mtime));
303 tprintf("st_ctime=%s}", sprinttime(statbuf.st_ctime));
308 # endif /* SPARC64 */
309 #endif /* SPARC[64] */
311 #if defined POWERPC64
312 struct stat_powerpc32 {
315 unsigned int st_mode;
316 unsigned short st_nlink;
319 unsigned int st_rdev;
320 unsigned int st_size;
321 unsigned int st_blksize;
322 unsigned int st_blocks;
323 unsigned int st_atime;
324 unsigned int st_atime_nsec;
325 unsigned int st_mtime;
326 unsigned int st_mtime_nsec;
327 unsigned int st_ctime;
328 unsigned int st_ctime_nsec;
329 unsigned int __unused4;
330 unsigned int __unused5;
334 printstat_powerpc32(struct tcb *tcp, long addr)
336 struct stat_powerpc32 statbuf;
338 if (umove(tcp, addr, &statbuf) < 0) {
344 tprintf("{st_dev=makedev(%u, %u), st_ino=%u, st_mode=%s, ",
345 major(statbuf.st_dev), minor(statbuf.st_dev),
347 sprintmode(statbuf.st_mode));
348 tprintf("st_nlink=%u, st_uid=%u, st_gid=%u, ",
349 statbuf.st_nlink, statbuf.st_uid, statbuf.st_gid);
350 tprintf("st_blksize=%u, ", statbuf.st_blksize);
351 tprintf("st_blocks=%u, ", statbuf.st_blocks);
354 tprintf("{st_mode=%s, ", sprintmode(statbuf.st_mode));
355 switch (statbuf.st_mode & S_IFMT) {
356 case S_IFCHR: case S_IFBLK:
357 tprintf("st_rdev=makedev(%lu, %lu), ",
358 (unsigned long) major(statbuf.st_rdev),
359 (unsigned long) minor(statbuf.st_rdev));
362 tprintf("st_size=%u, ", statbuf.st_size);
366 tprintf("st_atime=%s, ", sprinttime(statbuf.st_atime));
367 tprintf("st_mtime=%s, ", sprinttime(statbuf.st_mtime));
368 tprintf("st_ctime=%s}", sprinttime(statbuf.st_ctime));
373 #endif /* POWERPC64 */
375 #include "xlat/fileflags.h"
378 realprintstat(struct tcb *tcp, struct stat *statbuf)
381 tprintf("{st_dev=makedev(%lu, %lu), st_ino=%lu, st_mode=%s, ",
382 (unsigned long) major(statbuf->st_dev),
383 (unsigned long) minor(statbuf->st_dev),
384 (unsigned long) statbuf->st_ino,
385 sprintmode(statbuf->st_mode));
386 tprintf("st_nlink=%lu, st_uid=%lu, st_gid=%lu, ",
387 (unsigned long) statbuf->st_nlink,
388 (unsigned long) statbuf->st_uid,
389 (unsigned long) statbuf->st_gid);
390 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
391 tprintf("st_blksize=%lu, ", (unsigned long) statbuf->st_blksize);
393 #ifdef HAVE_STRUCT_STAT_ST_BLOCKS
394 tprintf("st_blocks=%lu, ", (unsigned long) statbuf->st_blocks);
398 tprintf("{st_mode=%s, ", sprintmode(statbuf->st_mode));
399 switch (statbuf->st_mode & S_IFMT) {
400 case S_IFCHR: case S_IFBLK:
401 #ifdef HAVE_STRUCT_STAT_ST_RDEV
402 tprintf("st_rdev=makedev(%lu, %lu), ",
403 (unsigned long) major(statbuf->st_rdev),
404 (unsigned long) minor(statbuf->st_rdev));
405 #else /* !HAVE_STRUCT_STAT_ST_RDEV */
406 tprintf("st_size=makedev(%lu, %lu), ",
407 (unsigned long) major(statbuf->st_size),
408 (unsigned long) minor(statbuf->st_size));
409 #endif /* !HAVE_STRUCT_STAT_ST_RDEV */
412 tprintf("st_size=%lu, ", (unsigned long) statbuf->st_size);
416 tprintf("st_atime=%s, ", sprinttime(statbuf->st_atime));
417 tprintf("st_mtime=%s, ", sprinttime(statbuf->st_mtime));
418 tprintf("st_ctime=%s", sprinttime(statbuf->st_ctime));
419 #if HAVE_STRUCT_STAT_ST_FLAGS
420 tprints(", st_flags=");
421 printflags(fileflags, statbuf->st_flags, "UF_???");
423 #if HAVE_STRUCT_STAT_ST_ACLCNT
424 tprintf(", st_aclcnt=%d", statbuf->st_aclcnt);
426 #if HAVE_STRUCT_STAT_ST_LEVEL
427 tprintf(", st_level=%ld", statbuf->st_level);
429 #if HAVE_STRUCT_STAT_ST_FSTYPE
430 tprintf(", st_fstype=%.*s",
431 (int) sizeof statbuf->st_fstype, statbuf->st_fstype);
433 #if HAVE_STRUCT_STAT_ST_GEN
434 tprintf(", st_gen=%u", statbuf->st_gen);
444 printstat(struct tcb *tcp, long addr)
452 if (syserror(tcp) || !verbose(tcp)) {
453 tprintf("%#lx", addr);
457 #if defined(SPARC) || defined(SPARC64)
458 if (current_personality == 1) {
459 printstatsol(tcp, addr);
463 else if (current_personality == 2) {
464 printstat_sparc64(tcp, addr);
468 #endif /* SPARC[64] */
470 #if defined POWERPC64
471 if (current_personality == 1) {
472 printstat_powerpc32(tcp, addr);
477 if (umove(tcp, addr, &statbuf) < 0) {
482 realprintstat(tcp, &statbuf);
485 # define printstat printstat64
488 #if !defined HAVE_STAT64 && (defined AARCH64 || defined X86_64)
490 * Linux x86_64 has unified `struct stat' but its i386 biarch needs
491 * `struct stat64'. Its <asm-i386/stat.h> definition expects 32-bit `long'.
492 * <linux/include/asm-x86_64/ia32.h> is not in the public includes set.
493 * __GNUC__ is needed for the required __attribute__ below.
495 * Similarly, aarch64 has a unified `struct stat' but its arm personality
496 * needs `struct stat64' (which also expects a 32-bit `long' but which
497 * shouldn't be packed).
500 unsigned long long st_dev;
501 unsigned char __pad0[4];
502 unsigned int __st_ino;
503 unsigned int st_mode;
504 unsigned int st_nlink;
507 unsigned long long st_rdev;
508 unsigned char __pad3[4];
510 unsigned int st_blksize;
511 unsigned long long st_blocks;
512 unsigned int st_atime;
513 unsigned int st_atime_nsec;
514 unsigned int st_mtime;
515 unsigned int st_mtime_nsec;
516 unsigned int st_ctime;
517 unsigned int st_ctime_nsec;
518 unsigned long long st_ino;
521 __attribute__((packed))
522 # define STAT64_SIZE 96
524 # define STAT64_SIZE 104
527 # define HAVE_STAT64 1
532 printstat64(struct tcb *tcp, long addr)
537 struct stat64 statbuf;
541 (void) sizeof(char[sizeof statbuf == STAT64_SIZE ? 1 : -1]);
548 if (syserror(tcp) || !verbose(tcp)) {
549 tprintf("%#lx", addr);
553 #if defined(SPARC) || defined(SPARC64)
554 if (current_personality == 1) {
555 printstatsol(tcp, addr);
559 else if (current_personality == 2) {
560 printstat_sparc64(tcp, addr);
564 #endif /* SPARC[64] */
567 if (current_personality != 0) {
568 printstat(tcp, addr);
573 if (current_personality != 1) {
574 printstat(tcp, addr);
579 if (umove(tcp, addr, &statbuf) < 0) {
585 tprintf("{st_dev=makedev(%lu, %lu), st_ino=%llu, st_mode=%s, ",
586 (unsigned long) major(statbuf.st_dev),
587 (unsigned long) minor(statbuf.st_dev),
588 (unsigned long long) statbuf.st_ino,
589 sprintmode(statbuf.st_mode));
590 tprintf("st_nlink=%lu, st_uid=%lu, st_gid=%lu, ",
591 (unsigned long) statbuf.st_nlink,
592 (unsigned long) statbuf.st_uid,
593 (unsigned long) statbuf.st_gid);
594 #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
595 tprintf("st_blksize=%lu, ",
596 (unsigned long) statbuf.st_blksize);
597 #endif /* HAVE_STRUCT_STAT_ST_BLKSIZE */
598 #ifdef HAVE_STRUCT_STAT_ST_BLOCKS
599 tprintf("st_blocks=%lu, ", (unsigned long) statbuf.st_blocks);
600 #endif /* HAVE_STRUCT_STAT_ST_BLOCKS */
603 tprintf("{st_mode=%s, ", sprintmode(statbuf.st_mode));
604 switch (statbuf.st_mode & S_IFMT) {
605 case S_IFCHR: case S_IFBLK:
606 #ifdef HAVE_STRUCT_STAT_ST_RDEV
607 tprintf("st_rdev=makedev(%lu, %lu), ",
608 (unsigned long) major(statbuf.st_rdev),
609 (unsigned long) minor(statbuf.st_rdev));
610 #else /* !HAVE_STRUCT_STAT_ST_RDEV */
611 tprintf("st_size=makedev(%lu, %lu), ",
612 (unsigned long) major(statbuf.st_size),
613 (unsigned long) minor(statbuf.st_size));
614 #endif /* !HAVE_STRUCT_STAT_ST_RDEV */
617 tprintf("st_size=%llu, ", (unsigned long long) statbuf.st_size);
621 tprintf("st_atime=%s, ", sprinttime(statbuf.st_atime));
622 tprintf("st_mtime=%s, ", sprinttime(statbuf.st_mtime));
623 tprintf("st_ctime=%s", sprinttime(statbuf.st_ctime));
624 #if HAVE_STRUCT_STAT_ST_FLAGS
625 tprints(", st_flags=");
626 printflags(fileflags, statbuf.st_flags, "UF_???");
628 #if HAVE_STRUCT_STAT_ST_ACLCNT
629 tprintf(", st_aclcnt=%d", statbuf.st_aclcnt);
631 #if HAVE_STRUCT_STAT_ST_LEVEL
632 tprintf(", st_level=%ld", statbuf.st_level);
634 #if HAVE_STRUCT_STAT_ST_FSTYPE
635 tprintf(", st_fstype=%.*s",
636 (int) sizeof statbuf.st_fstype, statbuf.st_fstype);
638 #if HAVE_STRUCT_STAT_ST_GEN
639 tprintf(", st_gen=%u", statbuf.st_gen);
646 #endif /* HAVE_STAT64 */
648 #if defined(HAVE_STRUCT___OLD_KERNEL_STAT)
650 convertoldstat(const struct __old_kernel_stat *oldbuf, struct stat *newbuf)
652 newbuf->st_dev = oldbuf->st_dev;
653 newbuf->st_ino = oldbuf->st_ino;
654 newbuf->st_mode = oldbuf->st_mode;
655 newbuf->st_nlink = oldbuf->st_nlink;
656 newbuf->st_uid = oldbuf->st_uid;
657 newbuf->st_gid = oldbuf->st_gid;
658 newbuf->st_rdev = oldbuf->st_rdev;
659 newbuf->st_size = oldbuf->st_size;
660 newbuf->st_atime = oldbuf->st_atime;
661 newbuf->st_mtime = oldbuf->st_mtime;
662 newbuf->st_ctime = oldbuf->st_ctime;
663 newbuf->st_blksize = 0; /* not supported in old_stat */
664 newbuf->st_blocks = 0; /* not supported in old_stat */
668 printoldstat(struct tcb *tcp, long addr)
670 struct __old_kernel_stat statbuf;
671 struct stat newstatbuf;
677 if (syserror(tcp) || !verbose(tcp)) {
678 tprintf("%#lx", addr);
682 # if defined(SPARC) || defined(SPARC64)
683 if (current_personality == 1) {
684 printstatsol(tcp, addr);
689 if (umove(tcp, addr, &statbuf) < 0) {
694 convertoldstat(&statbuf, &newstatbuf);
695 realprintstat(tcp, &newstatbuf);
700 sys_stat(struct tcb *tcp)
703 printpath(tcp, tcp->u_arg[0]);
706 printstat(tcp, tcp->u_arg[1]);
713 printstat64_x32(struct tcb *tcp, long addr)
715 struct stat64 statbuf;
721 if (syserror(tcp) || !verbose(tcp)) {
722 tprintf("%#lx", addr);
726 if (umove(tcp, addr, &statbuf) < 0) {
732 tprintf("{st_dev=makedev(%lu, %lu), st_ino=%llu, st_mode=%s, ",
733 (unsigned long) major(statbuf.st_dev),
734 (unsigned long) minor(statbuf.st_dev),
735 (unsigned long long) statbuf.st_ino,
736 sprintmode(statbuf.st_mode));
737 tprintf("st_nlink=%lu, st_uid=%lu, st_gid=%lu, ",
738 (unsigned long) statbuf.st_nlink,
739 (unsigned long) statbuf.st_uid,
740 (unsigned long) statbuf.st_gid);
741 tprintf("st_blksize=%lu, ",
742 (unsigned long) statbuf.st_blksize);
743 tprintf("st_blocks=%lu, ", (unsigned long) statbuf.st_blocks);
746 tprintf("{st_mode=%s, ", sprintmode(statbuf.st_mode));
747 switch (statbuf.st_mode & S_IFMT) {
748 case S_IFCHR: case S_IFBLK:
749 tprintf("st_rdev=makedev(%lu, %lu), ",
750 (unsigned long) major(statbuf.st_rdev),
751 (unsigned long) minor(statbuf.st_rdev));
754 tprintf("st_size=%llu, ", (unsigned long long) statbuf.st_size);
758 tprintf("st_atime=%s, ", sprinttime(statbuf.st_atime));
759 tprintf("st_mtime=%s, ", sprinttime(statbuf.st_mtime));
760 tprintf("st_ctime=%s", sprinttime(statbuf.st_ctime));
769 sys_stat64(struct tcb *tcp)
773 printpath(tcp, tcp->u_arg[0]);
777 printstat64_x32(tcp, tcp->u_arg[1]);
779 printstat64(tcp, tcp->u_arg[1]);
784 return printargs(tcp);
789 sys_newfstatat(struct tcb *tcp)
792 print_dirfd(tcp, tcp->u_arg[0]);
793 printpath(tcp, tcp->u_arg[1]);
797 if (current_personality == 0)
798 printstat(tcp, tcp->u_arg[2]);
800 printstat64(tcp, tcp->u_arg[2]);
801 #elif defined HAVE_STAT64
802 printstat64(tcp, tcp->u_arg[2]);
804 printstat(tcp, tcp->u_arg[2]);
807 printflags(at_flags, tcp->u_arg[3], "AT_???");
812 #if defined(HAVE_STRUCT___OLD_KERNEL_STAT)
814 sys_oldstat(struct tcb *tcp)
817 printpath(tcp, tcp->u_arg[0]);
820 printoldstat(tcp, tcp->u_arg[1]);
827 sys_fstat(struct tcb *tcp)
830 printfd(tcp, tcp->u_arg[0]);
833 printstat(tcp, tcp->u_arg[1]);
839 sys_fstat64(struct tcb *tcp)
843 printfd(tcp, tcp->u_arg[0]);
847 printstat64_x32(tcp, tcp->u_arg[1]);
849 printstat64(tcp, tcp->u_arg[1]);
854 return printargs(tcp);
858 #if defined(HAVE_STRUCT___OLD_KERNEL_STAT)
860 sys_oldfstat(struct tcb *tcp)
863 printfd(tcp, tcp->u_arg[0]);
866 printoldstat(tcp, tcp->u_arg[1]);
872 #if defined(SPARC) || defined(SPARC64)
875 sys_xstat(struct tcb *tcp)
878 tprintf("%ld, ", tcp->u_arg[0]);
879 printpath(tcp, tcp->u_arg[1]);
882 printstat(tcp, tcp->u_arg[2]);
888 sys_fxstat(struct tcb *tcp)
891 tprintf("%ld, ", tcp->u_arg[0]);
892 printfd(tcp, tcp->u_arg[1]);
895 printstat(tcp, tcp->u_arg[2]);
900 #endif /* SPARC || SPARC64 */