paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 03:46:10 +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 fi
if [ "${FPC/ppcarm/}" != "$FPC" ] ; then if [ "${FPC/ppcarm/}" != "$FPC" ] ; then
CC_OPT="$CC_OPT -march=armv7-a -Wall" CC_OPT="$CC_OPT -march=armv7-a -Wall"
elif [ "${os_cpu/arm/}" != "$os_cpu" ] ; then
CC_OPT="$CC_OPT -march=armv6 -Wall"
else else
CC_OPT="$CC_OPT -m32 -Wall" CC_OPT="$CC_OPT -m32 -Wall"
fi fi
@ -215,14 +217,14 @@ cpubits= "cpu" cpubits;
} }
/\{\\\$i / { incfile=\$2; /\{\\\$i / { incfile=\$2;
print "Include file " incfile " found"; } 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; if ( (macro == cpu) || (macro == cpubits)) { enable=1;
print "// ifdef " macro " found and accepted at line " FNR; print "// ifdef " macro " found and accepted at line " FNR;
} else {enable=0; } else {enable=0;
print "// ifdef " macro " found and rejected at line " FNR; 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; if ( (macro == cpu) || (macro == cpubits) ) { enable=0;
print "// ifndef " macro " found and rejected at line " FNR; print "// ifndef " macro " found and rejected at line " FNR;
} else {enable=1; } else {enable=1;
@ -234,14 +236,16 @@ cpubits= "cpu" cpubits;
wholeline=\$0; wholeline=\$0;
code=gensub("{.*}","","g",\$0); code=gensub("{.*}","","g",\$0);
code=gensub("[(][*].*[*][)]","","g",code); 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); comments1=gensub(".*({.*}).*","\1","g",comments);
if (comments == comments1) if (comments == comments1)
comments1=""; comments1="";
comments2=gensub(".*[(][*].*[*][)]).*","\1","g",comments); comments2=gensub(".*[(][*].*[*][)]).*","\1","g",comments);
if (comments == comments2) if (comments == comments2)
comments2=""; comments2="";
comments3=gensub(".*//","","",comments); comments3=gensub(".*//","",1,comments);
if (comments == comments3) if (comments == comments3)
comments3=""; comments3="";
all_comments= comments1 comments2 comments3; all_comments= comments1 comments2 comments3;
@ -314,6 +318,7 @@ function check_c_syscall_number_from_fpc_rtl ()
let forward_failure_count++ let forward_failure_count++
return return
else else
val=$CC_value
rm -f ./test_c_${bare_sys} rm -f ./test_c_${bare_sys}
fi fi
rm -f ./test-${bare_sys}.comp-log rm -f ./test-${bare_sys}.comp-log