CRAZY HACK

gap-system · Jan 30, 2020 · eb4d0a2 · eb4d0a2
1 parent 33f1e5d
commit eb4d0a2
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/etc/ci.sh b/etc/ci.sh
@@ -182,16 +182,23 @@ GAPInput
         exit 1
     fi
 
+    echo "FOOBAR 1"
     if [[ -n ${NO_COVERAGE} ]]
     then
+        echo "FOOBAR 2"
         $GAP $SRCDIR/tst/${TEST_SUITE}.g
+        echo "FOOBAR 3"
     else
+        echo "FOOBAR 4"
         $GAP --cover $COVDIR/${TEST_SUITE}.coverage \
             <(echo 'SetUserPreference("ReproducibleBehaviour", true);') \
             $SRCDIR/tst/${TEST_SUITE}.g
+        echo "FOOBAR 5"
     fi
     ;;
   esac
 done
 
+echo "FOOBAR END ci.sh"
+
 exit 0
diff --git a/src/gap.c b/src/gap.c
@@ -52,6 +52,7 @@
 
 #include <gmp.h>
 
+#include <stdio.h>
 #include <unistd.h>
 
 #ifdef USE_JULIA_GC
@@ -1140,8 +1141,12 @@ static Obj FuncGAP_EXIT_CODE(Obj self, Obj code)
 **
 */
 
+static Obj FuncFORCE_QUIT_GAP(Obj self, Obj args);
 static Obj FuncQUIT_GAP(Obj self, Obj args)
 {
+FuncFORCE_QUIT_GAP(self, args); // HACK
+
+
   if ( LEN_LIST(args) == 0 ) {
     SystemErrorCode = 0;
   }
@@ -1162,6 +1167,7 @@ static Obj FuncQUIT_GAP(Obj self, Obj args)
 
 static Obj FuncFORCE_QUIT_GAP(Obj self, Obj args)
 {
+fprintf(stderr, "\n\n==== GOODBYE FOOBAR ====\n\n"); // HACK
   if ( LEN_LIST(args) == 0 )
   {
     SyExit(SystemErrorCode);