paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:31:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add script to use h2paschk on t_OS.h2paschk file for rtl tests for system header compliance

Browse Source 
git-svn-id: trunk@42015 -
This commit is contained in:
pierre 2019-05-06 21:10:12 +00:00
parent cb4b085a99
commit 12647c348e
2 changed files with 214 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -10599,6 +10599,7 @@ rtl/unix/scripts/README svneol=native#text/plain
rtl/unix/scripts/check_consts.sh svneol=native#text/plain
rtl/unix/scripts/check_errno.sh svneol=native#text/plain
rtl/unix/scripts/check_errnostr.sh svneol=native#text/plain
rtl/unix/scripts/check_rtl_types.sh svneol=native#text/plain
rtl/unix/scripts/check_sys.sh svneol=native#text/plain
rtl/unix/settimeo.inc svneol=native#text/plain
rtl/unix/syscall.pp svneol=native#text/plain

213
rtl/unix/scripts/check_rtl_types.sh Executable file
View File

@ -0,0 +1,213 @@
#!/usr/bin/env bash
filename="$1"
shift
FPC_OPTS="$*"
if [ ! -f "$filename" ] ; then
echo "Usage: $0 file.h2paschk"
exit
fi
filebase=${filename/.*/}
filebaseonly=`basename $filebase`
filedir=`dirname $filename`
if [ -z "$filedir" ] ; then
filedir=.
fi
if [ -z "$MAKE" ] ; then
MAKE=`which gmake`
fi
if [ -z "$MAKE" ] ; then
MAKE=`which make`
fi
if [ -z "$FPC" ] ; then
FPC=fpc
default_fpc=1
else
default_fpc=0
fi
if [ -z "$CC" ] ; then
CC=`which gcc`
fi
if [ -z "$CC" ] ; then
CC=`which cc`
fi
if [ -f "{$filebase}.c" ] ; then
rm -f ${filebase}.c
fi
if [ -f "{$filebase}.pas" ] ; then
rm -f ${filebase}.pas
fi
function check_one ()
{
VERSION=$1
echo "Calling h2paschk $filename"
h2paschk $filename
res=$?
if [ $res -ne 0 ] ; then
exit
fi
echo "Calling $CC $CC_OPT -o ${filebase}_c ${filebase}.c"
$CC $CC_OPT -o ${filebase}_c${VERSION} ${filebase}.c > ${filebase}${VERSION}_c.comp.log 2>&1
res=$?
if [ $res -ne 0 ] ; then
echo "$CC call failed in $VERSION, res=$res"
cat ${filebase}${VERSION}_c.comp.log
exit
fi
./${filebase}_c${VERSION} > ${filebase}_c${VERSION}.out
res=$?
if [ $res -ne 0 ] ; then
echo "./${filebase}_c${VERSION} failed in $VERSION, res=$res"
exit
fi
echo "Calling $MAKE all OPT=\"-n -gwl $FPC_OPTS\" FPC=$FPC"
$MAKE all OPT="-n -gwl $FPC_OPTS" FPC=$FPC > ${filebase}${VERSION}_make_all.log 2>&1
res=$?
if [ $res -ne 0 ] ; then
echo "$MAKE call failed in $VERSION, res=$res"
cat ${filebase}${VERSION}_make_all.log
exit
fi
OS_TARGET=`$FPC $FPC_OPTS -iTO`
CPU_TARGET=`$FPC $FPC_OPTS -iTP`
echo "Calling $MAKE -C ${filedir} ${filebaseonly} FPC=$FPC OPT=\"-n -gwl $FPC_OPTS\" -Fu../units/$CPU_TARGET-$OS_TARGET"
$MAKE -C ${filedir} ${filebaseonly} FPC=$FPC OPT="-n -gwl $FPC_OPTS -Fu../units/$CPU_TARGET-$OS_TARGET" > ${filebase}${VERSION}_pas.comp.log 2>&1
res=$?
if [ $res -ne 0 ] ; then
echo "$FPC call failed in $VERSION, res=$res"
cat ${filebase}${VERSION}_pas.comp.log
exit
fi
mv -f ${filebase} ${filebase}${VERSION}
./${filebase}${VERSION} > ${filebase}_pas${VERSION}.out
res=$?
if [ $res -ne 0 ] ; then
echo "./${filebase}${VERSION} call failed in $VERSION, res=$res"
exit
fi
diff ${filebase}_c${VERSION}.out ${filebase}_pas${VERSION}.out > ${filebase}${VERSION}.diffs
res=$?
if [ $res -eq 0 ] ; then
echo "No difference found!"
else
echo "Diffs for ${VERSION} are:"
echo "< C results"
echo "> Pascal results"
cat ${filebase}${VERSION}.diffs
fi
# Clean up
rm -f ${filebase}_c${VERSION}
rm -f ${filebase}${VERSION}
rm -f ${filebase}_c${VERSION}.out
rm -f ${filebase}_pas${VERSION}.out
rm -f ${filebase}${VERSION}_c.comp.log
rm -f ${filebase}${VERSION}_pas.comp.log
rm -f ${filebase}${VERSION}_make_all.log
rm -f ${filebase}.c
rm -f ${filebase}.pas
}
function check_64 ()
{
if [ "$FPC64" == "ppca64" ] ; then
CC_OPT="-Wall"
else
CC_OPT="-m64 -Wall"
fi
if [ $default_fpc -eq 1 ] ; then
FPC=$FPC64
if [ "$CPU_SOURCE" != "$CPU_TARGET" ] ; then
FPC_OPTS="$FPC_OPTS -XP${CPU_TARGET}-${OS_SOURCE}-"
fi
fi
check_one 64bit
}
function check_32 ()
{
if [ "$CPU_SOURCE" == "aarch64" ] ; then
CC=arm-linux-gnueabihf-gcc-4.8
export BINUTILSPREFIX=arm-linux-
fi
if [ "$FPC32" == "ppcarm" ] ; then
CC_OPT="-march=armv7-a -Wall"
else
CC_OPT="-m32 -Wall"
fi
FPC=$FPC32
if [ "$CPU_SOURCE" != "$CPU_TARGET" ] ; then
FPC_OPTS="$FPC_OPTS -XP${CPU_TARGET}-${OS_SOURCE}-"
fi
check_one 32bit
}
function check_gen32 ()
{
CC_OPT="-m32 -Wall"
check_one gen32bit
}
OS_SOURCE=`$FPC $FPC_OPTS -iSO`
CPU_SOURCE=`$FPC $FPC_OPTS -iSP`
CPU_TARGET=`$FPC $FPC_OPTS -iTP`
case $CPU_SOURCE in
arm|aarch64) FPC32=ppcarm; FPC64=ppca64;;
i386|x86_64) FPC32=ppc386; FPC64=ppcx64;;
powerpc|powerpc64) FPC32=ppcppc; FPC64=ppcppc64;;
sparc|sparc64) FPC32=ppcsparc; FPC64=ppcsparc64;;
m68k) FPC32=ppc68k; FPC64=;;
mips) FPC32=ppcmips; FPC64=;;
mipsel) FPC32=ppcmipsel; FPC64=;;
riscv32|riscv64) FPC32=ppcrv32; FPC64=ppcrv64;;
esac
# No i386<->x86_64 cross-compilation on OpeenBSD
if [ "$OS_SOURCE" == "openbsd" ] ; then
if [ "$CPU_SOURCE" == "i386" ] ; then
FPC64=
else
FPC32=
fi
fi
if [ $default_fpc -eq 1 ] ; then
if [ -n "$FPC64" ] ; then
check_64
fi
if [ -n "$FPC32" ] ; then
check_32
fi
else
if [ "${FPC}" == "$FPC64" ] ; then
check_64
fi
if [ "${FPC}" == "$FPC32" ] ; then
check_32
fi
fi