=> Bootstrap dependency digest>=20211023: found digest-20211023 WARNING: [license.mk] Every package should define a LICENSE. ===> Skipping vulnerability checks. WARNING: No /usr/pkg/pkgdb/pkg-vulnerabilities file found. WARNING: To fix run: `/usr/sbin/pkg_admin -K /usr/pkg/pkgdb fetch-pkg-vulnerabilities'. ===> Building for scm-5.5.3nb2 echo "#ifndef IMPLINIT" > newflags.h echo "#define IMPLINIT \"Init5e3.scm\"" >> newflags.h echo "#endif" >> newflags.h echo "#define CHEAP_CONTINUATIONS" >> newflags.h echo "#define CAUTIOUS" >> newflags.h if (cmp -s newflags.h scmflags.h) then rm newflags.h; else mv newflags.h scmflags.h; fi gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include scm.c -o scm.o scm.c: In function 'process_signals': scm.c:197:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scm.c: In function 'err_signal': scm.c:280:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), ""); ^ scm.c: In function 'scmable_signal': scm.c:312:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include time.c -o time.o gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include repl.c -o repl.o In file included from repl.c:45:0: repl.c: In function 'wait_for_input': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ repl.c:513:5: note: in expansion of macro 'ASRTER' ASRTER(NIMP(port) && OPINPORTP(port) && (BUF0 & SCM_PORTFLAGS(port)), ^~~~~~ repl.c: In function 'handle_it': repl.c:1291:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ ^ repl.c: In function 'def_err_response': repl.c:2054:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); ^ repl.c:2057:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); ^ repl.c: In function 'everr': repl.c:2110:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] err_pos = pos; ^ repl.c:2111:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] err_s_subr = s_subr; ^ In file included from repl.c:45:0: repl.c:2116:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] COOKIE(1) : COOKIE((int)pos)); ^ scm.h:286:21: note: in definition of macro 'COOKIE' # define COOKIE(n) (n) ^ gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include scl.c -o scl.o gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include sys.c -o sys.o In file included from sys.c:46:0: sys.c: In function 'mark_locations': scm.h:302:39: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] #define NCELLP(x) ((sizeof(cell)-1) & (int)(x)) ^ scm.h:301:20: note: in expansion of macro 'NCELLP' #define CELLP(x) (!NCELLP(x)) ^~~~~~ sys.c:2624:22: note: in expansion of macro 'CELLP' while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { ^~~~~ gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include eval.c -o eval.o In file included from eval.c:45:0: eval.c: In function 'map': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ eval.c:3123:7: note: in expansion of macro 'ASRTER' ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map); ^~~~~~ eval.c: In function 'for_each': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ eval.c:3170:7: note: in expansion of macro 'ASRTER' ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each); ^~~~~~ gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include subr.c -o subr.o In file included from subr.c:46:0: subr.c: In function 'list_ref': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ subr.c:220:8: note: in expansion of macro 'ASRTER' erout: ASRTER(NIMP(lst) && CONSP(lst), ^~~~~~ gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include unif.c -o unif.o gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include rope.c -o rope.o rope.c: In function 'must_free_argv': rope.c:253:15: warning: passing argument 1 of 'must_free' discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] must_free(argv[i], 1+strlen(argv[i])); ^~~~ In file included from rope.c:45:0: scm.h:720:17: note: expected 'char *' but argument is of type 'const char * const' SCM_EXPORT void must_free P((char *obj, sizet len)); ^~~~~~~~~ gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include continue.c -o continue.o gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include findexec.c -o findexec.o gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include script.c -o script.o script.c: In function 'script_find_executable': script.c:143:7: warning: implicit declaration of function 'access'; did you mean 'acons'? [-Wimplicit-function-declaration] if (access(name, X_OK)) return 0L; ^~~~~~ acons script.c: In function 'find_impl_file': script.c:173:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] char *extptr = exec_path + strlen(exec_path); ^~~~~~~~~ script.c:189:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] extptr = exec_path + strlen(exec_path); ^ script.c: In function 'script_process_argv': script.c:386:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[0] = argv[0]; ^ script.c:401:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[nargi++] = argv[argi++]; ^ script.c:404:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] while (argi <= argc) nargv[nargi++] = argv[argi++]; ^ gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include debug.c -o debug.o gcc -c -O2 -DX11 -I/usr/X11R7/include -fPIC -D_FORTIFY_SOURCE=2 -I/usr/include/readline -I/usr/include scmmain.c -o scmmain.o scmmain.c: In function 'main': scmmain.c:133:32: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ ^ scmmain.c:143:16: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] script_arg = argv[2]; /* Save for scm_find_execpath() call */ ^ scmmain.c:144:31: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [-Wincompatible-pointer-types] nargc = script_count_argv(nargv); ^~~~~ In file included from scmmain.c:54:0: scm.h:1092:17: note: expected 'const char **' but argument is of type 'char **' SCM_EXPORT int script_count_argv P((const char **argv)); ^~~~~~~~~~~~~~~~~ scmmain.c:146:15: warning: assignment from incompatible pointer type [-Wincompatible-pointer-types] else {nargv = argv; nargc = argc;} ^ scmmain.c:148:39: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [-Wincompatible-pointer-types] execpath = scm_find_execpath(nargc, nargv, script_arg); ^~~~~ In file included from scmmain.c:54:0: scm.h:798:18: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); ^~~~~~~~~~~~~~~~~ scmmain.c:155:31: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [-Wincompatible-pointer-types] scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); ^~~~~ In file included from scmmain.c:54:0: scm.h:791:17: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, ^~~~~~~~~~~~~~~~~~ gcc -o scmlit scm.o time.o repl.o scl.o sys.o eval.o subr.o unif.o rope.o continue.o findexec.o script.o debug.o scmmain.o -lm ld: sys.o: in function `ltmpnam': sys.c:(.text+0x484): warning: warning: tmpnam() possibly used unsafely, use mkstemp() or mkdtemp() /usr/bin/make checklit ./scmlit -fr4rstest.scm -e'(test-sc4)(test-delay)(gc)' -e '(or (null? errs) (quit 1))' SECTION(2 1) SECTION(3 4) # # # # # # # # # (#t #f #f #f #f #f #f #f #f)#t (#t #f #f #f #f #f #f #f #f)#f (#f #t #f #f #f #f #f #f #f)#\a (#f #f #t #f #f #f #f #f #f)() (#f #f #f #t #f #f #f #f #f)9739 (#f #f #f #f #t #f #f #f #f)(test) (#f #f #f #f #f #t #f #f #f)# (#f #f #f #f #f #f #t #f #f)"test" (#f #f #f #f #f #f #t #f #f)"" (#f #f #f #f #f #f #f #t #f)test (#f #f #f #f #f #f #f #f #t)#() (#f #f #f #f #f #f #f #f #t)#(a b c) SECTION(4 1 2) (quote (quote a)) ==> (quote a) (quote (quote a)) ==> (quote a) SECTION(4 1 3) (# 3 4) ==> 12 SECTION(4 1 4) (# "r4rstest.scm": (x) (+ x x)> 4) ==> 8 (# 7 10) ==> 3 (# "r4rstest.scm": (y) (+ x y)> 6) ==> 10 (# "r4rstest.scm": x x> 3 4 5 6) ==> (3 4 5 6) (# "r4rstest.scm": (x y . z) z> 3 4 5 6) ==> (5 6) SECTION(4 1 5) (if yes) ==> yes (if no) ==> no (if 1) ==> 1 SECTION(4 1 6) (define 3) ==> 3 (set! 5) ==> 5 SECTION(4 2 1) (cond greater) ==> greater (cond equal) ==> equal (cond 2) ==> 2 (case composite) ==> composite (case consonant) ==> consonant (and #t) ==> #t (and #f) ==> #f (and (f g)) ==> (f g) (and #t) ==> #t (or #t) ==> #t (or #t) ==> #t (or #f) ==> #f (or #f) ==> #f (or (b c)) ==> (b c) SECTION(4 2 2) (let 6) ==> 6 (let 35) ==> 35 (let* 70) ==> 70 (letrec #t) ==> #t (let 5) ==> 5 (let 34) ==> 34 (let 6) ==> 6 (let 34) ==> 34 (let* 7) ==> 7 (let* 34) ==> 34 (let* 8) ==> 8 (let* 34) ==> 34 (letrec 9) ==> 9 (letrec 34) ==> 34 (letrec 10) ==> 10 (letrec 34) ==> 34 SECTION(4 2 3) (begin 6) ==> 6 SECTION(4 2 4) (do #(0 1 2 3 4)) ==> #(0 1 2 3 4) (do 25) ==> 25 (let 1) ==> 1 (let ((6 1 3) (-5 -2))) ==> ((6 1 3) (-5 -2)) (let -1) ==> -1 SECTION(4 2 6) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (list a (quote a))) ==> (list a (quote a)) (quasiquote (a 3 4 5 6 b)) ==> (a 3 4 5 6 b) (quasiquote ((foo 7) . cons)) ==> ((foo 7) . cons) (quasiquote #(10 5 2 4 3 8)) ==> #(10 5 2 4 3 8) (quasiquote 5) ==> 5 (quasiquote (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f)) ==> (a (quasiquote (b (unquote (+ 1 2)) (unquote (foo 4 d)) e)) f) (quasiquote (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e)) ==> (a (quasiquote (b (unquote x) (unquote (quote y)) d)) e) (quasiquote (list 3 4)) ==> (list 3 4) (quasiquote (quasiquote (list (unquote (+ 1 2)) 4))) ==> (quasiquote (list (unquote (+ 1 2)) 4)) SECTION(5 2 1) (tprint #t) ==> #t (define 6) ==> 6 (define 1) ==> 1 (# 6) ==> (3 6) (# 6) ==> 9 SECTION(5 2 2) (define 45) ==> 45 (#) ==> 5 (define 34) ==> 34 (#) ==> 5 (define 34) ==> 34 (# 88) ==> 88 (# 4) ==> 4 (define 34) ==> 34 (internal-define 99) ==> 99 (internal-define 77) ==> 77 SECTION(6 1) (# #t) ==> #f (# 3) ==> #f (# (3)) ==> #f (# #f) ==> #t (# ()) ==> #f (# ()) ==> #f (# nil) ==> #f SECTION(6 2) (# a a) ==> #t (# a b) ==> #f (# 2 2) ==> #t (# () ()) ==> #t (# 10000 10000) ==> #t (# (1 . 2) (1 . 2)) ==> #f (# # "r4rstest.scm": () 1> # "r4rstest.scm": () 2>) ==> #f (# #f nil) ==> #f (# # #) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #t (# # "r4rstest.scm": () (set! n (+ n 1)) n> # "r4rstest.scm": () (set! n (+ n 1)) n>) ==> #f (# # #) ==> #f (# a a) ==> #t (# (a) (a)) ==> #f (# () ()) ==> #t (# # #) ==> #t (# (a) (a)) ==> #t (# #() #()) ==> #t (# # #) ==> #t (# a a) ==> #t (# (a) (a)) ==> #t (# (a (b) c) (a (b) c)) ==> #t (# "abc" "abc") ==> #t (# 2 2) ==> #t (# #(a a a a a) #(a a a a a)) ==> #t SECTION(6 3) (dot (a b c d e)) ==> (a b c d e) (# (a b c)) ==> #t (set-cdr! (a . 4)) ==> (a . 4) (# (a . 4) (a . 4)) ==> #t (dot (a b c . d)) ==> (a b c . d) (# (a . 4)) ==> #f (list? #f) ==> #f (# a ()) ==> (a) (# (a) (b c d)) ==> ((a) b c d) (# "a" (b c)) ==> ("a" b c) (# a 3) ==> (a . 3) (# (a b) c) ==> ((a b) . c) (# (a b c)) ==> a (# ((a) b c d)) ==> (a) (# (1 . 2)) ==> 1 (# ((a) b c d)) ==> (b c d) (# (1 . 2)) ==> 2 (# a 7 c) ==> (a 7 c) (#) ==> () (# (a b c)) ==> 3 (# (a (b) (c d e))) ==> 3 (# ()) ==> 0 (# (x) (y)) ==> (x y) (# (a) (b c d)) ==> (a b c d) (# (a (b)) ((c))) ==> (a (b) (c)) (#) ==> () (# (a b) (c . d)) ==> (a b c . d) (# () a) ==> a (# (a b c)) ==> (c b a) (# (a (b c) d (e (f)))) ==> ((e (f)) d (b c) a) (# (a b c d) 2) ==> c (# a (a b c)) ==> (a b c) (# b (a b c)) ==> (b c) (# a (b c d)) ==> #f (# (a) (b (a) c)) ==> #f (# (a) (b (a) c)) ==> ((a) c) (# 101 (100 101 102)) ==> (101 102) (# a ((a 1) (b 2) (c 3))) ==> (a 1) (# b ((a 1) (b 2) (c 3))) ==> (b 2) (# d ((a 1) (b 2) (c 3))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> #f (# (a) (((a)) ((b)) ((c)))) ==> ((a)) (# 5 ((2 3) (5 7) (11 13))) ==> (5 7) SECTION(6 4) (# a) ==> #t (standard-case #t) ==> #t (standard-case #t) ==> #t (#string> flying-fish) ==> "flying-fish" (#string> martin) ==> "martin" (#string> \Malvina) ==> "Malvina" (standard-case #t) ==> #t (string-set! "cb") ==> "cb" (#string> ab) ==> "ab" (#symbol> "ab") ==> ab (# mississippi mississippi) ==> #t (string->symbol #f) ==> #f (#symbol> "jollywog") ==> jollywog SECTION(6 5 5) (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #t (# 3) ==> #f (# 0 0) ==> 1 (# 0 1) ==> 0 (# 0 256) ==> 0 (# -1 256) ==> 1 (# -1 255) ==> -1 (# -1 -256) ==> 1 (# -1 -255) ==> -1 (# 256 0) ==> 1 (# -256 0) ==> 1 (# 256 1) ==> 256 (# -256 1) ==> -256 (# 2 3) ==> 8 (# -2 3) ==> -8 (# 3 2) ==> 9 (# -3 2) ==> 9 (# 22 22 22) ==> #t (# 22 22) ==> #t (# 34 34 35) ==> #f (# 34 35) ==> #f (#> 3 -6246) ==> #t (#> 9 9 -2424) ==> #f (#=> 3 -4 -6246) ==> #t (#=> 9 9) ==> #t (#=> 8 9) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #f (# -1 2 3 4 5 6 7 8) ==> #t (# -1 2 3 4 4 5 6 7) ==> #t (# 1 3 2) ==> #f (#=> 1 3 2) ==> #f (# 0) ==> #t (# 1) ==> #f (# -1) ==> #f (# -100) ==> #f (# 4) ==> #t (# -4) ==> #f (# 0) ==> #f (# 4) ==> #f (# -4) ==> #t (# 0) ==> #f (# 3) ==> #t (# 2) ==> #f (# -4) ==> #f (# -1) ==> #t (# 3) ==> #f (# 2) ==> #t (# -4) ==> #t (# -1) ==> #f (# 34 5 7 38 6) ==> 38 (# 3 5 5 330 4 -24) ==> -24 (# 3 4) ==> 7 (# 3) ==> 3 (#) ==> 0 (# 4) ==> 4 (#) ==> 1 (# 3 4) ==> -1 (# 3) ==> -3 (# -7) ==> 7 (# 7) ==> 7 (# 0) ==> 0 (# 35 7) ==> 5 (# -35 7) ==> -5 (# 35 -7) ==> -5 (# -35 -7) ==> 5 (# 13 4) ==> 1 (# 13 4) ==> 1 (# -13 4) ==> 3 (# -13 4) ==> -1 (# 13 -4) ==> -3 (# 13 -4) ==> 1 (# -13 -4) ==> -1 (# -13 -4) ==> -1 (# 0 86400) ==> 0 (# 0 -86400) ==> 0 (# 238 9) ==> #t (# -238 9) ==> #t (# 238 -9) ==> #t (# -238 -9) ==> #t (# 0 4) ==> 4 (# -4 0) ==> 4 (# 32 -36) ==> 4 (#) ==> 0 (# 32 -36) ==> 288 (#) ==> 1 SECTION(6 5 5) (#number "r4rstest.scm": (str) (#@define ((ans (string->number str))) (cond ((not ans) #t) ((number? ans) #t) (else ans)))> "+#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#.#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "0/0-0/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "1/0-1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "-1/0+1/0i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#e") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#") ==> #t (#number "r4rstest.scm": (str) (#@define ((ans (#@string->number #@str))) (#@cond ((#@not #@ans) #t) ((number? ans) #t) (#t ans)))> "#i0/0") ==> #t SECTION(6 5 9) (#string> 0) ==> "0" (#string> 100) ==> "100" (#string> 256 16) ==> "100" (#number> "100") ==> 100 (#number> "100" 16) ==> 256 (#number> "") ==> #f (#number> ".") ==> #f (#number> "d") ==> #f (#number> "D") ==> #f (#number> "i") ==> #f (#number> "I") ==> #f (#number> "3i") ==> #f (#number> "3I") ==> #f (#number> "33i") ==> #f (#number> "33I") ==> #f (#number> "3.3i") ==> #f (#number> "3.3I") ==> #f (#number> "-") ==> #f (#number> "+") ==> #f (string->number #t) ==> #t (string->number #t) ==> #t SECTION(6 6) (# #\space #\space) ==> #t (# #\space #\space) ==> #t (# #\a) ==> #t (# #\() ==> #t (# #\space) ==> #t (# #\nl) ==> #t (# #\A #\B) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (# #\A #\B) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (# #\A #\B) ==> #f (# #\a #\B) ==> #f (# #\A #\b) ==> #f (# #\a #\b) ==> #f (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #f (# #\A #\a) ==> #f (#?> #\A #\B) ==> #f (#?> #\a #\B) ==> #f (#?> #\A #\b) ==> #f (#?> #\a #\b) ==> #f (#?> #\9 #\0) ==> #t (#?> #\A #\A) ==> #f (#?> #\A #\a) ==> #f (# #\A #\B) ==> #t (# #\a #\B) ==> #t (# #\A #\b) ==> #t (# #\a #\b) ==> #t (# #\9 #\0) ==> #f (# #\A #\A) ==> #t (# #\A #\a) ==> #t (#=?> #\A #\B) ==> #f (#=?> #\a #\B) ==> #f (#=?> #\A #\b) ==> #f (#=?> #\a #\b) ==> #f (#=?> #\9 #\0) ==> #t (#=?> #\A #\A) ==> #t (#=?> #\A #\a) ==> #t (# #\a) ==> #t (# #\A) ==> #t (# #\z) ==> #t (# #\Z) ==> #t (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #t (# #\9) ==> #t (# #\space) ==> #f (# #\;) ==> #f (# #\a) ==> #f (# #\A) ==> #f (# #\z) ==> #f (# #\Z) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #t (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (# #\0) ==> #f (# #\9) ==> #f (# #\space) ==> #f (# #\;) ==> #f (#char> 46) ==> #\. (#char> 65) ==> #\A (#char> 97) ==> #\a (# #\A) ==> #\A (# #\a) ==> #\A (# #\A) ==> #\a (# #\a) ==> #\a SECTION(6 7) (# "The word \"recursion\\\" has many meanings.") ==> #t (string-set! "?**") ==> "?**" (# #\a #\b #\c) ==> "abc" (#) ==> "" (# "abc") ==> 3 (# "abc" 0) ==> #\a (# "abc" 2) ==> #\c (# "") ==> 0 (# "ab" 0 0) ==> "" (# "ab" 1 1) ==> "" (# "ab" 2 2) ==> "" (# "ab" 0 1) ==> "a" (# "ab" 1 2) ==> "b" (# "ab" 0 2) ==> "ab" (# "foo" "bar") ==> "foobar" (# "foo") ==> "foo" (# "foo" "") ==> "foo" (# "" "foo") ==> "foo" (#) ==> "" (# 0) ==> "" (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "" "") ==> #t (# "" "") ==> #f (#?> "" "") ==> #f (# "" "") ==> #t (#=?> "" "") ==> #t (# "A" "B") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (#?> "A" "B") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (# "A" "B") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (# "A" "B") ==> #f (# "a" "B") ==> #f (# "A" "b") ==> #f (# "a" "b") ==> #f (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #f (# "A" "a") ==> #f (#?> "A" "B") ==> #f (#?> "a" "B") ==> #f (#?> "A" "b") ==> #f (#?> "a" "b") ==> #f (#?> "9" "0") ==> #t (#?> "A" "A") ==> #f (#?> "A" "a") ==> #f (# "A" "B") ==> #t (# "a" "B") ==> #t (# "A" "b") ==> #t (# "a" "b") ==> #t (# "9" "0") ==> #f (# "A" "A") ==> #t (# "A" "a") ==> #t (#=?> "A" "B") ==> #f (#=?> "a" "B") ==> #f (#=?> "A" "b") ==> #f (#=?> "a" "b") ==> #f (#=?> "9" "0") ==> #t (#=?> "A" "A") ==> #t (#=?> "A" "a") ==> #t SECTION(6 8) (# #(0 (2 2 2 2) "Anna")) ==> #t (# a b c) ==> #(a b c) (#) ==> #() (# #(0 (2 2 2 2) "Anna")) ==> 3 (# #()) ==> 0 (# #(1 1 2 3 5 8 13 21) 5) ==> 8 (vector-set #(0 ("Sue" "Sue") "Anna")) ==> #(0 ("Sue" "Sue") "Anna") (# 2 hi) ==> #(hi hi) (# 0) ==> #() (# 0 a) ==> #() SECTION(6 9) (# #) ==> #t (# # "r4rstest.scm": (x) (* x x)>) ==> #t (# (lambda (x) (* x x))) ==> #f (# #) ==> #t (# # (3 4)) ==> 7 (# # "r4rstest.scm": (a b) (+ a b)> (3 4)) ==> 7 (# # 10 (3 4)) ==> 17 (# # ()) ==> () (# "r4rstest.scm": args (f (apply g args))> 12 75) ==> 30 (# # ((a b) (d e) (g h))) ==> (b e h) (# # (1 2 3) (4 5 6)) ==> (5 7 9) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (1 2 3) (# # (1 2 3)) ==> (-1 -2 -3) (for-each #(0 1 4 9 16)) ==> #(0 1 4 9 16) (# # "r4rstest.scm": (exit) (for-each (lambda (x) (if (negative? x) (exit x))) (quote (54 0 37 -3 245 19))) #t>) ==> -3 (# (1 2 3 4)) ==> 4 (# (a b . c)) ==> #f (# # ()) ==> () SECTION(6 10 1) (# #) ==> #t (# #) ==> #t (# "r4rstest.scm" #) ==> #t (# #) ==> #t SECTION(6 10 2) (# #) ==> #\; (# #) ==> #\; (# #) ==> (define cur-section (quote ())) (# #) ==> #\( (# #) ==> (define errs (quote ())) SECTION(6 10 3) (# "tmp1" # "r4rstest.scm": (test-file) (write-char #\; test-file) (display #\; test-file) (display ";" test-file) (write write-test-obj test-file) (newline test-file) (write load-test-obj test-file) (output-port? test-file)>) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) (# #) ==> #t (# #) ==> #t (input-port? #t) ==> #t (# #) ==> #\; (# #) ==> #\; (# #) ==> #\; (# #) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) (# #) ==> (define foo (quote (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)))) Passed all tests To fully test continuations, Scheme 4, and DELAY/FORCE do: (test-cont) (test-sc4) (test-delay) ;testing scheme 4 functions; SECTION(6 7) (#list> "P l") ==> (#\P #\space #\l) (#list> "") ==> () (#string> (#\1 #\\ #\")) ==> "1\\\"" (#string> ()) ==> "" SECTION(6 8) (#list> #(dah dah didah)) ==> (dah dah didah) (#list> #()) ==> () (#vector> (dididit dah)) ==> #(dididit dah) (#vector> ()) ==> #() SECTION(6 10 4) (load (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c))) ==> (#t #f a () 9739 -3 . #((test) "te \" \" st" "" test #() b c)) Passed all tests ;testing DELAY and FORCE; SECTION(6 9) (delay 3) ==> 3 (delay (3 3)) ==> (3 3) (delay 2) ==> 2 (# # count x) count (force p)))>>) ==> 6 (# #) ==> 6 (force 3) ==> 3 Passed all tests echo "-F cautious bignums arrays inexact" >> libscm.opt echo "-F engineering-notation" >> libscm.opt echo "-F dynamic-linking" >> libscm.opt ./build -hsystem -t lib -f libscm.opt ; Scheme (unix) script created by SLIB/batch ; [-p netbsd] ; used options from: libscm.opt ; ================ Write file with C defines (delete-file "scmflags.h") (call-with-output-file "scmflags.h" (lambda (fp) (for-each (lambda (string) (write-line string fp)) '("#define IMPLINIT \"Init5e3.scm\"" "#define CAUTIOUS" "#define BIGNUMS" "#define ARRAYS" "#define FLOATS" "#define ENGNOT")))) ; ================ Compile C source files (system "cc -c dynl.c continue.c scm.c findexec.c script.c time.c repl.c scl.c eval.c sys.c subr.c debug.c unif.c rope.c") scm.c: In function 'process_signals': scm.c:197:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scm.c: In function 'err_signal': scm.c:280:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), ""); ^ scm.c: In function 'scmable_signal': scm.c:312:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ script.c: In function 'script_find_executable': script.c:143:7: warning: implicit declaration of function 'access'; did you mean 'acons'? [-Wimplicit-function-declaration] if (access(name, X_OK)) return 0L; ^~~~~~ acons script.c: In function 'find_impl_file': script.c:173:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] char *extptr = exec_path + strlen(exec_path); ^~~~~~~~~ script.c:189:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] extptr = exec_path + strlen(exec_path); ^ script.c: In function 'script_process_argv': script.c:386:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[0] = argv[0]; ^ script.c:401:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[nargi++] = argv[argi++]; ^ script.c:404:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] while (argi <= argc) nargv[nargi++] = argv[argi++]; ^ In file included from repl.c:45:0: repl.c: In function 'wait_for_input': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ repl.c:513:5: note: in expansion of macro 'ASRTER' ASRTER(NIMP(port) && OPINPORTP(port) && (BUF0 & SCM_PORTFLAGS(port)), ^~~~~~ repl.c: In function 'handle_it': repl.c:1291:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ ^ repl.c: In function 'def_err_response': repl.c:2054:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); ^ repl.c:2057:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); ^ repl.c: In function 'everr': repl.c:2110:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] err_pos = pos; ^ repl.c:2111:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] err_s_subr = s_subr; ^ In file included from repl.c:45:0: repl.c:2116:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] COOKIE(1) : COOKIE((int)pos)); ^ scm.h:286:21: note: in definition of macro 'COOKIE' # define COOKIE(n) (n) ^ scl.c: In function 'scm_bigdblcomp': scl.c:1071:12: warning: passing argument 2 of 'frexp' from incompatible pointer type [-Wincompatible-pointer-types] frexp(d, &dlen); ^ In file included from scl.c:49:0: /usr/include/math.h:226:8: note: expected 'int *' but argument is of type 'size_t * {aka long unsigned int *}' double frexp(double, int *); ^~~~~ In file included from eval.c:45:0: eval.c: In function 'map': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ eval.c:3123:7: note: in expansion of macro 'ASRTER' ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map); ^~~~~~ eval.c: In function 'for_each': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ eval.c:3170:7: note: in expansion of macro 'ASRTER' ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each); ^~~~~~ In file included from sys.c:46:0: sys.c: In function 'mark_locations': scm.h:302:39: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] #define NCELLP(x) ((sizeof(cell)-1) & (int)(x)) ^ scm.h:301:20: note: in expansion of macro 'NCELLP' #define CELLP(x) (!NCELLP(x)) ^~~~~~ sys.c:2624:22: note: in expansion of macro 'CELLP' while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { ^~~~~ In file included from subr.c:46:0: subr.c: In function 'list_ref': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ subr.c:220:8: note: in expansion of macro 'ASRTER' erout: ASRTER(NIMP(lst) && CONSP(lst), ^~~~~~ unif.c: In function 'aset': unif.c:1098:38: warning: implicit declaration of function 'num2char'; did you mean 'num2uchar'? [-Wimplicit-function-declaration] ((signed char *)VELTS(v))[pos] = num2char(obj, (char *)ARG2, s_aset); break; ^~~~~~~~ num2uchar rope.c: In function 'must_free_argv': rope.c:253:15: warning: passing argument 1 of 'must_free' discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] must_free(argv[i], 1+strlen(argv[i])); ^~~~ In file included from rope.c:45:0: scm.h:720:17: note: expected 'char *' but argument is of type 'const char * const' SCM_EXPORT void must_free P((char *obj, sizet len)); ^~~~~~~~~ ; ================ Link C object files (system "ar rc libscm.a dynl.o continue.o scm.o findexec.o script.o time.o repl.o scl.o eval.o sys.o subr.o debug.o unif.o rope.o") (system "ranlib libscm.a") cd /tmp/lang/scm/work/scm && env USETOOLS=no CC=gcc CFLAGS=-O2\ -DX11\ -I/usr/X11R7/include\ -fPIC\ -D_FORTIFY_SOURCE=2\ -I/usr/include/readline\ -I/usr/include CPPFLAGS=-I/usr/X11R7/include\ -I/usr/include/readline\ -I/usr/include CXX=c++ CXXFLAGS=-O2\ -DX11\ -I/usr/X11R7/include\ -fPIC\ -D_FORTIFY_SOURCE=2\ -I/usr/include/readline\ -I/usr/include COMPILER_RPATH_FLAG=-Wl,-R F77=gfortran FC=gfortran FFLAGS=-O LANG=C LC_ALL=C LC_COLLATE=C LC_CTYPE=C LC_MESSAGES=C LC_MONETARY=C LC_NUMERIC=C LC_TIME=C LDFLAGS=-Wl,-zrelro\ -L/usr/X11R7/lib\ -Wl,-R/usr/X11R7/lib\ -L/usr/lib\ -Wl,-R/usr/lib\ -Wl,-R/usr/pkg/lib LINKER_RPATH_FLAG=-R PATH=/tmp/lang/scm/work/.cwrapper/bin:/tmp/lang/scm/work/.buildlink/bin:/tmp/lang/scm/work/.gcc/bin:/tmp/lang/scm/work/.tools/bin:/usr/pkg/bin:/usr/bin:/bin:/usr/pkg/bin:/usr/local/bin:/usr/pkg/bin:/usr/X11R7/bin PREFIX=/usr/pkg MAKELEVEL=0 CONFIG_SITE= PKG_SYSCONFDIR=/usr/pkg/etc CXXCPP=cpp HOME=/tmp/lang/scm/work/.home CWRAPPERS_CONFIG_DIR=/tmp/lang/scm/work/.cwrapper/config CPP=cpp LOCALBASE=/usr/pkg X11BASE=/usr/X11R7 PKGMANDIR=man PKGINFODIR=info PKGGNUDIR=gnu/ MAKECONF=/dev/null OBJECT_FMT=ELF USETOOLS=no BSD_INSTALL_PROGRAM=/usr/bin/install\ -c\ -s\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_SCRIPT=/usr/bin/install\ -c\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_LIB=/usr/bin/install\ -c\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_DATA=/usr/bin/install\ -c\ -o\ pbulk\ -g\ wheel\ -m\ 644 BSD_INSTALL_MAN=/usr/bin/install\ -c\ -o\ pbulk\ -g\ wheel\ -m\ 644 BSD_INSTALL=/usr/bin/install BSD_INSTALL_PROGRAM_DIR=/usr/bin/install\ -d\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_SCRIPT_DIR=/usr/bin/install\ -d\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_LIB_DIR=/usr/bin/install\ -d\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_DATA_DIR=/usr/bin/install\ -d\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_MAN_DIR=/usr/bin/install\ -d\ -o\ pbulk\ -g\ wheel\ -m\ 755 BSD_INSTALL_GAME=/usr/bin/install\ -c\ -s\ -o\ pbulk\ -g\ wheel\ -m\ 2555 BSD_INSTALL_GAME_DATA=/usr/bin/install\ -c\ -o\ pbulk\ -g\ wheel\ -m\ 664 BSD_INSTALL_GAME_DIR=/usr/bin/install\ -d\ -o\ pbulk\ -g\ wheel\ -m\ 775 INSTALL_INFO=/tmp/lang/scm/work/.tools/bin/install-info MAKEINFO=/tmp/lang/scm/work/.tools/bin/makeinfo FLEX= BISON= ITSTOOL=/tmp/lang/scm/work/.tools/bin/itstool GDBUS_CODEGEN=/tmp/lang/scm/work/.tools/bin/gdbus-codegen PKG_CONFIG= PKG_CONFIG_LIBDIR=/tmp/lang/scm/work/.buildlink/lib/pkgconfig:/tmp/lang/scm/work/.buildlink/share/pkgconfig PKG_CONFIG_LOG=/tmp/lang/scm/work/.pkg-config.log PKG_CONFIG_PATH= CWRAPPERS_CONFIG_DIR=/tmp/lang/scm/work/.cwrapper/config LIBS=-L/usr/X11R7/lib\ -lX11\ SRCS=sc2.c\ ramap.c\ dynl.c\ edline.c\ gsubr.c\ ioext.c\ posix.c\ record.c\ rgx.c\ socket.c\ unix.c\ continue.c\ scm.c\ scmmain.c\ findexec.c\ script.c\ time.c\ repl.c\ scl.c\ eval.c\ sys.c\ subr.c\ debug.c\ unif.c\ rope.c\ unexelf.c\ x.c OBJS=sc2.o\ ramap.o\ dynl.o\ edline.o\ gsubr.o\ ioext.o\ posix.o\ record.o\ rgx.o\ socket.o\ unix.o\ continue.o\ scm.o\ scmmain.o\ findexec.o\ script.o\ time.o\ repl.o\ scl.o\ eval.o\ sys.o\ subr.o\ debug.o\ unif.o\ rope.o\ unexelf.o\ x.o /bin/sh ./buildscm.sh gsubr.c: In function 'gsubr_apply': gsubr.c:128:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ In file included from scm.h:80:0, from ioext.c:45: ioext.c: In function 'reopen_file': ioext.c:257:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(f = freopen(CHARS(filename), cmodes, STREAM(port))); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ ioext.c: In function 'l_dup': ioext.c:290:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(tfd = dup(fileno(STREAM(oldpt)))); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ ioext.c: In function 'l_dup2': ioext.c:319:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(ans = dup2(oldfd, newfd)); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ ioext.c: In function 'l_opendir': ioext.c:341:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(ds = opendir(CHARS(dirname))); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ ioext.c: In function 'scm_try_create_file': ioext.c:869:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(fd = open(CHARS(fname), fdflags, cperms)); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ In file included from scm.h:80:0, from posix.c:45: posix.c: In function 'l_pipe': posix.c:109:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(f_wt = fdopen(fd[1], "w")); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ posix.c: In function 'open_pipe': posix.c:134:15: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(f = popen(CHARS(pipestr), CHARS(modes))); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ posix.c: In function 'l_grinfo': posix.c:218:28: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] ve[ 3] = makfromstrs(-1, entry->gr_mem); ^~~~~ In file included from posix.c:45:0: scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ^~~~~~~~~~~ rgx.c:57:13: warning: 'rcsid' defined but not used [-Wunused-variable] static char rcsid[] = ^~~~~ socket.c: In function 'l_hostinfo': socket.c:171:28: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->h_aliases); ^~~~~ In file included from socket.c:48:0: scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ^~~~~~~~~~~ socket.c:176:12: warning: assignment from incompatible pointer type [-Wincompatible-pointer-types] for(argv = entry->h_addr_list; argv[i]; i++); ^ socket.c: In function 'l_netinfo': socket.c:208:28: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->n_aliases); ^~~~~ In file included from socket.c:48:0: scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ^~~~~~~~~~~ socket.c: In function 'l_protoinfo': socket.c:238:28: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->p_aliases); ^~~~~ In file included from socket.c:48:0: scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ^~~~~~~~~~~ socket.c: In function 'l_servinfo': socket.c:271:28: warning: passing argument 2 of 'makfromstrs' from incompatible pointer type [-Wincompatible-pointer-types] ve[ 1] = makfromstrs(-1, entry->s_aliases); ^~~~~ In file included from socket.c:48:0: scm.h:1049:17: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT SCM makfromstrs P((int argc, const char * const *argv)); ^~~~~~~~~~~ In file included from scm.h:80:0, from socket.c:48: socket.c: In function 'l_socketpair': socket.c:357:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(f[0] = fdopen(sv[0], "r+")); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ socket.c:362:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(f[1] = fdopen(sv[1], "r+")); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ socket.c: In function 'l_accept': socket.c:505:56: warning: pointer targets in passing argument 3 of 'accept' differ in signedness [-Wpointer-sign] SYSCALL(newsd = accept(fileno(STREAM(sockpt)), &sad, &sadlen);); ^ scmfig.h:800:37: note: in definition of macro 'SYSCALL' # define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno)) ^~~~ In file included from socket.c:56:0: /usr/include/sys/socket.h:620:5: note: expected '__socklen_t * restrict {aka unsigned int * restrict}' but argument is of type 'int *' int accept(int, struct sockaddr * __restrict, socklen_t * __restrict); ^~~~~~ In file included from scm.h:80:0, from socket.c:48: socket.c:514:16: warning: suggest parentheses around assignment used as truth value [-Wparentheses] SCM_OPENCALL(newfd = fdopen(newsd, "r+")); ^ scmfig.h:814:36: note: in definition of macro 'SCM_OPENCALL' while (!0) {errno = 0; if (line) break;\ ^~~~ socket.c: In function 'l_getpeername': socket.c:614:32: warning: pointer targets in passing argument 3 of 'getpeername' differ in signedness [-Wpointer-sign] (struct sockaddr*)&sad, &sadlen);); ^ scmfig.h:800:37: note: in definition of macro 'SYSCALL' # define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno)) ^~~~ In file included from socket.c:56:0: /usr/include/sys/socket.h:624:5: note: expected '__socklen_t * restrict {aka unsigned int * restrict}' but argument is of type 'int *' int getpeername(int, struct sockaddr * __restrict, socklen_t * __restrict); ^~~~~~~~~~~ In file included from scm.h:80:0, from socket.c:48: socket.c: In function 'l_getsockname': socket.c:628:32: warning: pointer targets in passing argument 3 of 'getsockname' differ in signedness [-Wpointer-sign] (struct sockaddr*)&sad, &sadlen);); ^ scmfig.h:800:37: note: in definition of macro 'SYSCALL' # define SYSCALL(line) do{errno = 0;line}while(SCM_INTERRUPTED(errno)) ^~~~ In file included from socket.c:56:0: /usr/include/sys/socket.h:625:5: note: expected '__socklen_t * restrict {aka unsigned int * restrict}' but argument is of type 'int *' int getsockname(int, struct sockaddr * __restrict, socklen_t * __restrict); ^~~~~~~~~~~ In file included from scmfig.h:95:0, from scm.h:80, from scm.c:50: scm.c: In function 'scm_init_INITS': scmflags.h:2:117: warning: implicit declaration of function 'init_unix'; did you mean 'init_unif'? [-Wimplicit-function-declaration] #define INITS init_sc2();init_ramap();init_gsubr();init_ioext();init_posix();init_record();init_rgx();init_socket();init_unix(); ^ scm.c:125:5: note: in expansion of macro 'INITS' INITS; /* call initialization of extension files */ ^~~~~ In file included from scmfig.h:95:0, from scm.h:80, from scm.c:50: scm.c: In function 'scm_init_extensions': scmflags.h:3:39: warning: implicit declaration of function 'init_x'; did you mean 'init_rgx'? [-Wimplicit-function-declaration] #define COMPILED_INITS init_edline(); init_x(); ^ scm.c:134:3: note: in expansion of macro 'COMPILED_INITS' COMPILED_INITS; /* initialize statically linked add-ons */ ^~~~~~~~~~~~~~ scm.c: In function 'process_signals': scm.c:197:17: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scm.c: In function 'err_signal': scm.c:280:41: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(MAKINUM(sig), (i < 0 ? s_unksig : (char *)(i + SIGNAL_BASE)), ""); ^ scm.c: In function 'scmable_signal': scm.c:312:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); ^ scmmain.c: In function 'main': scmmain.c:133:32: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] if (0==argc) {argc = 1; argv = generic_name;} /* for macintosh */ ^ scmmain.c:143:16: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] script_arg = argv[2]; /* Save for scm_find_execpath() call */ ^ scmmain.c:144:31: warning: passing argument 1 of 'script_count_argv' from incompatible pointer type [-Wincompatible-pointer-types] nargc = script_count_argv(nargv); ^~~~~ In file included from scmmain.c:54:0: scm.h:1092:17: note: expected 'const char **' but argument is of type 'char **' SCM_EXPORT int script_count_argv P((const char **argv)); ^~~~~~~~~~~~~~~~~ scmmain.c:146:15: warning: assignment from incompatible pointer type [-Wincompatible-pointer-types] else {nargv = argv; nargc = argc;} ^ scmmain.c:148:39: warning: passing argument 2 of 'scm_find_execpath' from incompatible pointer type [-Wincompatible-pointer-types] execpath = scm_find_execpath(nargc, nargv, script_arg); ^~~~~ In file included from scmmain.c:54:0: scm.h:798:18: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT char *scm_find_execpath P((int argc, const char * const *argv, const char *script_arg)); ^~~~~~~~~~~~~~~~~ scmmain.c:155:31: warning: passing argument 2 of 'scm_init_from_argv' from incompatible pointer type [-Wincompatible-pointer-types] scm_init_from_argv(nargc, nargv, script_arg, iverbose, buf0stdin); ^~~~~ In file included from scmmain.c:54:0: scm.h:791:17: note: expected 'const char * const*' but argument is of type 'char **' SCM_EXPORT void scm_init_from_argv P((int argc, const char * const *argv, char *script_arg, ^~~~~~~~~~~~~~~~~~ script.c: In function 'script_find_executable': script.c:143:7: warning: implicit declaration of function 'access'; did you mean 'acons'? [-Wimplicit-function-declaration] if (access(name, X_OK)) return 0L; ^~~~~~ acons script.c: In function 'find_impl_file': script.c:173:18: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] char *extptr = exec_path + strlen(exec_path); ^~~~~~~~~ script.c:189:10: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] extptr = exec_path + strlen(exec_path); ^ script.c: In function 'script_process_argv': script.c:386:12: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[0] = argv[0]; ^ script.c:396:17: warning: this 'while' clause does not guard... [-Wmisleading-indentation] found_args: while ((narg = script_read_arg(f))) ^~~~~ script.c:400:7: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the 'while' fclose(f); ^~~~~~ script.c:401:22: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] nargv[nargi++] = argv[argi++]; ^ script.c:404:39: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] while (argi <= argc) nargv[nargi++] = argv[argi++]; ^ In file included from repl.c:45:0: repl.c: In function 'wait_for_input': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ repl.c:513:5: note: in expansion of macro 'ASRTER' ASRTER(NIMP(port) && OPINPORTP(port) && (BUF0 & SCM_PORTFLAGS(port)), ^~~~~~ repl.c: In function 'handle_it': repl.c:1291:20: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] wta(UNDEFINED, (char *)i, ""); /* sends it to def_err_response */ ^ In file included from repl.c:45:0: repl.c: In function 'scm_top_level': scm.h:200:21: warning: passing argument 2 of 'igc' makes pointer from integer without a cast [-Wint-conversion] #define MAKIFLAG(n) (((n)<<9)+0x174L) ^ scm.h:271:16: note: in expansion of macro 'MAKIFLAG' #define BOOL_F MAKIFLAG(NUM_ISYMS+0) ^~~~~~~~ repl.c:1451:19: note: in expansion of macro 'BOOL_F' igc(s_unexec, BOOL_F); ^~~~~~ repl.c:47:6: note: expected 'SCM * {aka long int *}' but argument is of type 'long int' void igc P((const char *what, SCM rootcont)); ^~~ repl.c: In function 'def_err_response': repl.c:2054:47: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] lputc((long)err_pos <= ARGn ? ' ' : '1' + (int)err_pos - ARG1, cur_errp); ^ repl.c:2057:23: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] else lputs(errmsgs[((int)err_pos)-WNA].msg, cur_errp); ^ repl.c: In function 'everr': repl.c:2110:11: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] err_pos = pos; ^ repl.c:2111:14: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] err_s_subr = s_subr; ^ In file included from repl.c:45:0: repl.c:2116:24: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] COOKIE(1) : COOKIE((int)pos)); ^ scm.h:286:21: note: in definition of macro 'COOKIE' # define COOKIE(n) (n) ^ scl.c: In function 'scm_bigdblcomp': scl.c:1071:12: warning: passing argument 2 of 'frexp' from incompatible pointer type [-Wincompatible-pointer-types] frexp(d, &dlen); ^ In file included from scl.c:49:0: /usr/include/math.h:226:8: note: expected 'int *' but argument is of type 'size_t * {aka long unsigned int *}' double frexp(double, int *); ^~~~~ scl.c: In function 'scm_intexpt': scl.c:2177:10: warning: suggest explicit braces to avoid ambiguous 'else' [-Wdangling-else] if (0==iz1) ^ scl.c: In function 'ex2in': scl.c:2455:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ At top level: scl.c:2917:13: warning: 'safe_add_1' defined but not used [-Wunused-function] static void safe_add_1(f, fsum) ^~~~~~~~~~ In file included from eval.c:45:0: eval.c: In function 'map': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ eval.c:3123:7: note: in expansion of macro 'ASRTER' ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_map); ^~~~~~ eval.c: In function 'for_each': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ eval.c:3170:7: note: in expansion of macro 'ASRTER' ASRTER(CONSP(ve[i]), ve[i], 0==i ? ARG2 : ARGn, s_for_each); ^~~~~~ eval.c: In function 'lookupcar': eval.c:540:8: warning: 'pv' may be used uninitialized in this function [-Wmaybe-uninitialized] SCM *pv, val, var = CAR(vloc), env = STATIC_ENV; ^~ eval.c: In function 'scm_multi_set': eval.c:672:10: warning: 'loc' may be used uninitialized in this function [-Wmaybe-uninitialized] *loc = CAR(vals); eval.c: In function 'varcheck': eval.c:1192:15: warning: 'v1' may be used uninitialized in this function [-Wmaybe-uninitialized] badvar: scm_experr(v1, what, opstr); ^~~~~~~~~~~~~~~~~~~~~~~~~~~ sys.c: In function 'scm_make_cont': sys.c:1645:9: warning: variable 'n' set but not used [-Wunused-but-set-variable] sizet n; ^ In file included from sys.c:46:0: sys.c: In function 'mark_locations': scm.h:302:39: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] #define NCELLP(x) ((sizeof(cell)-1) & (int)(x)) ^ scm.h:301:20: note: in expansion of macro 'NCELLP' #define CELLP(x) (!NCELLP(x)) ^~~~~~ sys.c:2624:22: note: in expansion of macro 'CELLP' while(0 <= --m) if (CELLP(*(SCM **)&x[m])) { ^~~~~ sys.c: In function 'sym2vcell': sys.c:1398:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ In file included from subr.c:46:0: subr.c: In function 'list_ref': scm.h:1123:85: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] # define ASRTER(_cond, _arg, _pos, _subr) if (SCM_EXPECT_FALSE(!(_cond))) wta(_arg, (char *)(_pos), _subr); ^ subr.c:220:8: note: in expansion of macro 'ASRTER' erout: ASRTER(NIMP(lst) && CONSP(lst), ^~~~~~ subr.c: In function 'lgcd': subr.c:504:5: warning: this 'if' clause does not guard... [-Wmisleading-indentation] if (INUM0==y) return x; goto swaprec; ^~ subr.c:504:29: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the 'if' if (INUM0==y) return x; goto swaprec; ^~~~ subr.c: In function 'normbig': subr.c:1800:3: warning: this 'while' clause does not guard... [-Wmisleading-indentation] while (nlen-- && !zds[nlen]); nlen++; ^~~~~ subr.c:1800:33: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the 'while' while (nlen-- && !zds[nlen]); nlen++; ^~~~ subr.c: In function 'divbigbig': subr.c:2076:5: warning: this 'for' clause does not guard... [-Wmisleading-indentation] for(j = ny;j && !zds[j-1];--j) ; if (j) return 0; ^~~ subr.c:2076:38: note: ...this statement, but the latter is misleadingly indented as if it were guarded by the 'for' for(j = ny;j && !zds[j-1];--j) ; if (j) return 0; ^~ unif.c: In function 'aset': unif.c:1098:38: warning: implicit declaration of function 'num2char'; did you mean 'num2uchar'? [-Wimplicit-function-declaration] ((signed char *)VELTS(v))[pos] = num2char(obj, (char *)ARG2, s_aset); break; ^~~~~~~~ num2uchar unif.c: In function 'list2ura': unif.c:1760:25: warning: value computed is not used [-Wunused-value] for (; k--; NIMP(row) && (row = CAR(row))) { ^~ unif.c: In function 'array_inbp': unif.c:816:7: warning: 'v' may be used uninitialized in this function [-Wmaybe-uninitialized] SCM v, ind = EOL; ^ unif.c: In function 'resizuve': unif.c:72:8: warning: 'ol' may be used uninitialized in this function [-Wmaybe-uninitialized] long ol, l = INUM(len); ^~ In file included from scm.h:80:0, from unif.c:57: unif.c: In function 'aset': scmfig.h:587:26: warning: 'pos' may be used uninitialized in this function [-Wmaybe-uninitialized] # define MAKINUM(x) (((x)<<2)+2L) ^~ unif.c:1061:8: note: 'pos' was declared here long pos; ^~~ In file included from scm.h:80:0, from unif.c:57: unif.c: In function 'aref': scmfig.h:587:26: warning: 'pos' may be used uninitialized in this function [-Wmaybe-uninitialized] # define MAKINUM(x) (((x)<<2)+2L) ^~ unif.c:858:8: note: 'pos' was declared here long pos; ^~~ rope.c: In function 'must_free_argv': rope.c:253:15: warning: passing argument 1 of 'must_free' discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] must_free(argv[i], 1+strlen(argv[i])); ^~~~ In file included from rope.c:45:0: scm.h:720:17: note: expected 'char *' but argument is of type 'const char * const' SCM_EXPORT void must_free P((char *obj, sizet len)); ^~~~~~~~~ rope.c: In function 'num2ulong': rope.c:129:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ rope.c: In function 'num2long': rope.c:161:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ rope.c: In function 'num2short': rope.c:170:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ rope.c: In function 'num2char': rope.c:179:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ rope.c: In function 'num2dbl': rope.c:193:1: warning: control reaches end of non-void function [-Wreturn-type] } ^ unexelf.c: In function 'find_section': unexelf.c:411:51: warning: implicit declaration of function 'exit' [-Wimplicit-function-declaration] #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:639:2: note: in expansion of macro 'fatal' fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:639:2: note: in expansion of macro 'fatal' fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:639:2: note: in expansion of macro 'fatal' fatal ("Can't find %s in %s.\n", name, file_name); ^~~~~ unexelf.c: In function 'unexec': unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:697:5: note: in expansion of macro 'fatal' fatal ("Can't open %s for reading: errno %d\n", old_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:697:5: note: in expansion of macro 'fatal' fatal ("Can't open %s for reading: errno %d\n", old_name, errno); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:700:5: note: in expansion of macro 'fatal' fatal ("Can't fstat (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:700:5: note: in expansion of macro 'fatal' fatal ("Can't fstat (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:716:12: warning: too many arguments for format [-Wformat-extra-args] fatal ("Can't allocate buffer for %s\n", old_name, 0); ^ unexelf.c:411:41: note: in definition of macro 'fatal' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:716:5: note: in expansion of macro 'fatal' fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:716:5: note: in expansion of macro 'fatal' fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:719:5: note: in expansion of macro 'fatal' fatal ("Didn't read all of %s: errno %d\n", old_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:719:5: note: in expansion of macro 'fatal' fatal ("Didn't read all of %s: errno %d\n", old_name, errno); ^~~~~ unexelf.c:767:18: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] new_bss_addr = (ElfW(Addr)) sbrk (0); ^ unexelf.c:787:12: warning: too many arguments for format [-Wformat-extra-args] fatal (".bss shrank when undumping???\n", 0, 0); ^ unexelf.c:411:41: note: in definition of macro 'fatal' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:787:5: note: in expansion of macro 'fatal' fatal (".bss shrank when undumping???\n", 0, 0); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:787:5: note: in expansion of macro 'fatal' fatal (".bss shrank when undumping???\n", 0, 0); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:795:5: note: in expansion of macro 'fatal' fatal ("Can't creat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:795:5: note: in expansion of macro 'fatal' fatal ("Can't creat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:800:5: note: in expansion of macro 'fatal' fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:800:5: note: in expansion of macro 'fatal' fatal ("Can't ftruncate (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:805:12: warning: too many arguments for format [-Wformat-extra-args] fatal ("Can't allocate buffer for %s\n", old_name, 0); ^ unexelf.c:411:41: note: in definition of macro 'fatal' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:805:5: note: in expansion of macro 'fatal' fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:805:5: note: in expansion of macro 'fatal' fatal ("Can't allocate buffer for %s\n", old_name, 0); ^~~~~ unexelf.c:860:11: warning: too many arguments for format [-Wformat-extra-args] fatal ("Program segment above .bss in %s\n", old_name, 0); ^ unexelf.c:411:41: note: in definition of macro 'fatal' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:860:4: note: in expansion of macro 'fatal' fatal ("Program segment above .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:860:4: note: in expansion of macro 'fatal' fatal ("Program segment above .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:870:12: warning: too many arguments for format [-Wformat-extra-args] fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); ^ unexelf.c:411:41: note: in definition of macro 'fatal' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:870:5: note: in expansion of macro 'fatal' fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:870:5: note: in expansion of macro 'fatal' fatal ("Couldn't find segment next to .bss in %s\n", old_name, 0); ^~~~~ unexelf.c:900:12: warning: too many arguments for format [-Wformat-extra-args] fatal ("Can't find .data in %s.\n", old_name, 0); ^ unexelf.c:411:41: note: in definition of macro 'fatal' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:900:5: note: in expansion of macro 'fatal' fatal ("Can't find .data in %s.\n", old_name, 0); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:900:5: note: in expansion of macro 'fatal' fatal ("Can't find .data in %s.\n", old_name, 0); ^~~~~ In file included from /usr/include/string.h:127:0, from unexelf.c:412: unexelf.c:926:5: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] (caddr_t) OLD_SECTION_H (n).sh_addr, ^ unexelf.c:926:5: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] (caddr_t) OLD_SECTION_H (n).sh_addr, ^ unexelf.c:1049:8: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] src = (caddr_t) OLD_SECTION_H (n).sh_addr; ^ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1261:5: note: in expansion of macro 'fatal' fatal ("Didn't write %d bytes: errno %d\n", ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1261:5: note: in expansion of macro 'fatal' fatal ("Didn't write %d bytes: errno %d\n", ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1277:5: note: in expansion of macro 'fatal' fatal ("Can't close (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1277:5: note: in expansion of macro 'fatal' fatal ("Can't close (%s): errno %d\n", old_name, errno); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1280:5: note: in expansion of macro 'fatal' fatal ("Can't close (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1280:5: note: in expansion of macro 'fatal' fatal ("Can't close (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1283:5: note: in expansion of macro 'fatal' fatal ("Can't stat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1283:5: note: in expansion of macro 'fatal' fatal ("Can't stat (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: warning: incompatible implicit declaration of built-in function 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1289:5: note: in expansion of macro 'fatal' fatal ("Can't chmod (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:411:51: note: include '' or provide a declaration of 'exit' #define fatal(a, b, c) fprintf (stderr, a, b, c), exit (1) ^ unexelf.c:1289:5: note: in expansion of macro 'fatal' fatal ("Can't chmod (%s): errno %d\n", new_name, errno); ^~~~~ unexelf.c:687:7: warning: variable 'old_mdebug_index' set but not used [-Wunused-but-set-variable] int old_mdebug_index; ^~~~~~~~~~~~~~~~ x.c: In function 'make_xcolormap': x.c:361:51: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] XSaveContext(XDISPLAY(sdpy), (XID)cmp, xtc_cmp, z); ^ In file included from x.c:63:0: /tmp/lang/scm/work/.x11-buildlink/include/X11/Xutil.h:576:12: note: expected 'const char *' but argument is of type 'SCM {aka long int}' extern int XSaveContext( ^~~~~~~~~~~~ x.c: In function 'CCC2SCM': x.c:609:47: warning: passing argument 4 of 'XSaveContext' makes pointer from integer without a cast [-Wint-conversion] XSaveContext(ccc->dpy, (XID)ccc, xtc_ccc, s_ccc); ^~~~~ In file included from x.c:63:0: /tmp/lang/scm/work/.x11-buildlink/include/X11/Xutil.h:576:12: note: expected 'const char *' but argument is of type 'SCM {aka long int}' extern int XSaveContext( ^~~~~~~~~~~~ x.c: In function 'x_display_debug': x.c:1013:9: warning: variable 'previous_after_function' set but not used [-Wunused-but-set-variable] int (*previous_after_function)(); ^~~~~~~~~~~~~~~~~~~~~~~ In file included from x.c:66:0: x.c: In function 'x_alloc_color_cells': scm.h:455:18: warning: pointer targets in passing argument 4 of 'XAllocColorPlanes' differ in signedness [-Wpointer-sign] #define VELTS(x) ((SCM *)CDR(x)) ^ x.c:1315:10: note: in expansion of macro 'VELTS' VELTS(pxra), npixels, ^~~~~ In file included from x.c:59:0: /tmp/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:1974:15: note: expected 'long unsigned int *' but argument is of type 'SCM * {aka long int *}' extern Status XAllocColorPlanes( ^~~~~~~~~~~~~~~~~ In file included from x.c:66:0: scm.h:455:18: warning: pointer targets in passing argument 4 of 'XAllocColorCells' differ in signedness [-Wpointer-sign] #define VELTS(x) ((SCM *)CDR(x)) ^ x.c:1328:7: note: in expansion of macro 'VELTS' VELTS(plra), nplanes, VELTS(pxra), npixels); ^~~~~ In file included from x.c:59:0: /tmp/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:1964:15: note: expected 'long unsigned int *' but argument is of type 'SCM * {aka long int *}' extern Status XAllocColorCells( ^~~~~~~~~~~~~~~~ In file included from x.c:66:0: scm.h:455:18: warning: pointer targets in passing argument 6 of 'XAllocColorCells' differ in signedness [-Wpointer-sign] #define VELTS(x) ((SCM *)CDR(x)) ^ x.c:1328:29: note: in expansion of macro 'VELTS' VELTS(plra), nplanes, VELTS(pxra), npixels); ^~~~~ In file included from x.c:59:0: /tmp/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:1964:15: note: expected 'long unsigned int *' but argument is of type 'SCM * {aka long int *}' extern Status XAllocColorCells( ^~~~~~~~~~~~~~~~ In file included from x.c:66:0: x.c: In function 'x_free_color_cells': scm.h:455:18: warning: pointer targets in passing argument 3 of 'XFreeColors' differ in signedness [-Wpointer-sign] #define VELTS(x) ((SCM *)CDR(x)) ^ x.c:1347:36: note: in expansion of macro 'VELTS' XFreeColors(xcm->dpy, xcm->cm, VELTS(spxls), INUM(spxls), planes); ^~~~~ In file included from x.c:59:0: /tmp/lang/scm/work/.x11-buildlink/include/X11/Xlib.h:2525:12: note: expected 'long unsigned int *' but argument is of type 'SCM * {aka long int *}' extern int XFreeColors( ^~~~~~~~~~~ x.c: In function 'x_propdata2scm': x.c:1958:34: warning: pointer targets in passing argument 1 of 'makfrom0str' differ in signedness [-Wpointer-sign] case 8: return makfrom0str(data); ^~~~ In file included from x.c:66:0: scm.h:1050:17: note: expected 'const char *' but argument is of type 'unsigned char *' SCM_EXPORT SCM makfrom0str P((const char *scr)); ^~~~~~~~~~~ x.c: In function 'x_draw_string': x.c:2094:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] xldraw_string(sdbl, sgc, sargs, &XDrawString, s_x_draw_string); ^ x.c:2075:6: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(struct _XDisplay *, long unsigned int, struct _XGC *, int, int, const char *, int)}' void xldraw_string(sdbl, sgc, sargs, proc, s_caller) ^~~~~~~~~~~~~ x.c: In function 'x_image_string': x.c:2100:35: warning: passing argument 4 of 'xldraw_string' from incompatible pointer type [-Wincompatible-pointer-types] xldraw_string(sdbl, sgc, sargs, &XDrawImageString, s_x_image_string); ^ x.c:2075:6: note: expected 'int (*)(void)' but argument is of type 'int (*)(Display *, Drawable, struct _XGC *, int, int, const char *, int) {aka int (*)(struct _XDisplay *, long unsigned int, struct _XGC *, int, int, const char *, int)}' void xldraw_string(sdbl, sgc, sargs, proc, s_caller) ^~~~~~~~~~~~~ x.c: In function 'x_event_keysym': x.c:2283:7: warning: 'ev' may be used uninitialized in this function [-Wmaybe-uninitialized] ans = XLookupKeysym(ev, ev->state); ~~~~^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ mv: rename scm to scm~: No such file or directory ld: sys.o: in function `ltmpnam': sys.c:(.text+0x53a): warning: warning: tmpnam() possibly used unsafely, use mkstemp() or mkdtemp()