mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 08:00:52 +02:00
* Script to check system call numbers
git-svn-id: trunk@19404 -
This commit is contained in:
parent
a463fbc578
commit
98524eef69
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -7833,6 +7833,7 @@ rtl/objpas/varutilh.inc svneol=native#text/plain
|
||||
rtl/objpas/varutils.inc svneol=native#text/plain
|
||||
rtl/openbsd/Makefile svneol=native#text/plain
|
||||
rtl/openbsd/Makefile.fpc svneol=native#text/plain
|
||||
rtl/openbsd/check_sys.sh svneol=native#text/plain
|
||||
rtl/openbsd/classes.pp svneol=native#text/plain
|
||||
rtl/openbsd/errno.inc svneol=native#text/plain
|
||||
rtl/openbsd/errnostr.inc svneol=native#text/plain
|
||||
|
48
rtl/openbsd/check_sys.sh
Executable file
48
rtl/openbsd/check_sys.sh
Executable file
@ -0,0 +1,48 @@
|
||||
#!/usr/bin/env bash
|
||||
|
||||
# Script to test fpc to system syscall numbers
|
||||
|
||||
# Location of syscall header in system
|
||||
|
||||
syscall_header=/usr/include/sys/syscall.h
|
||||
|
||||
verbose=0
|
||||
|
||||
# Sustitution made to pass from fpc syscall number
|
||||
# to system define
|
||||
fpc_syscall_prefix=syscall_nr_
|
||||
syscall_prefix=SYS_
|
||||
|
||||
# You should only need to change the varaibles above
|
||||
|
||||
sed -n "s:${fpc_syscall_prefix}\\([_a-zA-Z0-9]*\\)[ \t]*=[ \t]*\\([0-9]*\\).*:check_syscall_number ${syscall_prefix}\1 \2:p" sysnr.inc > check_sys_list.sh
|
||||
|
||||
function check_syscall_number ()
|
||||
{
|
||||
sys=$1
|
||||
value=$2
|
||||
if [ $verbose -ne 0 ] ; then
|
||||
echo Testing $sys value $value
|
||||
fi
|
||||
found=`sed -n "/#define.*${sys}[^A-Za-z0-9_]/p" ${syscall_header}`
|
||||
val=`sed -n "s:#define.*${sys}[^A-Za-z0-9_]*\([0-9]*\).*:\1:p" ${syscall_header}`
|
||||
if [ $verbose -ne 0 ] ; then
|
||||
echo Test for $sys found \"${found}\" \"${value}\" \"${val}\"
|
||||
fi
|
||||
if [ "${val}" == "${value}" ] ; then
|
||||
if [ $verbose -ne 0 ] ; then
|
||||
echo ${sys} value ${val} is correct
|
||||
fi
|
||||
else
|
||||
if [ "${val}" == "" ] ; then
|
||||
found=`sed -n "/#define.*[^A-Za-z0-9_]${value}$/p" ${syscall_header}`
|
||||
if [ "${found}" == "" ] ; then
|
||||
found=`sed -n "s|/\\*.* ${value} is compat|${value} is compat|p" ${syscall_header}`
|
||||
fi
|
||||
fi
|
||||
echo problem for ${sys} expected ${value} line is \"${found}\"
|
||||
fi
|
||||
}
|
||||
|
||||
source ./check_sys_list.sh
|
||||
|
Loading…
Reference in New Issue
Block a user