paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Also remove -m32 option for arm native GNU C compiler

Browse Source 
git-svn-id: trunk@42017 -
This commit is contained in:
pierre 2019-05-06 22:07:49 +00:00
parent fae45b2075
commit 0a3a35152d
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/unix/scripts/check_sys.sh
View File

@ -144,6 +144,8 @@ elif [ $is_32 -eq 1 ] ;then
fi
if [ "${FPC/ppcarm/}" != "$FPC" ] ; then
CC_OPT="$CC_OPT -march=armv7-a -Wall"
elif [ "${os_cpu/arm/}" != "$os_cpu" ] ; then
CC_OPT="$CC_OPT -march=armv6 -Wall"
else
CC_OPT="$CC_OPT -m32 -Wall"
fi
@ -215,14 +217,14 @@ cpubits= "cpu" cpubits;
}
/\{\\\$i / { incfile=\$2;
print "Include file " incfile " found"; }
/\{\\\$ifdef / { macro=gensub("[^A-Za-z_0-9].*","","",\$2);
/\{\\\$ifdef / { macro=gensub("[^A-Za-z_0-9].*","",1,\$2);
if ( (macro == cpu) || (macro == cpubits)) { enable=1;
print "// ifdef " macro " found and accepted at line " FNR;
} else {enable=0;
print "// ifdef " macro " found and rejected at line " FNR;
};
}
/\{\\\$ifndef / { macro=gensub("[^A-Za-z_0-9].*","","",\$2);
/\{\\\$ifndef / { macro=gensub("[^A-Za-z_0-9].*","",1,\$2);
if ( (macro == cpu) || (macro == cpubits) ) { enable=0;
print "// ifndef " macro " found and rejected at line " FNR;
} else {enable=1;
@ -234,14 +236,16 @@ cpubits= "cpu" cpubits;
wholeline=\$0;
code=gensub("{.*}","","g",\$0);
code=gensub("[(][*].*[*][)]","","g",code);
comments=gensub(code,"","",\$0);
# Special code to substitute = $HexaDecimal by = 0xHexaDEcimal
code=gensub("= *\\$","= 0x","g",code);
comments=gensub(code,"",1,\$0);
comments1=gensub(".*({.*}).*","\1","g",comments);
if (comments == comments1)
comments1="";
comments2=gensub(".*[(][*].*[*][)]).*","\1","g",comments);
if (comments == comments2)
comments2="";
comments3=gensub(".*//","","",comments);
comments3=gensub(".*//","",1,comments);
if (comments == comments3)
comments3="";
all_comments= comments1 comments2 comments3;
@ -314,6 +318,7 @@ function check_c_syscall_number_from_fpc_rtl ()
let forward_failure_count++
return
else
val=$CC_value
rm -f ./test_c_${bare_sys}
fi
rm -f ./test-${bare_sys}.comp-log