[gcc r13-6347] Disable tower socket runtest

[gcc r13-6347] Disable tower socket runtest

[Gaius Mulley]

https://gcc.gnu.org/g:a553fc879f9229ffd8a5af65255f41605f885666

commit r13-6347-ga553fc879f9229ffd8a5af65255f41605f885666
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date:   Sat Feb 25 21:45:35 2023 +0000

    Disable tower socket runtest
    
    The projects-pim-run-pass-tower.exp test blocks indefinitely
    on some platforms.  This patch disables it for now - it should
    be enabled once a cross platform fix for RTint.mod is found.
    
    gcc/testsuite/ChangeLog:
    
            * gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
            (gm2_run_tower_test): New global variable.  Add conditional
            before invoking gm2-local-exec.
    
    Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>

Diff:
---
 .../projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp   | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp b/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
index 303672eb5f7..927dbc5da66 100644
--- a/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
+++ b/gcc/testsuite/gm2/projects/pim/run/pass/tower/projects-pim-run-pass-tower.exp
@@ -29,6 +29,7 @@ load_lib gm2-simple.exp
 gm2_init_cor "${srcdir}/${subdir}" -g
 gm2_link_obj "advflex.o AdvCmd.o AdvIntroduction.o AdvMap.o AdvMath.o AdvParse.o AdvSound.o AdvSystem.o AdvTreasure.o AdvUtil.o DrawG.o DrawL.o Lock.o ProcArgs.o Screen.o Window.o SocketControl.o"
 
+set gm2_run_tower_test 0
 
 proc gm2-local-exec { testcase execname mapfile } {
     global tool;
@@ -105,6 +106,11 @@ foreach testcase [lsort [glob -nocomplain $srcdir/$subdir/Dungeon.mod]] {
 
     global tmpdir;
     set executable $tmpdir/[file tail [file rootname $testcase].x];
-    gm2-local-exec ${testcase} ${executable} $srcdir/$subdir/star
+
+    if { ${gm2_run_tower_test} } then {
+        gm2-local-exec ${testcase} ${executable} $srcdir/$subdir/star
+    } else {
+	verbose "not running tower socket test" 1
+    }
     remote_file build delete ${executable};
 }