development version newLISP v.8.5.10

[Lutz]

This is the last development release before the newLISP v.8.6.0 release due June 10th. It is a release candidate for newLISP 8.6.0. See the newLISP 8.6.0 release notes for a detail of all the changes and additions between 8.5.0 and 8.6.0.

for files and release notes see here: http://newlisp.org/downloads/development/

Lutz

[HPW]

Thanks for the win-timer!
But it is not mentioned in the release notes?

[Lutz]

Oops, thanks, find a corrected version here: http://newlisp.org/downloads/developmen ... Notes.html

Lutz

[pjot]

Compiles well on Tru64Unix 4.0f.

However, on Tru64Unix 5.1 still the compile warnings appear for (char **) and also the '(struct sockaddr *)&remote_sin, &remote_sin_len)' which is declared as a long in the 'socket.h' headerfile.

I know these warnings are of minor importance, still, just for curiosity's sake, do you want me to describe the locations where these warnings appear to make adjustments, or do you think it is OK to leave it like that?

Peter

[Lutz]

I changed one of the '(char **)0' to NULL, the one appearing the nl-web.c, what are the others giving warnings in tru64?

for the '(struct sockaddr *)&remote_sin, &remote_sin_len' in nl-sock just do whatever is required, probably declaring it as 'long emote_sin_len', which would not be accepted by the other compiles so theire would have to be an #ifdef tru64.

The important thing is send me the changes, so I know what/where to apply.

Lutz

[pjot]

Ah yes, I see now, indeed the nl-web.c generates no error anymore, thanks. Below the current compileprocess for newlisp 8.5.10 on Tru64Unix 5.1B. The result of the tests appear aligned in columns, this is not visible below.

(For Tru64Unix 4.0 there are no compilewarnings.)

cbcl01> make tru64
make -f makefile_tru64
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET newlisp.c
cc: Warning: newlisp.c, line 2439: In this statement, the referenced type of the pointer value "(char ...)0" is "short pointer to char", which is not compatible with "long pointer to char". (ptrmismatch)
newCell = stuffInteger((UINT)strtoul(token,(char **)0,0));
-----------------------------------------------------------^
cc: Warning: newlisp.c, line 2443: In this statement, the referenced type of the pointer value "(char ...)0" is "short pointer to char", which is not compatible with "long pointer to char". (ptrmismatch)
newCell = stuffInteger((UINT)strtol(token,(char **)0,0));
----------------------------------------------------------^
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-symbol.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-math.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-list.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-liststr.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-string.c
cc: Warning: nl-string.c, line 840: In this statement, the referenced type of the pointer value "(char ...)0" is "short pointer to char", which is not compatible with "long pointer to char". (ptrmismatch)
result = strtol(intString,(char **)0,(int)base);
--------------------------^
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-filesys.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-sock.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-import.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-xml.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-web.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-matrix.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET nl-debug.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET tru64.c
cc -ieee -xtaso -pedantic -c -O2 -DSOLARIS -DTRU64 -DNANOSLEEP -D_POSIX_PII_SOCKET pcre.c
cc newlisp.o nl-symbol.o nl-math.o nl-list.o nl-liststr.o nl-string.o nl-filesys.o nl-sock.o nl-import.o nl-xml.o nl-web.o nl-matrix.o nl-debug.o tru64.o pcre.o -taso -lm -lrt -ldb -lbsd -Lffi-tru64-5.1 -lffi -o newlisp
strip newlisp
cbcl01> ./newlisp qa_dot

Testing built-in functions ...

! != $ % &
* + - / <
<< <= = > >=
>> NaN? ^ abs acos
add address amb and append
apply args array array-list array?
asin assoc atan atan2 atom?
base64-dec base64-enc begin beta betai
binomial case catch ceil change-dir
char chop close command-line cond
cons constant context context? copy-file
cos count cpymem crit-chi2 crit-z
current-line date date-value debug dec
def-new define define-macro delete delete-file
device difference directory directory? div
do-until do-while dolist dotimes dotree
dump dup empty? encrypt ends-with
env error-event error-number error-text eval
eval-string exec exit exp expand
explode factor fft file-info file?
filter find first flat float
float? floor flt for fork
format fv gammai gammaln get-char
get-float get-int get-integer get-string get-url
global if ifft import inc
index int integer integer? intersect
invert irr join lambda? last
legal? length let letn list
list? load log lookup lower-case
macro? main-args make-dir map match
max member min mod mul
multiply name net-accept net-close net-connect
net-error net-listen net-local net-lookup net-peek
net-peer net-receive net-receive-from net-receive-udp net-select
net-send net-send-to net-send-udp net-service net-sessions
new normal not now nper
npv nth nth-set open or
pack parse pipe pmt pop
post-url pow pretty-print primitive? print
println prob-chi2 prob-z process push
put-url pv quote quote? rand
random read-buffer read-char read-file read-key
read-line ref regex
remove-dir rename-file replace replace-assoc reset
rest reverse rotate save search
seed seek select semaphore sequence
series set set! set-locale set-nth
setq share signal silent sin
sleep --- sleep duration: 1000 ---
slice sort source sqrt
starts-with string string? sub swap
sym symbol symbol? symbols sys-error
sys-info tan throw throw-error time
time-of-day timer trace trace-highlight transpose
trim unique unless unpack until
upper-case wait-pid while write-buffer write-char
write-file write-line xml-error xml-parse xml-type-tags
| ~

Testing contexts as objects and scoping rules ...


ALL FUNCTIONS FINISHED SUCCESSFULL

newLISP v.8.5.10 on Tru64Unix, execute 'newlisp -h' for more info.

> ring...


> (exit)

So the lines 2439 and 2442 of 'newlisp.c' can change to NULL, I suppose; also line 840 from 'nl-string.c'.

The file 'nl-sock' changed this (line 636-642):

Code: Select all

#ifdef WIN_32
int remote_sin_len;
#elif TRU64
unsigned long remote_sin_len;
#else
UINT remote_sin_len;
#endif

Peter

[Lutz]

Thanks Peter, I integrated everything into the next version

Lutz