paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid false problem report on SYS_dup due to SYS_dup2

Browse Source 
git-svn-id: trunk@19601 -
This commit is contained in:
pierre 2011-11-07 13:05:39 +00:00
parent 8797c46aba
commit de2bd0d896
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/openbsd/check_sys.sh
View File

@ -13,9 +13,9 @@ verbose=0
fpc_syscall_prefix=syscall_nr_
syscall_prefix=SYS_
# You should only need to change the varaibles above
# You should only need to change the variables 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
sed -n "s:^[ \t]*${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 ()
{
@ -25,7 +25,7 @@ function check_syscall_number ()
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}`
val=`sed -n "s:#define.*${sys}[^A-Za-z0-9_][^A-Za-z0-9_]*\([0-9]*\).*:\1:p" ${syscall_header}`
if [ $verbose -ne 0 ] ; then
echo Test for $sys found \"${found}\" \"${value}\" \"${val}\"
fi
@ -37,10 +37,10 @@ function check_syscall_number ()
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}`
found=`sed -n "s:\/\* ${value} is compa: ${value} is compa:p" ${syscall_header}`
fi
fi
echo problem for ${sys} expected ${value} line is \"${found}\"
echo problem for ${sys} expected ${value}, line is \"${found}\", val found is \"${val}\"
fi
}