mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-02 12:13:42 +02:00
116 lines
1.6 KiB
Plaintext
116 lines
1.6 KiB
Plaintext
# OpenBSD RTL-to-C structure compatibility checker description file
|
|
#
|
|
# Use
|
|
# h2paschk t_openbsd.h2paschk
|
|
#
|
|
# ...to generate Pascal and C code, then make sure they both compile and that
|
|
# the Pascal program produces the same output as the C program for each
|
|
# supported architecture.
|
|
|
|
@Pascal uses baseunix;
|
|
@Pascal begin
|
|
|
|
@C #include <sys/types.h>
|
|
@C #include <sys/stat.h>
|
|
@C #include <sys/time.h>
|
|
@C #include <sys/times.h>
|
|
@C #include <sys/resource.h>
|
|
@C #include <sys/uio.h>
|
|
@C #include <dirent.h>
|
|
@C #include <poll.h>
|
|
@C #include <utime.h>
|
|
@C #include <fcntl.h>
|
|
@C #include <unistd.h>
|
|
@C #include <stdio.h>
|
|
@C #include <stddef.h>
|
|
@C int main()
|
|
@C {
|
|
|
|
@record stat,struct stat
|
|
.st_mode
|
|
.st_dev
|
|
.st_ino
|
|
.st_nlink
|
|
.st_uid
|
|
.st_gid
|
|
.st_rdev
|
|
.st_atime
|
|
.st_atimensec
|
|
.st_mtime
|
|
.st_mtimensec
|
|
.st_ctime
|
|
.st_ctimensec
|
|
.st_size
|
|
.st_blocks
|
|
.st_blksize
|
|
.st_flags
|
|
.st_gen
|
|
.st_birthtime,__st_birthtime
|
|
.st_birthtimensec,__st_birthtimensec
|
|
|
|
@record dirent,struct dirent
|
|
.d_fileno
|
|
.d_off
|
|
.d_reclen
|
|
.d_type
|
|
.d_namlen
|
|
.d_padding,__d_padding
|
|
.d_name
|
|
|
|
@record pollfd,struct pollfd
|
|
.fd
|
|
.events
|
|
.revents
|
|
|
|
@record utimbuf,struct utimbuf
|
|
.actime
|
|
.modtime
|
|
|
|
@record flock,struct flock
|
|
.l_start
|
|
.l_len
|
|
.l_pid
|
|
.l_type
|
|
.l_whence
|
|
|
|
@record tms,struct tms
|
|
.tms_utime
|
|
.tms_stime
|
|
.tms_cutime
|
|
.tms_cstime
|
|
|
|
@record timezone,struct timezone
|
|
.tz_minuteswest
|
|
.tz_dsttime
|
|
|
|
@record rusage,struct rusage
|
|
.ru_utime
|
|
.ru_stime
|
|
.ru_maxrss
|
|
.ru_ixrss
|
|
.ru_idrss
|
|
.ru_isrss
|
|
.ru_minflt
|
|
.ru_majflt
|
|
.ru_nswap
|
|
.ru_inblock
|
|
.ru_oublock
|
|
.ru_msgsnd
|
|
.ru_msgrcv
|
|
.ru_nsignals
|
|
.ru_nvcsw
|
|
.ru_nivcsw
|
|
|
|
@record TRLimit,struct rlimit
|
|
.rlim_cur
|
|
.rlim_max
|
|
|
|
@record iovec,struct iovec
|
|
.iov_base
|
|
.iov_len
|
|
|
|
@C return 0;
|
|
@C }
|
|
|
|
@Pascal end.
|