Merge branch 'master' of jsoftware.com:jsource

purge obsolete code, fix J32 compile errors

Author: HenryHRich

.github/workflows/jsource.yml

@@ -149,13 +149,13 @@ jobs:
       CC: clang
       USE_SLEEF: 1
       USE_OPENMP: 0
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/buildga.sh linux || exit 1
 
    - name: Test JE (Linux memaudit)
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/testga.sh linux || exit 1
       ls -l j64
@@ -343,13 +343,13 @@ jobs:
       CC: clang
       USE_SLEEF: 1
       USE_OPENMP: 0
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/buildga.sh darwin || exit 1
 
    - name: Test JE (macOS memaudit)
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/testga.sh darwin || exit 1
       cd j64
@@ -396,13 +396,13 @@ jobs:
       CC: clang
       USE_SLEEF: 1
       USE_OPENMP: 0
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/buildga.sh darwin || exit 1
 
    - name: Test JE (macOS arm64 memaudit)
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/testga.sh darwin || exit 1
       cd j64
@@ -590,13 +590,13 @@ jobs:
       CC: clang
       USE_SLEEF: 1
       USE_OPENMP: 0
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/buildga.sh raspberry arm64 || exit 1
 
    - name: Test JE (Linux arm64 memaudit)
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/testga.sh raspberry arm64 || exit 1
       cd j64
@@ -693,13 +693,13 @@ jobs:
       USE_SLEEF: 1
       USE_SLEEFQUAD: 1
       USE_OPENMP: 0
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/buildga.sh raspberry armv6l || exit 1
 
    - name: Test JE (Linux arm32 memaudit)
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/testga.sh raspberry armv6l || exit 1
       cd j32
@@ -1555,7 +1555,7 @@ jobs:
       CC: emcc
       USE_SLEEF: 1
       USE_OPENMP: 0
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script/buildga.sh wasm || exit 1
       script/testga.sh wasm || exit 1
@@ -1632,14 +1632,14 @@ jobs:
    - name: Build JE (Windows memaudit)
      shell: cmd
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script\buildga.cmd x64
 
    - name: Test JE (Windows memaudit)
      shell: cmd
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script\testga.cmd x64
 
@@ -1722,14 +1722,14 @@ jobs:
    - name: Build JE (Windows 32 memaudit)
      shell: cmd
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script\buildga.cmd x86
 
    - name: Test JE (Windows 32 memaudit)
      shell: cmd
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script\testga.cmd x86
 
@@ -1857,14 +1857,14 @@ jobs:
    - name: Build JE (Windows arm64 memaudit)
      shell: cmd
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script\buildga.cmd arm64
 
    - name: Test JE (Windows arm64 memaudit)
      shell: cmd
      env:
-      _MEMAUDIT: 127
+      _MEMAUDIT: 44
      run: |
       script\testga.cmd arm64
 

test/tsu.ijs

@@ -57,22 +57,27 @@ blacklist=: blacklist, IFIOS#(<testpath),each <'gipht.ijs'  NB. crash if include
 blacklist=: blacklist, (IFRASPI+.'OpenBSD'-:UNAME)#(<testpath),each <'g128x14.ijs'  NB. raspberry crash; OpenBSD fail
 
 NB. too slow
-blacklist=: blacklist, '' ] (0~:9!:56'MEMAUDIT')#(<testpath),each  <@(,&'.ijs');._2 [ 0 : 0
+blacklist=: blacklist, '' [ (0~:9!:56'MEMAUDIT')#(<testpath),each  <@(,&'.ijs');._2 [ 0 : 0
 g600ip
 gco1
 gco1u
 gco1w
 gibs
+gsco1
+gsco1u
+gsco1w
 gss
 gstack
+gtdot2
 )
 
 NB. crash
-blacklist=: blacklist, '' ] (0~:9!:56'MEMAUDIT')#(<testpath),each  <@(,&'.ijs');._2 [ 0 : 0
+blacklist=: blacklist, '' [ (0~:9!:56'MEMAUDIT')#(<testpath),each  <@(,&'.ijs');._2 [ 0 : 0
 g0
 g128x14
 g128x19
 g128x5
+g212
 g220t
 g131
 g300
@@ -81,6 +86,7 @@ g320ip
 g320ipt
 g321
 g322
+g331
 g3x02
 g421
 g421c
@@ -105,12 +111,17 @@ gmmf1w
 gnan
 gq
 gqco
+gtdot
+gtdot1
+gtdot3
+gtdot5
+gxco1
 )
 
 blacklist=: ~.blacklist
 
 ddall    =: testfiles 'g'
-3 : 0'' [ 'gq'          NB. skip until
+3 : 0'' [ 'gtdot5'          NB. skip until
 if. #y do.
   y=. '/',y,'.ijs'
   if. _1~: i=. {.!._1 I. (1 e. y&E.)&> ddall do. ddall=: i}.ddall end.