mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

Allow harness to #define

Browse source 
Copied from Perforce
 Change: 20168
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1998-10-07 11:46:06 +01:00
parent e837933d1f
commit 09ae930cef
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
mps/qa/test/script/compile
View file

@ -1,5 +1,5 @@
#!/usr/local/perl
# $HopeName: MMQA_harness!script:compile(trunk.21) $
# $HopeName: MMQA_harness!script:compile(trunk.22) $
#
# provides subroutines to compile or compile and link
# tests and test libraries.
@ -45,6 +45,8 @@ sub settings_nt {
$cc_link = "$obj_dir/platform.obj";
$cc_link_opts = "/link /NODEFAULTLIB:LIBCMT /debugtype:both /pdb:none /debug:full";
$cc_include = "/I$testlib_dir /I$MPS_INCLUDE_DIR";
$cc_def = "/D";
$cc_defeq = "=";
$cc_conly = "/c";
$cc_obj = "/Fo";
$cc_exe = "/Fe";
@ -80,6 +82,8 @@ sub settings_unix {
"-Wshadow -Wmissing-prototypes -Wcast-align ".
"-O -g -ggdb3 -DMMQA_VERS_$INTERFACE_VERSION";
$cc_include = "-I$testlib_dir -I$MPS_INCLUDE_DIR";
$cc_def = "-D";
$cc_defeq = "=";
$cc_conly = "-c";
$cc_obj = "-o ";
$cc_exe = "-o ";
@ -157,7 +161,7 @@ sub compile {
}
sub compile_and_link {
local($srcfile, $exefile, $linkfiles, $objfile) = @_;
local($srcfile, $exefile, $linkfiles, $objfile, $hashdefs) = @_;
&compiler_settings;
unless ($linkfiles) {$linkfiles =""};
@ -167,13 +171,19 @@ sub compile_and_link {
$linkfiles =~ s/\.o /$obj_suffix /g;
$objfile = "$obj_dir/tmp_obj$obj_suffix";
$hashdefs = "";
foreach (keys %parmdefs) {
$hashdefs .= $cc_def.$_.$cc_defeq.$parmdefs{$_}." ";
}
chop $hashdefs;
if ($cc_objandexe) {
$comobjfspec = "$cc_obj$objfile "
} else {
$comobjfspec = ""
}
$command = "$cc_command $cc_opts $comobjfspec$cc_exe$exefile ".
$command = "$cc_command $cc_opts $hashdefs $comobjfspec$cc_exe$exefile ".
"$srcfile $linkfiles $MPS_LINK_OBJ $cc_link $cc_include $cc_link_opts";
if (&mysystem($command)) {