picolisp

commit d4dfb5cf23f448f5f9c267afa227bbbc02898606
parent f2561dc6ac5e507e1422477738ac2e941eab0c0e
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 10 Jun 2011 13:49:02 +0200

Problem with maximal signal number (not portable). Use 'NSIG'
Diffstat:
M
CHANGES
 | 
1
+
M
ersatz/picolisp.jar
 | 
0

M
src/main.c
 | 
4
++--
M
src/pico.h
 | 
4
++--
M
src/vers.h
 | 
2
+-
M
src64/version.l
 | 
2
+-

6 files changed, 7 insertions(+), 6 deletions(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXjun11 picoLisp-3.0.7
+   Signal portability problems
    'dbSync' on arbitrary objects
    UB-Tree support in "lib/db.l"
    Renamed "ersatz/picolisp" to "ersatz/pil"
diff --git a/ersatz/picolisp.jar b/ersatz/picolisp.jar
Binary files differ.
diff --git a/src/main.c b/src/main.c
@@ -1,4 +1,4 @@
-/* 09mar11abu
+/* 10jun11abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -31,7 +31,7 @@ any Nil, DB, Meth, Quote, T;
 any Solo, PPid, Pid, At, At2, At3, This, Dbg, Zap, Ext, Scl, Class;
 any Run, Hup, Sig1, Sig2, Up, Err, Msg, Uni, Led, Tsm, Adr, Fork, Bye;
 bool Break;
-sig_atomic_t Signal[SIGIO+1];
+sig_atomic_t Signal[NSIG];
 
 static int TtyPid;
 static word2 USec;
diff --git a/src/pico.h b/src/pico.h
@@ -1,4 +1,4 @@
-/* 09mar11abu
+/* 10jun11abu
  * (c) Software Lab. Alexander Burger
  */
 
@@ -256,7 +256,7 @@ extern any Nil, DB, Meth, Quote, T;
 extern any Solo, PPid, Pid, At, At2, At3, This, Dbg, Zap, Ext, Scl, Class;
 extern any Run, Hup, Sig1, Sig2, Up, Err, Msg, Uni, Led, Tsm, Adr, Fork, Bye;
 extern bool Break;
-extern sig_atomic_t Signal[SIGIO+1];  // SIGIO is highest used signal number
+extern sig_atomic_t Signal[NSIG];
 
 /* Prototypes */
 void *alloc(void*,size_t);
diff --git a/src/vers.h b/src/vers.h
@@ -1 +1 @@
-static byte Version[4] = {3,0,6,16};
+static byte Version[4] = {3,0,6,17};
diff --git a/src64/version.l b/src64/version.l
@@ -1,6 +1,6 @@
 # 10jun11abu
 # (c) Software Lab. Alexander Burger
 
-(de *Version 3 0 6 16)
+(de *Version 3 0 6 17)
 
 # vi:et:ts=3:sw=3