=> "/opt/pkg/bin/bmake" ["-C", "/data/jenkins/workspace/pkgsrc-upstream-trunk/lang/hugs", "all", "BATCH=1", "DEPENDS_TARGET=/nonexistent"] ===> Building for hugs98-200609nb2 cd src; /opt/pkg/bin/gmake all gmake[1]: Entering directory '/tmp/work/lang/hugs/work/hugs98-Sep2006/src' gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 hugs.c gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 edit.c hugs.c: In function 'initialize': hugs.c:77:19: warning: old-style function definition [-Wold-style-definition] 77 | static Void local initialize(argc,argv) | ^~~~~~~~~~ hugs.c: In function 'main': hugs.c:207:5: warning: old-style function definition [-Wold-style-definition] 207 | int main(argc,argv) | ^~~~ hugs.c: In function 'expandPath': hugs.c:312:19: warning: old-style function definition [-Wold-style-definition] 312 | static Void local expandPath(origPath,expandedPath,maxLen) | ^~~~~~~~~~ hugs.c: In function 'objToStr': hugs.c:570:21: warning: old-style function definition [-Wold-style-definition] 570 | static String local objToStr(m,c) | ^~~~~~~~ hugs.c: In function 'describe': hugs.c:659:19: warning: old-style function definition [-Wold-style-definition] 659 | static Void local describe(t) /* describe an object */ | ^~~~~~~~ edit.c: In function 'startEdit': edit.c:10:6: warning: old-style function definition [-Wold-style-definition] 10 | Bool startEdit(line,nm) /* Start editor on file name at */ | ^~~~~~~~~ hugs.c: In function 'printSyntax': hugs.c:820:19: warning: old-style function definition [-Wold-style-definition] 820 | static Void local printSyntax(nm) | ^~~~~~~~~~~ hugs.c: In function 'showInst': hugs.c:842:19: warning: old-style function definition [-Wold-style-definition] 842 | static Void local showInst(in) /* Display instance decl header */ | ^~~~~~~~ hugs.c: In function 'promptForInput': hugs.c:900:6: warning: old-style function definition [-Wold-style-definition] 900 | Void promptForInput(moduleName) | ^~~~~~~~~~~~~~ hugs.c: In function 'interpreter': hugs.c:956:19: warning: old-style function definition [-Wold-style-definition] 956 | static Void local interpreter(argc,argv)/* main interpreter loop */ | ^~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 observe.c observe.c: In function 'breakDialogue': observe.c:32:13: warning: old-style function definition [-Wold-style-definition] 32 | static Void breakDialogue(s) | ^~~~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 builtin.c In file included from builtin.c:93: builtin.c: In function 'primFatbar': builtin.c:644:9: warning: old-style function definition [-Wold-style-definition] 644 | primFun(primFatbar) { /* Fatbar primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primFail': builtin.c:655:9: warning: old-style function definition [-Wold-style-definition] 655 | primFun(primFail) { /* Failure primitive */ | ^~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primBlackHole': builtin.c:659:9: warning: old-style function definition [-Wold-style-definition] 659 | primFun(primBlackHole) { | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primIndirect': builtin.c:663:9: warning: old-style function definition [-Wold-style-definition] 663 | primFun(primIndirect) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primCatchError': builtin.c:667:9: warning: old-style function definition [-Wold-style-definition] 667 | primFun(primCatchError) { /* Error catching primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primThrowException': builtin.c:677:9: warning: old-style function definition [-Wold-style-definition] 677 | primFun(primThrowException) { /* Failure primitive */ | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primCatchException': builtin.c:686:9: warning: old-style function definition [-Wold-style-definition] 686 | primFun(primCatchException) { /* Error catching primitive */ | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primSel': builtin.c:696:9: warning: old-style function definition [-Wold-style-definition] 696 | primFun(primSel) { /* Component selection */ | ^~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primIf': builtin.c:704:9: warning: old-style function definition [-Wold-style-definition] 704 | primFun(primIf) { /* Conditional primitive */ | ^~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primStrict': builtin.c:713:9: warning: old-style function definition [-Wold-style-definition] 713 | primFun(primStrict) { /* Strict application primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primSeq': builtin.c:718:9: warning: old-style function definition [-Wold-style-definition] 718 | primFun(primSeq) { /* Strict sequencing primitive */ | ^~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primConCmp': builtin.c:723:9: warning: old-style function definition [-Wold-style-definition] 723 | primFun(primConCmp) { /* compare constructors */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnRange': builtin.c:730:9: warning: old-style function definition [-Wold-style-definition] 730 | primFun(primEnRange) { /* derived range for enum type */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnIndex': builtin.c:735:9: warning: old-style function definition [-Wold-style-definition] 735 | primFun(primEnIndex) { /* derived index for enum type */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnInRng': builtin.c:749:9: warning: old-style function definition [-Wold-style-definition] 749 | primFun(primEnInRng) { /* derived inRange for enum type */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnToEn': builtin.c:758:9: warning: old-style function definition [-Wold-style-definition] 758 | primFun(primEnToEn) { /* derived toEnum for enum type */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnFrEn': builtin.c:772:9: warning: old-style function definition [-Wold-style-definition] 772 | primFun(primEnFrEn) { /* derived fromEnum for enum type */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnFrom': builtin.c:778:9: warning: old-style function definition [-Wold-style-definition] 778 | primFun(primEnFrom) { /* derived enumFrom for enum type */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnFrTo': builtin.c:787:9: warning: old-style function definition [-Wold-style-definition] 787 | primFun(primEnFrTo) { /* derived enumFromTo for enum type*/ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEnFrTh': builtin.c:806:9: warning: old-style function definition [-Wold-style-definition] 806 | primFun(primEnFrTh) { /* derived enumFromThen for enum ty*/ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primMinInt': builtin.c:831:8: warning: old-style function definition [-Wold-style-definition] 831 | CAFInt(primMinInt,MINNEGINT) /* minimum integer CAF */ | ^~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:831:1: note: in expansion of macro 'CAFInt' 831 | CAFInt(primMinInt,MINNEGINT) /* minimum integer CAF */ | ^~~~~~ builtin.c: In function 'primMaxInt': builtin.c:832:8: warning: old-style function definition [-Wold-style-definition] 832 | CAFInt(primMaxInt,MAXPOSINT) /* maximum integer CAF */ | ^~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:832:1: note: in expansion of macro 'CAFInt' 832 | CAFInt(primMaxInt,MAXPOSINT) /* maximum integer CAF */ | ^~~~~~ builtin.c: In function 'primPlusInt': builtin.c:833:12: warning: old-style function definition [-Wold-style-definition] 833 | IntInt2Int(primPlusInt,x+y) /* Integer addition primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:833:1: note: in expansion of macro 'IntInt2Int' 833 | IntInt2Int(primPlusInt,x+y) /* Integer addition primitive */ | ^~~~~~~~~~ builtin.c: In function 'primMinusInt': builtin.c:834:12: warning: old-style function definition [-Wold-style-definition] 834 | IntInt2Int(primMinusInt,x-y) /* Integer subtraction primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:834:1: note: in expansion of macro 'IntInt2Int' 834 | IntInt2Int(primMinusInt,x-y) /* Integer subtraction primitive */ | ^~~~~~~~~~ builtin.c: In function 'primMulInt': builtin.c:835:12: warning: old-style function definition [-Wold-style-definition] 835 | IntInt2Int(primMulInt,x*y) /* Integer multiplication primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:835:1: note: in expansion of macro 'IntInt2Int' 835 | IntInt2Int(primMulInt,x*y) /* Integer multiplication primitive */ | ^~~~~~~~~~ builtin.c: In function 'primNegInt': builtin.c:836:9: warning: old-style function definition [-Wold-style-definition] 836 | Int2Int(primNegInt,-x) /* Integer negation primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:836:1: note: in expansion of macro 'Int2Int' 836 | Int2Int(primNegInt,-x) /* Integer negation primitive */ | ^~~~~~~ builtin.c: In function 'primQuotInt': builtin.c:837:19: warning: old-style function definition [-Wold-style-definition] 837 | IntInt2IntNonZero(primQuotInt,x/y) /* Integer division primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:837:1: note: in expansion of macro 'IntInt2IntNonZero' 837 | IntInt2IntNonZero(primQuotInt,x/y) /* Integer division primitive */ | ^~~~~~~~~~~~~~~~~ builtin.c: In function 'primRemInt': builtin.c:839:19: warning: old-style function definition [-Wold-style-definition] 839 | IntInt2IntNonZero(primRemInt,x%y) /* Integer remainder primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:839:1: note: in expansion of macro 'IntInt2IntNonZero' 839 | IntInt2IntNonZero(primRemInt,x%y) /* Integer remainder primitive */ | ^~~~~~~~~~~~~~~~~ builtin.c: In function 'primQrmInt': builtin.c:846:9: warning: old-style function definition [-Wold-style-definition] 846 | primFun(primQrmInt) { /* Integer quotient and remainder */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primDivInt': builtin.c:855:9: warning: old-style function definition [-Wold-style-definition] 855 | primFun(primDivInt) { /* Integer division primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primModInt': builtin.c:868:9: warning: old-style function definition [-Wold-style-definition] 868 | primFun(primModInt) { /* Integer modulo primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primAndInt': builtin.c:883:12: warning: old-style function definition [-Wold-style-definition] 883 | IntInt2Int(primAndInt,x&y) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:883:1: note: in expansion of macro 'IntInt2Int' 883 | IntInt2Int(primAndInt,x&y) | ^~~~~~~~~~ builtin.c: In function 'primOrInt': builtin.c:884:12: warning: old-style function definition [-Wold-style-definition] 884 | IntInt2Int(primOrInt, x|y) | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:884:1: note: in expansion of macro 'IntInt2Int' 884 | IntInt2Int(primOrInt, x|y) | ^~~~~~~~~~ builtin.c: In function 'primXorInt': builtin.c:885:12: warning: old-style function definition [-Wold-style-definition] 885 | IntInt2Int(primXorInt,(x&~y) | (~x&y)) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:885:1: note: in expansion of macro 'IntInt2Int' 885 | IntInt2Int(primXorInt,(x&~y) | (~x&y)) | ^~~~~~~~~~ builtin.c: In function 'primComplementInt': builtin.c:886:9: warning: old-style function definition [-Wold-style-definition] 886 | Int2Int(primComplementInt,~x) | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:886:1: note: in expansion of macro 'Int2Int' 886 | Int2Int(primComplementInt,~x) | ^~~~~~~ builtin.c: In function 'primBitInt': builtin.c:887:9: warning: old-style function definition [-Wold-style-definition] 887 | Int2Int(primBitInt, 1<> y) & 1) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:888:1: note: in expansion of macro 'IntInt2Bool' 888 | IntInt2Bool(primTestInt,(x >> y) & 1) | ^~~~~~~~~~~ builtin.c: In function 'primShiftInt': builtin.c:890:9: warning: old-style function definition [-Wold-style-definition] 890 | primFun(primShiftInt) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primMaxWord': builtin.c:906:9: warning: old-style function definition [-Wold-style-definition] 906 | CAFWord(primMaxWord,MAXHUGSWORD) /* maximum integer CAF */ | ^~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:906:1: note: in expansion of macro 'CAFWord' 906 | CAFWord(primMaxWord,MAXHUGSWORD) /* maximum integer CAF */ | ^~~~~~~ builtin.c: In function 'primPlusWord': builtin.c:907:15: warning: old-style function definition [-Wold-style-definition] 907 | WordWord2Word(primPlusWord,x+y) /* Word addition primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:907:1: note: in expansion of macro 'WordWord2Word' 907 | WordWord2Word(primPlusWord,x+y) /* Word addition primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primMinusWord': builtin.c:908:15: warning: old-style function definition [-Wold-style-definition] 908 | WordWord2Word(primMinusWord,x-y) /* Word subtraction primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:908:1: note: in expansion of macro 'WordWord2Word' 908 | WordWord2Word(primMinusWord,x-y) /* Word subtraction primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primNegateWord': builtin.c:909:11: warning: old-style function definition [-Wold-style-definition] 909 | Word2Word(primNegateWord,-(Int)x) /* Word negation (modulo MAXWORD) */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:909:1: note: in expansion of macro 'Word2Word' 909 | Word2Word(primNegateWord,-(Int)x) /* Word negation (modulo MAXWORD) */ | ^~~~~~~~~ builtin.c: In function 'primMulWord': builtin.c:910:15: warning: old-style function definition [-Wold-style-definition] 910 | WordWord2Word(primMulWord,x*y) /* Word multiplication primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:910:1: note: in expansion of macro 'WordWord2Word' 910 | WordWord2Word(primMulWord,x*y) /* Word multiplication primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primQuotWord': builtin.c:911:22: warning: old-style function definition [-Wold-style-definition] 911 | WordWord2WordNonZero(primQuotWord,x/y) /* Word division primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:911:1: note: in expansion of macro 'WordWord2WordNonZero' 911 | WordWord2WordNonZero(primQuotWord,x/y) /* Word division primitive */ | ^~~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primDivWord': builtin.c:913:22: warning: old-style function definition [-Wold-style-definition] 913 | WordWord2WordNonZero(primDivWord,x/y) /* Word division primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:913:1: note: in expansion of macro 'WordWord2WordNonZero' 913 | WordWord2WordNonZero(primDivWord,x/y) /* Word division primitive */ | ^~~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primRemWord': builtin.c:915:22: warning: old-style function definition [-Wold-style-definition] 915 | WordWord2WordNonZero(primRemWord,x%y) /* Word remainder primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:915:1: note: in expansion of macro 'WordWord2WordNonZero' 915 | WordWord2WordNonZero(primRemWord,x%y) /* Word remainder primitive */ | ^~~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primModWord': builtin.c:916:22: warning: old-style function definition [-Wold-style-definition] 916 | WordWord2WordNonZero(primModWord,x%y) /* Word modulo primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:916:1: note: in expansion of macro 'WordWord2WordNonZero' 916 | WordWord2WordNonZero(primModWord,x%y) /* Word modulo primitive */ | ^~~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primQrmWord': builtin.c:923:9: warning: old-style function definition [-Wold-style-definition] 923 | primFun(primQrmWord) { /* Integer quotient and remainder */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primAndWord': builtin.c:932:15: warning: old-style function definition [-Wold-style-definition] 932 | WordWord2Word(primAndWord,x&y) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:932:1: note: in expansion of macro 'WordWord2Word' 932 | WordWord2Word(primAndWord,x&y) | ^~~~~~~~~~~~~ builtin.c: In function 'primOrWord': builtin.c:933:15: warning: old-style function definition [-Wold-style-definition] 933 | WordWord2Word(primOrWord, x|y) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:933:1: note: in expansion of macro 'WordWord2Word' 933 | WordWord2Word(primOrWord, x|y) | ^~~~~~~~~~~~~ builtin.c: In function 'primXorWord': builtin.c:934:15: warning: old-style function definition [-Wold-style-definition] 934 | WordWord2Word(primXorWord,(x&~y) | (~x&y)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:934:1: note: in expansion of macro 'WordWord2Word' 934 | WordWord2Word(primXorWord,(x&~y) | (~x&y)) | ^~~~~~~~~~~~~ builtin.c: In function 'primComplementWord': builtin.c:935:11: warning: old-style function definition [-Wold-style-definition] 935 | Word2Word(primComplementWord,~x) | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:935:1: note: in expansion of macro 'Word2Word' 935 | Word2Word(primComplementWord,~x) | ^~~~~~~~~ builtin.c: In function 'primBitWord': builtin.c:936:10: warning: old-style function definition [-Wold-style-definition] 936 | Int2Word(primBitWord, 1<> y) & 1) | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:937:1: note: in expansion of macro 'WordInt2Bool' 937 | WordInt2Bool(primTestWord,(x >> y) & 1) | ^~~~~~~~~~~~ builtin.c: In function 'primShiftWord': builtin.c:939:9: warning: old-style function definition [-Wold-style-definition] 939 | primFun(primShiftWord) { | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primRotateWord': builtin.c:953:9: warning: old-style function definition [-Wold-style-definition] 953 | primFun(primRotateWord) { | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primItoI8': builtin.c:967:9: warning: old-style function definition [-Wold-style-definition] 967 | Int2Int(primItoI8, x&0xff) | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:967:1: note: in expansion of macro 'Int2Int' 967 | Int2Int(primItoI8, x&0xff) | ^~~~~~~ builtin.c: In function 'primItoI16': builtin.c:968:9: warning: old-style function definition [-Wold-style-definition] 968 | Int2Int(primItoI16, x&0xffff) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:968:1: note: in expansion of macro 'Int2Int' 968 | Int2Int(primItoI16, x&0xffff) | ^~~~~~~ builtin.c: In function 'primItoI32': builtin.c:969:9: warning: old-style function definition [-Wold-style-definition] 969 | Int2Int(primItoI32, x&0xffffffff) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:969:1: note: in expansion of macro 'Int2Int' 969 | Int2Int(primItoI32, x&0xffffffff) | ^~~~~~~ builtin.c: In function 'primI8toI': builtin.c:971:9: warning: old-style function definition [-Wold-style-definition] 971 | Int2Int(primI8toI, (Int8)x) /* casts used to cause sign extension */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:971:1: note: in expansion of macro 'Int2Int' 971 | Int2Int(primI8toI, (Int8)x) /* casts used to cause sign extension */ | ^~~~~~~ builtin.c: In function 'primI16toI': builtin.c:972:9: warning: old-style function definition [-Wold-style-definition] 972 | Int2Int(primI16toI, (Int16)x) /* casts used to cause sign extension */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:972:1: note: in expansion of macro 'Int2Int' 972 | Int2Int(primI16toI, (Int16)x) /* casts used to cause sign extension */ | ^~~~~~~ builtin.c: In function 'primI32toI': builtin.c:973:9: warning: old-style function definition [-Wold-style-definition] 973 | Int2Int(primI32toI, x) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:973:1: note: in expansion of macro 'Int2Int' 973 | Int2Int(primI32toI, x) | ^~~~~~~ builtin.c: In function 'primWtoW8': builtin.c:975:11: warning: old-style function definition [-Wold-style-definition] 975 | Word2Word(primWtoW8, x&0xff) | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:975:1: note: in expansion of macro 'Word2Word' 975 | Word2Word(primWtoW8, x&0xff) | ^~~~~~~~~ builtin.c: In function 'primWtoW16': builtin.c:976:11: warning: old-style function definition [-Wold-style-definition] 976 | Word2Word(primWtoW16, x&0xffff) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:976:1: note: in expansion of macro 'Word2Word' 976 | Word2Word(primWtoW16, x&0xffff) | ^~~~~~~~~ builtin.c: In function 'primWtoW32': builtin.c:977:11: warning: old-style function definition [-Wold-style-definition] 977 | Word2Word(primWtoW32, x&0xffffffff) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:977:1: note: in expansion of macro 'Word2Word' 977 | Word2Word(primWtoW32, x&0xffffffff) | ^~~~~~~~~ builtin.c: In function 'primW8toW': builtin.c:979:11: warning: old-style function definition [-Wold-style-definition] 979 | Word2Word(primW8toW, x) | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:979:1: note: in expansion of macro 'Word2Word' 979 | Word2Word(primW8toW, x) | ^~~~~~~~~ builtin.c: In function 'primW16toW': builtin.c:980:11: warning: old-style function definition [-Wold-style-definition] 980 | Word2Word(primW16toW, x) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:980:1: note: in expansion of macro 'Word2Word' 980 | Word2Word(primW16toW, x) | ^~~~~~~~~ builtin.c: In function 'primW32toW': builtin.c:981:11: warning: old-style function definition [-Wold-style-definition] 981 | Word2Word(primW32toW, x) | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:981:1: note: in expansion of macro 'Word2Word' 981 | Word2Word(primW32toW, x) | ^~~~~~~~~ builtin.c: In function 'primI64toI32': builtin.c:983:9: warning: old-style function definition [-Wold-style-definition] 983 | primFun(primI64toI32) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primI32toI64': builtin.c:991:9: warning: old-style function definition [-Wold-style-definition] 991 | primFun(primI32toI64) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primW64toW32': builtin.c:998:9: warning: old-style function definition [-Wold-style-definition] 998 | primFun(primW64toW32) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primW32toW64': builtin.c:1006:9: warning: old-style function definition [-Wold-style-definition] 1006 | primFun(primW32toW64) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ In file included from builtin.c:1020: bignums.c: In function 'bignumControl': bignums.c:72:13: warning: old-style function definition [-Wold-style-definition] 72 | static Void bignumControl(what) | ^~~~~~~~~~~~~ bignums.c: In function 'bigInt': bignums.c:112:8: warning: old-style function definition [-Wold-style-definition] 112 | Bignum bigInt(n) /* convert Int to bignum */ | ^~~~~~ bignums.c: In function 'bigWord': bignums.c:134:8: warning: old-style function definition [-Wold-style-definition] 134 | Bignum bigWord(n) /* convert Word to bignum */ | ^~~~~~~ bignums.c: In function 'bigDouble': bignums.c:150:8: warning: old-style function definition [-Wold-style-definition] 150 | Bignum bigDouble(a) /* convert double to bignum */ | ^~~~~~~~~ bignums.c: In function 'bigToInt': bignums.c:187:6: warning: old-style function definition [-Wold-style-definition] 187 | Cell bigToInt(n) /* convert bignum to Int */ | ^~~~~~~~ bignums.c: In function 'bigToDouble': bignums.c:223:8: warning: old-style function definition [-Wold-style-definition] 223 | double bigToDouble(n) /* convert bignum to double */ | ^~~~~~~~~~~ bignums.c: In function 'bigStr': bignums.c:239:8: warning: old-style function definition [-Wold-style-definition] 239 | Bignum bigStr(s) /* convert String to bignum */ | ^~~~~~ bignums.c: In function 'bigOut': bignums.c:265:6: warning: old-style function definition [-Wold-style-definition] 265 | Cell bigOut(a,s,b) /* bignum output, prepend digits to*/ | ^~~~~~ bignums.c: In function 'bigShift': bignums.c:302:8: warning: old-style function definition [-Wold-style-definition] 302 | Bignum bigShift(big,c,mult) /* Digits 0 <= c, mult < BIGBASE */ | ^~~~~~~~ bignums.c: In function 'primIntToInteger': bignums.c:326:9: warning: old-style function definition [-Wold-style-definition] 326 | primFun(primIntToInteger) { /* Conversion :: Int -> Integer */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'primIntegerToInt': bignums.c:331:9: warning: old-style function definition [-Wold-style-definition] 331 | primFun(primIntegerToInt) { /* Conversion :: Integer -> Int */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'primWordToInteger': bignums.c:351:9: warning: old-style function definition [-Wold-style-definition] 351 | primFun(primWordToInteger) { /* Conversion :: Word -> Integer */ | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'primIntegerToWord': bignums.c:356:9: warning: old-style function definition [-Wold-style-definition] 356 | primFun(primIntegerToWord) { /* Conversion :: Integer -> Word */ | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'primIntegerToFloat': bignums.c:365:9: warning: old-style function definition [-Wold-style-definition] 365 | primFun(primIntegerToFloat) { /* Conversion :: Integer -> Float */ | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'primIntegerToDouble': bignums.c:370:9: warning: old-style function definition [-Wold-style-definition] 370 | primFun(primIntegerToDouble) { /* Conversion :: Integer -> Double */ | ^~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'primNegInteger': bignums.c:375:9: warning: old-style function definition [-Wold-style-definition] 375 | primFun(primNegInteger) { /* Integer unary negate */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'bigNeg': bignums.c:380:8: warning: old-style function definition [-Wold-style-definition] 380 | Bignum bigNeg(a) /* unary negation */ | ^~~~~~ bignums.c: In function 'primEqInteger': bignums.c:392:9: warning: old-style function definition [-Wold-style-definition] 392 | primFun(primEqInteger) { /* Integer equality test */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'primCmpInteger': bignums.c:399:9: warning: old-style function definition [-Wold-style-definition] 399 | primFun(primCmpInteger) { /* Integer comparison */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c: In function 'bigCmp': bignums.c:410:5: warning: old-style function definition [-Wold-style-definition] 410 | Int bigCmp(a,b) /* Compare bignums returning: */ | ^~~~~~ bignums.c: In function 'digitsCmp': bignums.c:426:18: warning: old-style function definition [-Wold-style-definition] 426 | static Int local digitsCmp(xs,ys) /* Compare positive digit streams */ | ^~~~~~~~~ bignums.c: In function 'bigAdd': bignums.c:444:21: warning: old-style function definition [-Wold-style-definition] 444 | static Bignum local bigAdd(a,b) /* Bignum addition */ | ^~~~~~ bignums.c: In function 'bigSub': bignums.c:462:21: warning: old-style function definition [-Wold-style-definition] 462 | static Bignum local bigSub(a,b) /* Bignum subtraction */ | ^~~~~~ bignums.c: In function 'digitsAdd': bignums.c:480:21: warning: old-style function definition [-Wold-style-definition] 480 | static Bignum local digitsAdd(sign,xs,ys)/* Addition of digit streams */ | ^~~~~~~~~ bignums.c: In function 'digitsSub': bignums.c:523:21: warning: old-style function definition [-Wold-style-definition] 523 | static Bignum local digitsSub(xs,ys) /* Subtraction of digit streams */ | ^~~~~~~~~ bignums.c: In function 'bigMul': bignums.c:585:21: warning: old-style function definition [-Wold-style-definition] 585 | static Bignum local bigMul(a,b) /* Bignum multiply */ | ^~~~~~ bignums.c: In function 'bigQrm': bignums.c:619:19: warning: old-style function definition [-Wold-style-definition] 619 | static Cell local bigQrm(a,b) /* bignum quotient and remainder */ | ^~~~~~ bignums.c: In function 'digitsQrm': bignums.c:642:19: warning: old-style function definition [-Wold-style-definition] 642 | static List local digitsQrm(us,vs) /* digits quotient and remainder */ | ^~~~~~~~~ bignums.c: In function 'primPlusInteger': bignums.c:965:21: warning: old-style function definition [-Wold-style-definition] 965 | BignumBignum2Bignum(primPlusInteger,bigAdd(x,y)) /* Integer addition */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c:965:1: note: in expansion of macro 'BignumBignum2Bignum' 965 | BignumBignum2Bignum(primPlusInteger,bigAdd(x,y)) /* Integer addition */ | ^~~~~~~~~~~~~~~~~~~ bignums.c: In function 'primMinusInteger': bignums.c:966:21: warning: old-style function definition [-Wold-style-definition] 966 | BignumBignum2Bignum(primMinusInteger,bigSub(x,y)) /* Integer subtraction */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c:966:1: note: in expansion of macro 'BignumBignum2Bignum' 966 | BignumBignum2Bignum(primMinusInteger,bigSub(x,y)) /* Integer subtraction */ | ^~~~~~~~~~~~~~~~~~~ bignums.c: In function 'primMulInteger': bignums.c:967:21: warning: old-style function definition [-Wold-style-definition] 967 | BignumBignum2Bignum(primMulInteger,bigMul(x,y)) /* Integer multiply */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ bignums.c:967:1: note: in expansion of macro 'BignumBignum2Bignum' 967 | BignumBignum2Bignum(primMulInteger,bigMul(x,y)) /* Integer multiply */ | ^~~~~~~~~~~~~~~~~~~ bignums.c: In function 'primQrmInteger': bignums.c:969:9: warning: old-style function definition [-Wold-style-definition] 969 | primFun(primQrmInteger) { /* Integer quotient and remainder */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primCharToInt': builtin.c:1027:10: warning: old-style function definition [-Wold-style-definition] 1027 | Char2Int(primCharToInt,x) /* Character to integer primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1027:1: note: in expansion of macro 'Char2Int' 1027 | Char2Int(primCharToInt,x) /* Character to integer primitive */ | ^~~~~~~~ builtin.c: In function 'primIntToChar': builtin.c:1029:9: warning: old-style function definition [-Wold-style-definition] 1029 | primFun(primIntToChar) { /* Integer to character primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primWordToInt': builtin.c:1037:9: warning: old-style function definition [-Wold-style-definition] 1037 | primFun(primWordToInt) { /* Word to integer primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primIntToWord': builtin.c:1043:9: warning: old-style function definition [-Wold-style-definition] 1043 | primFun(primIntToWord) { /* Integer to word primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primIntToFloat': builtin.c:1049:9: warning: old-style function definition [-Wold-style-definition] 1049 | primFun(primIntToFloat) { /* Integer to Float primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primIntToDouble': builtin.c:1055:9: warning: old-style function definition [-Wold-style-definition] 1055 | primFun(primIntToDouble) { /* Integer to Double primitive */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primDummyCvt': builtin.c:1061:9: warning: old-style function definition [-Wold-style-definition] 1061 | primFun(primDummyCvt) { /* dummy (identity) conversion */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primRationalToFloat': builtin.c:1065:9: warning: old-style function definition [-Wold-style-definition] 1065 | primFun(primRationalToFloat) { | ^~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primRationalToDouble': builtin.c:1094:9: warning: old-style function definition [-Wold-style-definition] 1094 | primFun(primRationalToDouble) { | ^~~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primFloatToDouble': builtin.c:1126:9: warning: old-style function definition [-Wold-style-definition] 1126 | primFun(primFloatToDouble) { | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primDoubleToFloat': builtin.c:1132:9: warning: old-style function definition [-Wold-style-definition] 1132 | primFun(primDoubleToFloat) { | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primPlusFloat': builtin.c:1138:18: warning: old-style function definition [-Wold-style-definition] 1138 | FloatFloat2Float(primPlusFloat,x+y) /* Float addition primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1138:1: note: in expansion of macro 'FloatFloat2Float' 1138 | FloatFloat2Float(primPlusFloat,x+y) /* Float addition primitive */ | ^~~~~~~~~~~~~~~~ builtin.c: In function 'primMinusFloat': builtin.c:1139:18: warning: old-style function definition [-Wold-style-definition] 1139 | FloatFloat2Float(primMinusFloat,x-y) /* Float subtraction primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1139:1: note: in expansion of macro 'FloatFloat2Float' 1139 | FloatFloat2Float(primMinusFloat,x-y) /* Float subtraction primitive */ | ^~~~~~~~~~~~~~~~ builtin.c: In function 'primMulFloat': builtin.c:1140:18: warning: old-style function definition [-Wold-style-definition] 1140 | FloatFloat2Float(primMulFloat,x*y) /* Float multiplication primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1140:1: note: in expansion of macro 'FloatFloat2Float' 1140 | FloatFloat2Float(primMulFloat,x*y) /* Float multiplication primitive */ | ^~~~~~~~~~~~~~~~ builtin.c: In function 'primNegFloat': builtin.c:1141:13: warning: old-style function definition [-Wold-style-definition] 1141 | Float2Float(primNegFloat,-x) /* Float negation primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1141:1: note: in expansion of macro 'Float2Float' 1141 | Float2Float(primNegFloat,-x) /* Float negation primitive */ | ^~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 char.c builtin.c: In function 'primDivFloat': builtin.c:1142:18: warning: old-style function definition [-Wold-style-definition] 1142 | FloatFloat2Float(primDivFloat,x/y) /* Float division primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1142:1: note: in expansion of macro 'FloatFloat2Float' 1142 | FloatFloat2Float(primDivFloat,x/y) /* Float division primitive */ | ^~~~~~~~~~~~~~~~ builtin.c: In function 'primPlusDouble': builtin.c:1144:21: warning: old-style function definition [-Wold-style-definition] 1144 | DoubleDouble2Double(primPlusDouble,x+y) /* Double addition primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1144:1: note: in expansion of macro 'DoubleDouble2Double' 1144 | DoubleDouble2Double(primPlusDouble,x+y) /* Double addition primitive */ | ^~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primMinusDouble': builtin.c:1145:21: warning: old-style function definition [-Wold-style-definition] 1145 | DoubleDouble2Double(primMinusDouble,x-y)/* Double subtraction primitive */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1145:1: note: in expansion of macro 'DoubleDouble2Double' 1145 | DoubleDouble2Double(primMinusDouble,x-y)/* Double subtraction primitive */ | ^~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primMulDouble': builtin.c:1146:21: warning: old-style function definition [-Wold-style-definition] 1146 | DoubleDouble2Double(primMulDouble,x*y) /* Double multiplication primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1146:1: note: in expansion of macro 'DoubleDouble2Double' 1146 | DoubleDouble2Double(primMulDouble,x*y) /* Double multiplication primitive */ | ^~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primNegDouble': builtin.c:1147:15: warning: old-style function definition [-Wold-style-definition] 1147 | Double2Double(primNegDouble,-x) /* Double negation primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1147:1: note: in expansion of macro 'Double2Double' 1147 | Double2Double(primNegDouble,-x) /* Double negation primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primDivDouble': builtin.c:1148:21: warning: old-style function definition [-Wold-style-definition] 1148 | DoubleDouble2Double(primDivDouble,x/y) /* Double division primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1148:1: note: in expansion of macro 'DoubleDouble2Double' 1148 | DoubleDouble2Double(primDivDouble,x/y) /* Double division primitive */ | ^~~~~~~~~~~~~~~~~~~ builtin.c: In function 'primSinFloat': builtin.c:1151:13: warning: old-style function definition [-Wold-style-definition] 1151 | Float2Float(primSinFloat,sin(x)) /* Float sin (trig) primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1151:1: note: in expansion of macro 'Float2Float' 1151 | Float2Float(primSinFloat,sin(x)) /* Float sin (trig) primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primCosFloat': builtin.c:1152:13: warning: old-style function definition [-Wold-style-definition] 1152 | Float2Float(primCosFloat,cos(x)) /* Float cos (trig) primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1152:1: note: in expansion of macro 'Float2Float' 1152 | Float2Float(primCosFloat,cos(x)) /* Float cos (trig) primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primTanFloat': builtin.c:1153:13: warning: old-style function definition [-Wold-style-definition] 1153 | Float2Float(primTanFloat,tan(x)) /* Float tan (trig) primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1153:1: note: in expansion of macro 'Float2Float' 1153 | Float2Float(primTanFloat,tan(x)) /* Float tan (trig) primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primAsinFloat': builtin.c:1154:13: warning: old-style function definition [-Wold-style-definition] 1154 | Float2Float(primAsinFloat,asin(x)) /* Float arc sin (trig) primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1154:1: note: in expansion of macro 'Float2Float' 1154 | Float2Float(primAsinFloat,asin(x)) /* Float arc sin (trig) primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primAcosFloat': builtin.c:1155:13: warning: old-style function definition [-Wold-style-definition] 1155 | Float2Float(primAcosFloat,acos(x)) /* Float arc cos (trig) primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1155:1: note: in expansion of macro 'Float2Float' 1155 | Float2Float(primAcosFloat,acos(x)) /* Float arc cos (trig) primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primAtanFloat': builtin.c:1156:13: warning: old-style function definition [-Wold-style-definition] 1156 | Float2Float(primAtanFloat,atan(x)) /* Float arc tan (trig) primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1156:1: note: in expansion of macro 'Float2Float' 1156 | Float2Float(primAtanFloat,atan(x)) /* Float arc tan (trig) primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primExpFloat': builtin.c:1161:13: warning: old-style function definition [-Wold-style-definition] 1161 | Float2Float(primExpFloat,exp(x)) /* Float exponential primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1161:1: note: in expansion of macro 'Float2Float' 1161 | Float2Float(primExpFloat,exp(x)) /* Float exponential primitive */ | ^~~~~~~~~~~ char.c: In function 'consChar': char.c:674:6: warning: old-style function definition [-Wold-style-definition] 674 | Cell consChar(c) /* return application (:) c */ | ^~~~~~~~ char.c: In function 'charOps': char.c:767:6: warning: old-style function definition [-Wold-style-definition] 767 | Void charOps(what) | ^~~~~~~ builtin.c: In function 'primLogFloat': builtin.c:1162:16: warning: old-style function definition [-Wold-style-definition] 1162 | Float2FloatPre(primLogFloat,log(x),x>0)/* Float logarithm primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1162:1: note: in expansion of macro 'Float2FloatPre' 1162 | Float2FloatPre(primLogFloat,log(x),x>0)/* Float logarithm primitive */ | ^~~~~~~~~~~~~~ builtin.c: In function 'primSqrtFloat': builtin.c:1163:16: warning: old-style function definition [-Wold-style-definition] 1163 | Float2FloatPre(primSqrtFloat,sqrt(x),x>=0) /* Float square root primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1163:1: note: in expansion of macro 'Float2FloatPre' 1163 | Float2FloatPre(primSqrtFloat,sqrt(x),x>=0) /* Float square root primitive */ | ^~~~~~~~~~~~~~ builtin.c: In function 'primSinDouble': builtin.c:1165:15: warning: old-style function definition [-Wold-style-definition] 1165 | Double2Double(primSinDouble,sin(x)) /* Double sin (trig) primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1165:1: note: in expansion of macro 'Double2Double' 1165 | Double2Double(primSinDouble,sin(x)) /* Double sin (trig) primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primCosDouble': builtin.c:1166:15: warning: old-style function definition [-Wold-style-definition] 1166 | Double2Double(primCosDouble,cos(x)) /* Double cos (trig) primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1166:1: note: in expansion of macro 'Double2Double' 1166 | Double2Double(primCosDouble,cos(x)) /* Double cos (trig) primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primTanDouble': builtin.c:1167:15: warning: old-style function definition [-Wold-style-definition] 1167 | Double2Double(primTanDouble,tan(x)) /* Double tan (trig) primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1167:1: note: in expansion of macro 'Double2Double' 1167 | Double2Double(primTanDouble,tan(x)) /* Double tan (trig) primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primAsinDouble': builtin.c:1168:15: warning: old-style function definition [-Wold-style-definition] 1168 | Double2Double(primAsinDouble,asin(x)) /* Double arc sin (trig) primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1168:1: note: in expansion of macro 'Double2Double' 1168 | Double2Double(primAsinDouble,asin(x)) /* Double arc sin (trig) primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primAcosDouble': builtin.c:1169:15: warning: old-style function definition [-Wold-style-definition] 1169 | Double2Double(primAcosDouble,acos(x)) /* Double arc cos (trig) primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1169:1: note: in expansion of macro 'Double2Double' 1169 | Double2Double(primAcosDouble,acos(x)) /* Double arc cos (trig) primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primAtanDouble': builtin.c:1170:15: warning: old-style function definition [-Wold-style-definition] 1170 | Double2Double(primAtanDouble,atan(x)) /* Double arc tan (trig) primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1170:1: note: in expansion of macro 'Double2Double' 1170 | Double2Double(primAtanDouble,atan(x)) /* Double arc tan (trig) primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primExpDouble': builtin.c:1171:15: warning: old-style function definition [-Wold-style-definition] 1171 | Double2Double(primExpDouble,exp(x)) /* Double exponential primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1171:1: note: in expansion of macro 'Double2Double' 1171 | Double2Double(primExpDouble,exp(x)) /* Double exponential primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primLogDouble': builtin.c:1172:18: warning: old-style function definition [-Wold-style-definition] 1172 | Double2DoublePre(primLogDouble,log(x),x>0)/* Double logarithm primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1172:1: note: in expansion of macro 'Double2DoublePre' 1172 | Double2DoublePre(primLogDouble,log(x),x>0)/* Double logarithm primitive */ | ^~~~~~~~~~~~~~~~ builtin.c: In function 'primSqrtDouble': builtin.c:1173:18: warning: old-style function definition [-Wold-style-definition] 1173 | Double2DoublePre(primSqrtDouble,sqrt(x),x>=0) /* Double square root primitive */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1173:1: note: in expansion of macro 'Double2DoublePre' 1173 | Double2DoublePre(primSqrtDouble,sqrt(x),x>=0) /* Double square root primitive */ | ^~~~~~~~~~~~~~~~ builtin.c: In function 'primFloatToInt': builtin.c:1179:11: warning: old-style function definition [-Wold-style-definition] 1179 | Float2Int(primFloatToInt,(Int) x) /* Adhoc Float --> Int conversion */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1179:1: note: in expansion of macro 'Float2Int' 1179 | Float2Int(primFloatToInt,(Int) x) /* Adhoc Float --> Int conversion */ | ^~~~~~~~~ builtin.c: In function 'primDoubleToInt': builtin.c:1180:12: warning: old-style function definition [-Wold-style-definition] 1180 | Double2Int(primDoubleToInt,(Int) x) /* Adhoc Double --> Int conversion */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1180:1: note: in expansion of macro 'Double2Int' 1180 | Double2Int(primDoubleToInt,(Int) x) /* Adhoc Double --> Int conversion */ | ^~~~~~~~~~ builtin.c: In function 'primFloatRadix': builtin.c:1183:11: warning: old-style function definition [-Wold-style-definition] 1183 | CAFBignum(primFloatRadix,bigInt(HUGS_FLT_RADIX)) /* Float radix primitive */ | ^~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1183:1: note: in expansion of macro 'CAFBignum' 1183 | CAFBignum(primFloatRadix,bigInt(HUGS_FLT_RADIX)) /* Float radix primitive */ | ^~~~~~~~~ builtin.c: In function 'primFloatDigits': builtin.c:1188:8: warning: old-style function definition [-Wold-style-definition] 1188 | CAFInt(primFloatDigits,HUGS_FLT_MANT_DIG)/* Float sig. digits primitive */ | ^~~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1188:1: note: in expansion of macro 'CAFInt' 1188 | CAFInt(primFloatDigits,HUGS_FLT_MANT_DIG)/* Float sig. digits primitive */ | ^~~~~~ builtin.c: In function 'primFloatMinExp': builtin.c:1191:8: warning: old-style function definition [-Wold-style-definition] 1191 | CAFInt(primFloatMinExp,HUGS_FLT_MIN_EXP)/* Float min exponent primitive */ | ^~~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1191:1: note: in expansion of macro 'CAFInt' 1191 | CAFInt(primFloatMinExp,HUGS_FLT_MIN_EXP)/* Float min exponent primitive */ | ^~~~~~ builtin.c: In function 'primFloatMaxExp': builtin.c:1192:8: warning: old-style function definition [-Wold-style-definition] 1192 | CAFInt(primFloatMaxExp,HUGS_FLT_MAX_EXP)/* Float max exponent primitive */ | ^~~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1192:1: note: in expansion of macro 'CAFInt' 1192 | CAFInt(primFloatMaxExp,HUGS_FLT_MAX_EXP)/* Float max exponent primitive */ | ^~~~~~ builtin.c: In function 'primDoubleDigits': builtin.c:1194:8: warning: old-style function definition [-Wold-style-definition] 1194 | CAFInt(primDoubleDigits,HUGS_DBL_MANT_DIG)/* Double sig. digits primitive */ | ^~~~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1194:1: note: in expansion of macro 'CAFInt' 1194 | CAFInt(primDoubleDigits,HUGS_DBL_MANT_DIG)/* Double sig. digits primitive */ | ^~~~~~ builtin.c: In function 'primDoubleMinExp': builtin.c:1197:8: warning: old-style function definition [-Wold-style-definition] 1197 | CAFInt(primDoubleMinExp,HUGS_DBL_MIN_EXP)/* Double min exponent primitive */ | ^~~~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1197:1: note: in expansion of macro 'CAFInt' 1197 | CAFInt(primDoubleMinExp,HUGS_DBL_MIN_EXP)/* Double min exponent primitive */ | ^~~~~~ builtin.c: In function 'primDoubleMaxExp': builtin.c:1198:8: warning: old-style function definition [-Wold-style-definition] 1198 | CAFInt(primDoubleMaxExp,HUGS_DBL_MAX_EXP)/* Double max exponent primitive */ | ^~~~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1198:1: note: in expansion of macro 'CAFInt' 1198 | CAFInt(primDoubleMaxExp,HUGS_DBL_MAX_EXP)/* Double max exponent primitive */ | ^~~~~~ builtin.c: In function 'primFloatDecode': builtin.c:1201:9: warning: old-style function definition [-Wold-style-definition] 1201 | primFun(primFloatDecode) { /* Float decode primitive */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primFloatEncode': builtin.c:1217:9: warning: old-style function definition [-Wold-style-definition] 1217 | primFun(primFloatEncode) { /* Float encode primitive */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primDoubleDecode': builtin.c:1234:9: warning: old-style function definition [-Wold-style-definition] 1234 | primFun(primDoubleDecode) { /* Double decode primitive */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primDoubleEncode': builtin.c:1250:9: warning: old-style function definition [-Wold-style-definition] 1250 | primFun(primDoubleEncode) { /* Double encode primitive */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primNullPtr': builtin.c:1272:8: warning: old-style function definition [-Wold-style-definition] 1272 | CAFPtr(primNullPtr,0) /* Null pointer */ | ^~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1272:1: note: in expansion of macro 'CAFPtr' 1272 | CAFPtr(primNullPtr,0) /* Null pointer */ | ^~~~~~ builtin.c: In function 'primPlusPtr': builtin.c:1273:12: warning: old-style function definition [-Wold-style-definition] 1273 | PtrInt2Ptr(primPlusPtr,(char*)x+y) /* Pointer arithmetic */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1273:1: note: in expansion of macro 'PtrInt2Ptr' 1273 | PtrInt2Ptr(primPlusPtr,(char*)x+y) /* Pointer arithmetic */ | ^~~~~~~~~~ builtin.c: In function 'primAlignPtr': builtin.c:1274:12: warning: old-style function definition [-Wold-style-definition] 1274 | PtrInt2Ptr(primAlignPtr,(char*)x+(int)((y - (long)x%y)%y)) | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1274:1: note: in expansion of macro 'PtrInt2Ptr' 1274 | PtrInt2Ptr(primAlignPtr,(char*)x+(int)((y - (long)x%y)%y)) | ^~~~~~~~~~ builtin.c: In function 'primMinusPtr': builtin.c:1276:12: warning: old-style function definition [-Wold-style-definition] 1276 | PtrPtr2Int(primMinusPtr,(char*)x-(char*)y) /* Pointer arithmetic */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1276:1: note: in expansion of macro 'PtrPtr2Int' 1276 | PtrPtr2Int(primMinusPtr,(char*)x-(char*)y) /* Pointer arithmetic */ | ^~~~~~~~~~ builtin.c: In function 'primEqPtr': builtin.c:1277:13: warning: old-style function definition [-Wold-style-definition] 1277 | PtrPtr2Bool(primEqPtr,x==y) /* Pointer equality primitive */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1277:1: note: in expansion of macro 'PtrPtr2Bool' 1277 | PtrPtr2Bool(primEqPtr,x==y) /* Pointer equality primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primCmpPtr': builtin.c:1279:9: warning: old-style function definition [-Wold-style-definition] 1279 | primFun(primCmpPtr) { /* Pointer compare primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primEqInt': builtin.c:1292:13: warning: old-style function definition [-Wold-style-definition] 1292 | IntInt2Bool(primEqInt,x==y) /* Integer equality primitive */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1292:1: note: in expansion of macro 'IntInt2Bool' 1292 | IntInt2Bool(primEqInt,x==y) /* Integer equality primitive */ | ^~~~~~~~~~~ builtin.c: In function 'primEqWord': builtin.c:1293:15: warning: old-style function definition [-Wold-style-definition] 1293 | WordWord2Bool(primEqWord,x==y) /* Natural equality primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1293:1: note: in expansion of macro 'WordWord2Bool' 1293 | WordWord2Bool(primEqWord,x==y) /* Natural equality primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primEqChar': builtin.c:1294:15: warning: old-style function definition [-Wold-style-definition] 1294 | CharChar2Bool(primEqChar,x==y) /* Character equality primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1294:1: note: in expansion of macro 'CharChar2Bool' 1294 | CharChar2Bool(primEqChar,x==y) /* Character equality primitive */ | ^~~~~~~~~~~~~ builtin.c: In function 'primEqFloat': builtin.c:1295:17: warning: old-style function definition [-Wold-style-definition] 1295 | FloatFloat2Bool(primEqFloat, x==y) /* Float equality primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1295:1: note: in expansion of macro 'FloatFloat2Bool' 1295 | FloatFloat2Bool(primEqFloat, x==y) /* Float equality primitive */ | ^~~~~~~~~~~~~~~ builtin.c: In function 'primEqDouble': builtin.c:1296:19: warning: old-style function definition [-Wold-style-definition] 1296 | DoubleDouble2Bool(primEqDouble, x==y) /* Double equality primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1296:1: note: in expansion of macro 'DoubleDouble2Bool' 1296 | DoubleDouble2Bool(primEqDouble, x==y) /* Double equality primitive */ | ^~~~~~~~~~~~~~~~~ builtin.c: In function 'primCmpInt': builtin.c:1298:9: warning: old-style function definition [-Wold-style-definition] 1298 | primFun(primCmpInt) { /* Integer compare primitive */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primCmpWord': builtin.c:1307:9: warning: old-style function definition [-Wold-style-definition] 1307 | primFun(primCmpWord) { /* Natural compare primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primCmpChar': builtin.c:1316:9: warning: old-style function definition [-Wold-style-definition] 1316 | primFun(primCmpChar) { /* Character compare primitive */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primCmpFloat': builtin.c:1325:9: warning: old-style function definition [-Wold-style-definition] 1325 | primFun(primCmpFloat) { /* Float compare primitive */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primCmpDouble': builtin.c:1334:9: warning: old-style function definition [-Wold-style-definition] 1334 | primFun(primCmpDouble) { /* Double compare primitive */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ In file included from builtin.c:1347: printer.c: In function 'printerControl': printer.c:43:13: warning: old-style function definition [-Wold-style-definition] 43 | static Void printerControl(what) | ^~~~~~~~~~~~~~ printer.c: In function 'primPrint': printer.c:91:9: warning: old-style function definition [-Wold-style-definition] 91 | primFun(primPrint) { /* Evaluate and print term */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ printer.c: In function 'primBPrint': printer.c:107:9: warning: old-style function definition [-Wold-style-definition] 107 | primFun(primBPrint) { /* Eval and print value of basic */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ printer.c: In function 'primNPrint': printer.c:117:9: warning: old-style function definition [-Wold-style-definition] 117 | primFun(primNPrint) { /* print term without evaluation */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ printer.c: In function 'printer': printer.c:127:19: warning: old-style function definition [-Wold-style-definition] 127 | static Void local printer(pr,d) /* Main part: primPrint/primNPrint */ | ^~~~~~~ printer.c: In function 'primLPrint': printer.c:387:9: warning: old-style function definition [-Wold-style-definition] 387 | primFun(primLPrint) { /* evaluate and print list */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ printer.c: In function 'primNLPrint': printer.c:409:9: warning: old-style function definition [-Wold-style-definition] 409 | primFun(primNLPrint) { /* print list without evaluation */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ printer.c: In function 'primSPrint': printer.c:426:9: warning: old-style function definition [-Wold-style-definition] 426 | primFun(primSPrint) { /* evaluate and print string */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ printer.c: In function 'primNSPrint': printer.c:462:9: warning: old-style function definition [-Wold-style-definition] 462 | primFun(primNSPrint) { /* print string without eval */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ printer.c: In function 'outName': printer.c:490:19: warning: old-style function definition [-Wold-style-definition] 490 | static Void local outName(nm) /* output nm using parent field if possible */ | ^~~~~~~ printer.c: In function 'outVar': printer.c:516:19: warning: old-style function definition [-Wold-style-definition] 516 | static Void local outVar(nm) /* output nm as function symbol */ | ^~~~~~ printer.c: In function 'outOp': printer.c:528:19: warning: old-style function definition [-Wold-style-definition] 528 | static Void local outOp(nm) /* output nm as operator symbol */ | ^~~~~ printer.c: In function 'outStr': printer.c:540:19: warning: old-style function definition [-Wold-style-definition] 540 | static Void local outStr(s) /* output string s */ | ^~~~~~ printer.c: In function 'outPr': printer.c:546:19: warning: old-style function definition [-Wold-style-definition] 546 | static Void local outPr(pr,d,e) /* output expr e with printer pr, */ | ^~~~~ printer.c: In function 'outLPr': printer.c:555:19: warning: old-style function definition [-Wold-style-definition] 555 | static Void local outLPr(pr,xs) /* output list xs with printer pr */ | ^~~~~~ printer.c: In function 'outException': printer.c:562:19: warning: old-style function definition [-Wold-style-definition] 562 | static Void local outException(ex) /* Produce expr to print exception */ | ^~~~~~~~~~~~ printer.c: In function 'outBadRedex': printer.c:575:19: warning: old-style function definition [-Wold-style-definition] 575 | static Void local outBadRedex(rx) /* Produce expr to print bad redex */ | ^~~~~~~~~~~ printer.c: In function 'printDException': printer.c:582:19: warning: old-style function definition [-Wold-style-definition] 582 | static Cell local printDException(ex) /* Produce expression for exception*/ | ^~~~~~~~~~~~~~~ printer.c: In function 'printException': printer.c:590:19: warning: old-style function definition [-Wold-style-definition] 590 | static Cell local printException(ex,rs) /* produce expression for exception*/ | ^~~~~~~~~~~~~~ printer.c: In function 'abandon': printer.c:597:6: warning: old-style function definition [-Wold-style-definition] 597 | Void abandon(what,ex) /* abandon computation */ | ^~~~~~~ builtin.c: In function 'evalName': builtin.c:1359:8: warning: old-style function definition [-Wold-style-definition] 1359 | String evalName(es) /* evaluate es :: [Char] and save */ | ^~~~~~~~ builtin.c: In function 'outputString': builtin.c:1383:6: warning: old-style function definition [-Wold-style-definition] 1383 | Void outputString(fp) /* Evaluate string on top of stack */ | ^~~~~~~~~~~~ In file included from builtin.c:1414: iomonad.c: In function 'iomonadControl': iomonad.c:63:13: warning: old-style function definition [-Wold-style-definition] 63 | static Void iomonadControl(what) | ^~~~~~~~~~~~~~ iomonad.c: In function 'primReturnIO': iomonad.c:338:9: warning: old-style function definition [-Wold-style-definition] 338 | primFun(primReturnIO) { /* IO monad unit */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primBindIO': iomonad.c:342:9: warning: old-style function definition [-Wold-style-definition] 342 | primFun(primBindIO) { /* IO monad bind */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primPass': iomonad.c:348:9: warning: old-style function definition [-Wold-style-definition] 348 | primFun(primPass) { /* Auxiliary function */ | ^~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'newHandle': iomonad.c:360:11: warning: old-style function definition [-Wold-style-definition] 360 | Int local newHandle(sCell,loc) /* return a free Handle or throw an IOError */ | ^~~~~~~~~ iomonad.c: In function 'modeString': iomonad.c:397:14: warning: old-style function definition [-Wold-style-definition] 397 | String local modeString(hmode,binary) /* return mode string for f(d)open */ | ^~~~~~~~~~ iomonad.c: In function 'openHandle': iomonad.c:414:12: warning: old-style function definition [-Wold-style-definition] 414 | Cell local openHandle(root,sCell,hmode,binary,loc) /* open handle to file named s in */ | ^~~~~~~~~~ iomonad.c: In function 'openFdHandle': iomonad.c:462:12: warning: old-style function definition [-Wold-style-definition] 462 | Cell local openFdHandle(root,fd,hmode,binary,loc) /* open handle to file desc fd in */ | ^~~~~~~~~~~~ iomonad.c: In function 'pushString': iomonad.c:599:6: warning: old-style function definition [-Wold-style-definition] 599 | Void pushString(s) /* push pointer to string onto stack */ | ^~~~~~~~~~ iomonad.c: In function 'mkIOError': iomonad.c:620:1: warning: old-style function definition [-Wold-style-definition] 620 | mkIOError(mbH, kind, loc, desc, mbF) | ^~~~~~~~~ iomonad.c: In function 'toIOError': iomonad.c:655:19: warning: old-style function definition [-Wold-style-definition] 655 | static Name local toIOError(errc) | ^~~~~~~~~ iomonad.c: In function 'toIOErrorDescr': iomonad.c:683:21: warning: old-style function definition [-Wold-style-definition] 683 | static String local toIOErrorDescr(errc,isFile) | ^~~~~~~~~~~~~~ iomonad.c: In function 'primGC': iomonad.c:713:9: warning: old-style function definition [-Wold-style-definition] 713 | primFun(primGC) { /* force a GC right now */ | ^~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primGetRandomSeed': iomonad.c:721:9: warning: old-style function definition [-Wold-style-definition] 721 | primFun(primGetRandomSeed) { /* generate a random seed */ | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primGetEnv': iomonad.c:734:9: warning: old-style function definition [-Wold-style-definition] 734 | primFun(primGetEnv) { /* primGetEnv :: String -> IO String */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primSystem': iomonad.c:766:9: warning: old-style function definition [-Wold-style-definition] 766 | primFun(primSystem) { /* primSystem :: String -> IO Int */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'setHugsArgs': iomonad.c:780:6: warning: old-style function definition [-Wold-style-definition] 780 | Void setHugsArgs(argc,argv) | ^~~~~~~~~~~ iomonad.c: In function 'primGetProgName': iomonad.c:796:9: warning: old-style function definition [-Wold-style-definition] 796 | primFun(primGetProgName) { /* primGetProgName :: IO String */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primGetArgs': iomonad.c:800:9: warning: old-style function definition [-Wold-style-definition] 800 | primFun(primGetArgs) { /* primGetArgs :: IO [String] */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primSetProgName': iomonad.c:804:9: warning: old-style function definition [-Wold-style-definition] 804 | primFun(primSetProgName) { /* primSetProgName :: String -> IO () */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primSetArgs': iomonad.c:809:9: warning: old-style function definition [-Wold-style-definition] 809 | primFun(primSetArgs) { /* primSetArgs :: [String] -> IO () */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHGetChar': iomonad.c:827:9: warning: old-style function definition [-Wold-style-definition] 827 | primFun(primHGetChar) { /* Read character from handle */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHPutChar': iomonad.c:846:9: warning: old-style function definition [-Wold-style-definition] 846 | primFun(primHPutChar) { /* print character on handle */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHPutStr': iomonad.c:858:9: warning: old-style function definition [-Wold-style-definition] 858 | primFun(primHPutStr) { /* print string on handle */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHreader': iomonad.c:881:9: warning: old-style function definition [-Wold-style-definition] 881 | primFun(primHreader) { /* read String from a handle */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHContents': iomonad.c:895:9: warning: old-style function definition [-Wold-style-definition] 895 | primFun(primHContents) { /* hGetContents :: Handle -> IO Str*/ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'getIOMode': iomonad.c:905:18: warning: old-style function definition [-Wold-style-definition] 905 | static int local getIOMode(mode) /* From IOMode to internal form */ | ^~~~~~~~~ iomonad.c: In function 'fopenPrim': iomonad.c:924:19: warning: old-style function definition [-Wold-style-definition] 924 | static Void local fopenPrim(root,binary,loc)/* Auxiliary function for */ | ^~~~~~~~~ iomonad.c: In function 'primOpenFile': iomonad.c:941:9: warning: old-style function definition [-Wold-style-definition] 941 | primFun(primOpenFile) { /* open handle to a text file */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primOpenBinaryFile': iomonad.c:945:9: warning: old-style function definition [-Wold-style-definition] 945 | primFun(primOpenBinaryFile) { /* open handle to a binary file */ | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primStdin': iomonad.c:949:9: warning: old-style function definition [-Wold-style-definition] 949 | primFun(primStdin) { /* Standard input handle */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primStdout': iomonad.c:953:9: warning: old-style function definition [-Wold-style-definition] 953 | primFun(primStdout) { /* Standard output handle */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primStderr': iomonad.c:957:9: warning: old-style function definition [-Wold-style-definition] 957 | primFun(primStderr) { /* Standard error handle */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primOpenFd': iomonad.c:961:9: warning: old-style function definition [-Wold-style-definition] 961 | primFun(primOpenFd) { /* open handle to file descriptor. */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHandleToFd': iomonad.c:1000:9: warning: old-style function definition [-Wold-style-definition] 1000 | primFun(primHandleToFd) { | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHIsEOF': iomonad.c:1028:9: warning: old-style function definition [-Wold-style-definition] 1028 | primFun(primHIsEOF) { /* Test for end of file on handle */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHFlush': iomonad.c:1061:9: warning: old-style function definition [-Wold-style-definition] 1061 | primFun(primHFlush) { /* Flush handle */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHClose': iomonad.c:1069:9: warning: old-style function definition [-Wold-style-definition] 1069 | primFun(primHClose) { /* Close handle */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHGetPosn': iomonad.c:1085:9: warning: old-style function definition [-Wold-style-definition] 1085 | primFun(primHGetPosn) { /* Get file position */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHSetPosn': iomonad.c:1102:9: warning: old-style function definition [-Wold-style-definition] 1102 | primFun(primHSetPosn) { /* Set file position */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHSeek': iomonad.c:1126:9: warning: old-style function definition [-Wold-style-definition] 1126 | primFun(primHSeek) { /* Seek to new file posn */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHLookAhead': iomonad.c:1152:9: warning: old-style function definition [-Wold-style-definition] 1152 | primFun(primHLookAhead) { /* Peek at the next char */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHSetBuffering': iomonad.c:1187:9: warning: old-style function definition [-Wold-style-definition] 1187 | primFun(primHSetBuffering) { /* Change a Handle's buffering */ | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHGetBuffering': iomonad.c:1239:9: warning: old-style function definition [-Wold-style-definition] 1239 | primFun(primHGetBuffering) { /* Return buffering info of a handle. */ | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHIsOpen': iomonad.c:1268:9: warning: old-style function definition [-Wold-style-definition] 1268 | primFun(primHIsOpen) { /* Test is handle open */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHIsClosed': iomonad.c:1275:9: warning: old-style function definition [-Wold-style-definition] 1275 | primFun(primHIsClosed) { /* Test is handle closed */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHIsReadable': iomonad.c:1281:9: warning: old-style function definition [-Wold-style-definition] 1281 | primFun(primHIsReadable) { /* Test is handle readable */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHIsWritable': iomonad.c:1287:9: warning: old-style function definition [-Wold-style-definition] 1287 | primFun(primHIsWritable) { /* Test is handle writable */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHIsSeekable': iomonad.c:1297:9: warning: old-style function definition [-Wold-style-definition] 1297 | primFun(primHIsSeekable) { /* Test if handle is writable */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHFileSize': iomonad.c:1321:9: warning: old-style function definition [-Wold-style-definition] 1321 | primFun(primHFileSize) { /* If handle points to a regular file, | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primEqHandle': iomonad.c:1352:9: warning: old-style function definition [-Wold-style-definition] 1352 | primFun(primEqHandle) { /* Test for handle equality */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primGetHandleNumber': iomonad.c:1359:9: warning: old-style function definition [-Wold-style-definition] 1359 | primFun(primGetHandleNumber) { | ^~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHSetBinaryMode': iomonad.c:1365:9: warning: old-style function definition [-Wold-style-definition] 1365 | primFun(primHSetBinaryMode) { | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHPutBuf': iomonad.c:1381:9: warning: old-style function definition [-Wold-style-definition] 1381 | primFun(primHPutBuf) { /* write binary data from a buffer */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHGetBuf': iomonad.c:1419:9: warning: old-style function definition [-Wold-style-definition] 1419 | primFun(primHGetBuf) { /* read binary data into a buffer */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHWaitForInput': iomonad.c:1453:9: warning: old-style function definition [-Wold-style-definition] 1453 | primFun(primHWaitForInput) { /* Check whether a character can be read | ^~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHIsTerminalDevice': iomonad.c:1502:9: warning: old-style function definition [-Wold-style-definition] 1502 | primFun(primHIsTerminalDevice) { /* Does the handle refer to a terminal? */ | ^~~~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHGetEcho': iomonad.c:1513:9: warning: old-style function definition [-Wold-style-definition] 1513 | primFun(primHGetEcho) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHSetEcho': iomonad.c:1526:9: warning: old-style function definition [-Wold-style-definition] 1526 | primFun(primHSetEcho) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primNewRef': iomonad.c:1555:9: warning: old-style function definition [-Wold-style-definition] 1555 | primFun(primNewRef) { /* a -> IO (Ref a) */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primDerefRef': iomonad.c:1559:9: warning: old-style function definition [-Wold-style-definition] 1559 | primFun(primDerefRef) { /* Ref a -> IO a */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primAssignRef': iomonad.c:1565:9: warning: old-style function definition [-Wold-style-definition] 1565 | primFun(primAssignRef) { /* Ref a -> a -> IO () */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primEqRef': iomonad.c:1572:9: warning: old-style function definition [-Wold-style-definition] 1572 | primFun(primEqRef) { /* Ref a -> Ref a -> Bool */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primMakeSP': iomonad.c:1603:9: warning: old-style function definition [-Wold-style-definition] 1603 | primFun(primMakeSP) { /* a -> IO (StablePtr a) */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primDerefSP': iomonad.c:1615:9: warning: old-style function definition [-Wold-style-definition] 1615 | primFun(primDerefSP) { /* StablePtr a -> IO a */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primFreeSP': iomonad.c:1622:9: warning: old-style function definition [-Wold-style-definition] 1622 | primFun(primFreeSP) { /* StablePtr a -> IO () */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primCastSPToP': iomonad.c:1629:9: warning: old-style function definition [-Wold-style-definition] 1629 | primFun(primCastSPToP) { /* StablePtr a -> Ptr () */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c:1632:15: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1632 | PtrResult((Pointer)x); | ^ builtin.h:37:52: note: in definition of macro 'update' 37 | #define update(l,r) ((snd(stack(root))=r),(fst(stack(root))=l)) | ^ builtin.h:83:4: note: in expansion of macro 'updateRoot' 83 | updateRoot(mkPtr(nm)) | ^~~~~~~~~~ iomonad.c:1632:5: note: in expansion of macro 'PtrResult' 1632 | PtrResult((Pointer)x); | ^~~~~~~~~ iomonad.c: In function 'primCastPToSP': iomonad.c:1635:9: warning: old-style function definition [-Wold-style-definition] 1635 | primFun(primCastPToSP) { /* Ptr () -> StablePtr a */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c:1600:21: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 1600 | updateRoot(mkInt((Int)(nm))) | ^ builtin.h:37:52: note: in definition of macro 'update' 37 | #define update(l,r) ((snd(stack(root))=r),(fst(stack(root))=l)) | ^ iomonad.c:1600:4: note: in expansion of macro 'updateRoot' 1600 | updateRoot(mkInt((Int)(nm))) | ^~~~~~~~~~ iomonad.c:1638:5: note: in expansion of macro 'SPResult' 1638 | SPResult((HsStablePtr)x); | ^~~~~~~~ iomonad.c: In function 'primNewFP': iomonad.c:1653:9: warning: old-style function definition [-Wold-style-definition] 1653 | primFun(primNewFP) { /* Ptr a -> IO (ForeignPtr a) */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primAddFPF': iomonad.c:1660:9: warning: old-style function definition [-Wold-style-definition] 1660 | primFun(primAddFPF) { /* FunPtr (Ptr a -> IO ()) -> ForeignPtr a -> IO () */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primAddFPFEnv': iomonad.c:1669:9: warning: old-style function definition [-Wold-style-definition] 1669 | primFun(primAddFPFEnv) { /* FunPtr (Ptr env -> Ptr a -> IO ()) -> */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primWriteFP': iomonad.c:1681:9: warning: old-style function definition [-Wold-style-definition] 1681 | primFun(primWriteFP) { /* ForeignPtr a -> Ptr a -> IO () */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primEqFP': iomonad.c:1691:9: warning: old-style function definition [-Wold-style-definition] 1691 | primFun(primEqFP) { /* ForeignPtr a -> ForeignPtr a -> Bool */ | ^~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primTouchFP': iomonad.c:1700:9: warning: old-style function definition [-Wold-style-definition] 1700 | primFun(primTouchFP) { /* ForeignPtr a -> IO () */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primFPToP': iomonad.c:1706:9: warning: old-style function definition [-Wold-style-definition] 1706 | primFun(primFPToP) { /* ForeignPtr a -> Ptr a */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primMakeSN': iomonad.c:1717:9: warning: old-style function definition [-Wold-style-definition] 1717 | primFun(primMakeSN) { /* a -> IO (StableName a) */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primDerefSN': iomonad.c:1721:9: warning: old-style function definition [-Wold-style-definition] 1721 | primFun(primDerefSN) { /* StableName a -> a */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primHashSN': iomonad.c:1726:9: warning: old-style function definition [-Wold-style-definition] 1726 | primFun(primHashSN) { /* StableName a -> Int */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primEqSN': iomonad.c:1730:9: warning: old-style function definition [-Wold-style-definition] 1730 | primFun(primEqSN) { /* StableName a -> StableName a -> Bool */ | ^~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primWeakPtrEq': iomonad.c:1749:9: warning: old-style function definition [-Wold-style-definition] 1749 | primFun(primWeakPtrEq) { /* Weak a -> Weak a -> Bool */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primMkWeak': iomonad.c:1756:9: warning: old-style function definition [-Wold-style-definition] 1756 | primFun(primMkWeak) { /* k -> v -> Maybe (IO ()) */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primDeRefWeak': iomonad.c:1770:9: warning: old-style function definition [-Wold-style-definition] 1770 | primFun(primDeRefWeak) { /* Weak v -> IO (Maybe v) */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primReplaceFinalizer': iomonad.c:1782:9: warning: old-style function definition [-Wold-style-definition] 1782 | primFun(primReplaceFinalizer) { /* Weak v -> Maybe (IO ()) */ | ^~~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primFinalize': iomonad.c:1801:9: warning: old-style function definition [-Wold-style-definition] 1801 | primFun(primFinalize) { /* Weak v -> IO () */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primRunFinalizer': iomonad.c:1823:9: warning: old-style function definition [-Wold-style-definition] 1823 | primFun(primRunFinalizer) { /* IO () */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primFinalizerWaiting': iomonad.c:1833:9: warning: old-style function definition [-Wold-style-definition] 1833 | primFun(primFinalizerWaiting) { /* IO Boolean */ | ^~~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primIOEql': iomonad.c:1874:9: warning: old-style function definition [-Wold-style-definition] 1874 | primFun(primIOEql) { /* :: Eval a => a -> a -> ST Mem Bool */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ iomonad.c: In function 'primIOHash': iomonad.c:1892:9: warning: old-style function definition [-Wold-style-definition] 1892 | primFun(primIOHash) { /* :: Eval a => a -> ST Mem Int */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ In file included from builtin.c:1422: timeprim.c: In function 'timeControl': timeprim.c:14:13: warning: old-style function definition [-Wold-style-definition] 14 | static Void timeControl(what) | ^~~~~~~~~~~ timeprim.c: In function 'primGetClockTime': timeprim.c:46:9: warning: old-style function definition [-Wold-style-definition] 46 | primFun(primGetClockTime) { /* :: IO (Int,Int) */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ timeprim.c: In function 'primGetCalTime': timeprim.c:91:9: warning: old-style function definition [-Wold-style-definition] 91 | primFun(primGetCalTime) { /* Int -> Int -> IO (.....) */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ timeprim.c: In function 'primMkTime': timeprim.c:166:9: warning: old-style function definition [-Wold-style-definition] 166 | primFun(primMkTime) { /* Int{-year-} -> Int{-month-} -> Int{-day-} -> | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ timeprim.c: In function 'primClockTicks': timeprim.c:234:8: warning: old-style function definition [-Wold-style-definition] 234 | CAFInt(primClockTicks, CLK_TCK) | ^~~~~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ timeprim.c:234:1: note: in expansion of macro 'CAFInt' 234 | CAFInt(primClockTicks, CLK_TCK) | ^~~~~~ timeprim.c: In function 'primGetCPUUsage': timeprim.c:245:9: warning: old-style function definition [-Wold-style-definition] 245 | primFun(primGetCPUUsage) { /* IO (Int,Int,Int,Int) */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ In file included from builtin.c:1430: dirprim.c: In function 'dirControl': dirprim.c:14:13: warning: old-style function definition [-Wold-style-definition] 14 | static Void dirControl(what) | ^~~~~~~~~~ dirprim.c: In function 'primCreateDirectory': dirprim.c:91:9: warning: old-style function definition [-Wold-style-definition] 91 | primFun(primCreateDirectory) { /* create a directory, :: String -> IO () */ | ^~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primRemoveDirectory': dirprim.c:113:9: warning: old-style function definition [-Wold-style-definition] 113 | primFun(primRemoveDirectory) { /* remove a directory */ | ^~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primRemoveFile': dirprim.c:132:9: warning: old-style function definition [-Wold-style-definition] 132 | primFun(primRemoveFile) { /* remove a file */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primRenameDirectory': dirprim.c:163:9: warning: old-style function definition [-Wold-style-definition] 163 | primFun(primRenameDirectory) { /* rename a directory */ | ^~~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primRenameFile': dirprim.c:199:9: warning: old-style function definition [-Wold-style-definition] 199 | primFun(primRenameFile) { /* rename a file */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primGetDirectory': dirprim.c:254:9: warning: old-style function definition [-Wold-style-definition] 254 | primFun(primGetDirectory) { /* IO String - get current directory. */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primSetDirectory': dirprim.c:262:9: warning: old-style function definition [-Wold-style-definition] 262 | primFun(primSetDirectory) { /* String -> IO () - set current directory. */ | ^~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primFileExist': dirprim.c:281:9: warning: old-style function definition [-Wold-style-definition] 281 | primFun(primFileExist) { /* FilePath -> IO Bool - check to see if file exists. */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primDirExist': dirprim.c:299:9: warning: old-style function definition [-Wold-style-definition] 299 | primFun(primDirExist) { /* FilePath -> IO Bool - check to see if directory exists. */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'isDirectory': dirprim.c:312:19: warning: old-style function definition [-Wold-style-definition] 312 | static Bool local isDirectory(s) | ^~~~~~~~~~~ dirprim.c: In function 'primGetPermissions': dirprim.c:332:9: warning: old-style function definition [-Wold-style-definition] 332 | primFun(primGetPermissions) { /* FilePath -> IO (Bool,Bool,Bool,Bool) */ | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primSetPermissions': dirprim.c:395:9: warning: old-style function definition [-Wold-style-definition] 395 | primFun(primSetPermissions) { /* FilePath -> Bool -> Bool -> Bool -> Bool -> IO () */ | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primGetDirContents': dirprim.c:448:9: warning: old-style function definition [-Wold-style-definition] 448 | primFun(primGetDirContents) { /* FilePath -> IO [FilePath] */ | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ dirprim.c: In function 'primGetModTime': dirprim.c:578:9: warning: old-style function definition [-Wold-style-definition] 578 | primFun(primGetModTime) { /* FilePath -> IO Int{-time_t-} - get the mod. time of the file/directory. */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ In file included from builtin.c:1447: array.c: In function 'arrayControl': array.c:64:13: warning: old-style function definition [-Wold-style-definition] 64 | static Void arrayControl(what) | ^~~~~~~~~~~~ array.c: In function 'primArray': array.c:249:9: warning: old-style function definition [-Wold-style-definition] 249 | primFun(primArray) { /* :: (a,a) */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primUpdate': array.c:257:9: warning: old-style function definition [-Wold-style-definition] 257 | primFun(primUpdate) { /* :: [(Int,b)] */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primAccum': array.c:266:9: warning: old-style function definition [-Wold-style-definition] 266 | primFun(primAccum) { /* :: [(Int,c)] -> Array a b */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primAccumArray': array.c:274:9: warning: old-style function definition [-Wold-style-definition] 274 | primFun(primAccumArray) { /* :: (a,a) -> Int */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primAmap': array.c:281:9: warning: old-style function definition [-Wold-style-definition] 281 | primFun(primAmap) { /* :: (a -> b) */ | ^~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primSubscript': array.c:289:9: warning: old-style function definition [-Wold-style-definition] 289 | primFun(primSubscript) { /* :: Array a b -> Int -> b */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primBounds': array.c:296:9: warning: old-style function definition [-Wold-style-definition] 296 | primFun(primBounds) { /* :: Array a b -> (a,a) */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primElems': array.c:301:9: warning: old-style function definition [-Wold-style-definition] 301 | primFun(primElems) { /* :: Array a b -> [b] */ | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primEltUndef': array.c:307:9: warning: old-style function definition [-Wold-style-definition] 307 | primFun(primEltUndef) { | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primIONewArr': array.c:312:9: warning: old-style function definition [-Wold-style-definition] 312 | primFun(primIONewArr) { /* :: (a,a) */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primIOReadArr': array.c:318:9: warning: old-style function definition [-Wold-style-definition] 318 | primFun(primIOReadArr) { /* :: IOArray a b -> Int -> IO b */ | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primIOWriteArr': array.c:325:9: warning: old-style function definition [-Wold-style-definition] 325 | primFun(primIOWriteArr) { /* :: IOArray a b -> Int -> b */ | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primIOFreeze': array.c:332:9: warning: old-style function definition [-Wold-style-definition] 332 | primFun(primIOFreeze) { /* :: IOArray a b */ | ^~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ array.c: In function 'primIOArrEq': array.c:339:9: warning: old-style function definition [-Wold-style-definition] 339 | primFun(primIOArrEq) { /* :: IOArray a b */ | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primMaxChar': builtin.c:1454:9: warning: old-style function definition [-Wold-style-definition] 1454 | CAFChar(primMaxChar,MAXCHARVAL) | ^~~~~~~~~~~ builtin.h:27:43: note: in definition of macro 'primCAF' 27 | #define primCAF(name) static Void name(root) StackPtr root HUGS_unused; | ^~~~ builtin.c:1454:1: note: in expansion of macro 'CAFChar' 1454 | CAFChar(primMaxChar,MAXCHARVAL) | ^~~~~~~ builtin.c: In function 'primIsUpper': builtin.c:1456:11: warning: old-style function definition [-Wold-style-definition] 1456 | Char2Bool(primIsUpper,isUpper(x)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1456:1: note: in expansion of macro 'Char2Bool' 1456 | Char2Bool(primIsUpper,isUpper(x)) | ^~~~~~~~~ builtin.c: In function 'primIsLower': builtin.c:1457:11: warning: old-style function definition [-Wold-style-definition] 1457 | Char2Bool(primIsLower,isLower(x)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1457:1: note: in expansion of macro 'Char2Bool' 1457 | Char2Bool(primIsLower,isLower(x)) | ^~~~~~~~~ builtin.c: In function 'primIsAlpha': builtin.c:1458:11: warning: old-style function definition [-Wold-style-definition] 1458 | Char2Bool(primIsAlpha,isAlpha(x)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1458:1: note: in expansion of macro 'Char2Bool' 1458 | Char2Bool(primIsAlpha,isAlpha(x)) | ^~~~~~~~~ builtin.c: In function 'primIsAlphaNum': builtin.c:1459:11: warning: old-style function definition [-Wold-style-definition] 1459 | Char2Bool(primIsAlphaNum,isAlphaNum(x)) | ^~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1459:1: note: in expansion of macro 'Char2Bool' 1459 | Char2Bool(primIsAlphaNum,isAlphaNum(x)) | ^~~~~~~~~ builtin.c: In function 'primIsPrint': builtin.c:1460:11: warning: old-style function definition [-Wold-style-definition] 1460 | Char2Bool(primIsPrint,isPrint(x)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1460:1: note: in expansion of macro 'Char2Bool' 1460 | Char2Bool(primIsPrint,isPrint(x)) | ^~~~~~~~~ builtin.c: In function 'primToLower': builtin.c:1462:11: warning: old-style function definition [-Wold-style-definition] 1462 | Char2Char(primToLower,toLower(x)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1462:1: note: in expansion of macro 'Char2Char' 1462 | Char2Char(primToLower,toLower(x)) | ^~~~~~~~~ builtin.c: In function 'primToUpper': builtin.c:1463:11: warning: old-style function definition [-Wold-style-definition] 1463 | Char2Char(primToUpper,toUpper(x)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1463:1: note: in expansion of macro 'Char2Char' 1463 | Char2Char(primToUpper,toUpper(x)) | ^~~~~~~~~ builtin.c: In function 'primToTitle': builtin.c:1464:11: warning: old-style function definition [-Wold-style-definition] 1464 | Char2Char(primToTitle,toTitle(x)) | ^~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1464:1: note: in expansion of macro 'Char2Char' 1464 | Char2Char(primToTitle,toTitle(x)) | ^~~~~~~~~ builtin.c: In function 'primUniGenCat': builtin.c:1466:10: warning: old-style function definition [-Wold-style-definition] 1466 | Char2Int(primUniGenCat,uni_gencat(x)) | ^~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c:1466:1: note: in expansion of macro 'Char2Int' 1466 | Char2Int(primUniGenCat,uni_gencat(x)) | ^~~~~~~~ builtin.c: In function 'primRecExt': builtin.c:1473:9: warning: old-style function definition [-Wold-style-definition] 1473 | primFun(primRecExt) { /* :: Int -> a -> Rec ? -> Rec ? */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primRecBrk': builtin.c:1488:9: warning: old-style function definition [-Wold-style-definition] 1488 | primFun(primRecBrk) { /* :: Int -> Rec ? -> (?, Rec ?) */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primRecSel': builtin.c:1505:9: warning: old-style function definition [-Wold-style-definition] 1505 | primFun(primRecSel) { /* :: Int -> Rec ? -> ? */ | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primRecShw': builtin.c:1526:9: warning: old-style function definition [-Wold-style-definition] 1526 | primFun(primRecShw) { | ^~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primRecEq': builtin.c:1554:9: warning: old-style function definition [-Wold-style-definition] 1554 | primFun(primRecEq) { | ^~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'followInd': builtin.c:1579:19: warning: old-style function definition [-Wold-style-definition] 1579 | static Cell local followInd(c) /* follow chain of indirections and CAFs */ | ^~~~~~~~~ builtin.c: In function 'primUnsafePtrEq': builtin.c:1625:9: warning: old-style function definition [-Wold-style-definition] 1625 | primFun(primUnsafePtrEq) { /* Unsafe pointer equality test */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'primUnsafePtrToInt': builtin.c:1636:9: warning: old-style function definition [-Wold-style-definition] 1636 | primFun(primUnsafePtrToInt) { | ^~~~~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'lookupName': builtin.c:1738:23: warning: old-style function definition [-Wold-style-definition] 1738 | static HugsStablePtr lookupName(q,n) | ^~~~~~~~~~ In file included from builtin.c:20: builtin.c: In function 'putStablePtr4': builtin.c:1777:10: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 1777 | push((HugsStablePtr)x); | ^ storage.h:1109:35: note: in definition of macro 'onto' 1109 | #define onto(c) stack(++sp)=(c) | ^ builtin.c:1777:5: note: in expansion of macro 'push' 1777 | push((HugsStablePtr)x); | ^~~~ builtin.c: In function 'getStablePtr4': builtin.c:1782:12: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast] 1782 | return (HsStablePtr)x; | ^ builtin.c: In function 'freeStablePtr4': builtin.c:1786:26: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast] 1786 | if (x) freeStablePtr((HugsStablePtr)x); | ^ builtin.c: In function 'returnIO': builtin.c:1805:13: warning: old-style function definition [-Wold-style-definition] 1805 | static void returnIO(root,n) /* return in IO monad */ | ^~~~~~~~ builtin.c: In function 'returnId': builtin.c:1824:13: warning: old-style function definition [-Wold-style-definition] 1824 | static void returnId(root,n) /* return in identity monad */ | ^~~~~~~~ builtin.c: In function 'runIO': builtin.c:1863:12: warning: old-style function definition [-Wold-style-definition] 1863 | static int runIO(n) | ^~~~~ builtin.c: In function 'apMany': builtin.c:1894:13: warning: old-style function definition [-Wold-style-definition] 1894 | static void apMany(n) | ^~~~~~ builtin.c: In function 'runId': builtin.c:1908:12: warning: old-style function definition [-Wold-style-definition] 1908 | static int runId(n) | ^~~~~ builtin.c: In function 'primFreeHFunPtr': builtin.c:2218:9: warning: old-style function definition [-Wold-style-definition] 2218 | primFun(primFreeHFunPtr) { /* :: FunPtr a -> IO () */ | ^~~~~~~~~~~~~~~ builtin.h:25:43: note: in definition of macro 'primFun' 25 | #define primFun(name) static Void name(root) StackPtr root; | ^~~~ builtin.c: In function 'builtinControl': builtin.c:2398:13: warning: old-style function definition [-Wold-style-definition] 2398 | static Void builtinControl(what) | ^~~~~~~~~~~~~~ builtin.c: In function 'builtIn': builtin.c:2403:6: warning: old-style function definition [-Wold-style-definition] 2403 | Void builtIn(what) | ^~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses compiler.c compiler.c: In function 'translate': compiler.c:114:19: warning: old-style function definition [-Wold-style-definition] 114 | static Cell local translate(e) /* Translate expression: */ | ^~~~~~~~~ compiler.c: In function 'transPair': compiler.c:227:19: warning: old-style function definition [-Wold-style-definition] 227 | static Void local transPair(pr) /* Translate each component in a */ | ^~~~~~~~~ compiler.c: In function 'transTriple': compiler.c:233:19: warning: old-style function definition [-Wold-style-definition] 233 | static Void local transTriple(tr) /* Translate each component in a */ | ^~~~~~~~~~~ compiler.c: In function 'transAlt': compiler.c:240:19: warning: old-style function definition [-Wold-style-definition] 240 | static Void local transAlt(e) /* Translate alt: */ | ^~~~~~~~ compiler.c: In function 'transCase': compiler.c:245:19: warning: old-style function definition [-Wold-style-definition] 245 | static Void local transCase(c) /* Translate case: */ | ^~~~~~~~~ compiler.c: In function 'transBinds': compiler.c:251:19: warning: old-style function definition [-Wold-style-definition] 251 | static List local transBinds(bs) /* Translate list of bindings: */ | ^~~~~~~~~~ compiler.c: In function 'transRhs': compiler.c:275:19: warning: old-style function definition [-Wold-style-definition] 275 | static Cell local transRhs(rhs) /* Translate rhs: removing line nos */ | ^~~~~~~~ compiler.c: In function 'mkConsList': compiler.c:289:19: warning: old-style function definition [-Wold-style-definition] 289 | static Cell local mkConsList(es) /* Construct expression for list es */ | ^~~~~~~~~~ compiler.c: In function 'expandLetrec': compiler.c:297:19: warning: old-style function definition [-Wold-style-definition] 297 | static Cell local expandLetrec(root) /* translate LETREC with list of */ | ^~~~~~~~~~~~ compiler.c: In function 'transComp': compiler.c:332:19: warning: old-style function definition [-Wold-style-definition] 332 | static Cell local transComp(e,qs,l) /* Translate [e | qs] ++ l */ | ^~~~~~~~~ compiler.c: In function 'transDo': compiler.c:401:19: warning: old-style function definition [-Wold-style-definition] 401 | static Cell local transDo(m,e,qs) /* Translate do { qs ; e } */ | ^~~~~~~ compiler.c: In function 'mdoBuildTuple': compiler.c:454:19: warning: old-style function definition [-Wold-style-definition] 454 | static Cell local mdoBuildTuple(tup) /* build tuple (x1,...,xn) from */ | ^~~~~~~~~~~~~ compiler.c: In function 'transMDo': compiler.c:472:19: warning: old-style function definition [-Wold-style-definition] 472 | static Cell local transMDo(m,ms,seg) /* translate each segment in an mdo */ | ^~~~~~~~ compiler.c: In function 'transConFlds': compiler.c:610:19: warning: old-style function definition [-Wold-style-definition] 610 | static Cell local transConFlds(c,flds) /* Translate C{flds} */ | ^~~~~~~~~~~~ compiler.c: In function 'transUpdFlds': compiler.c:632:19: warning: old-style function definition [-Wold-style-definition] 632 | static Cell local transUpdFlds(e,cs,flds)/* Translate e{flds} */ | ^~~~~~~~~~~~ compiler.c: In function 'failFree': compiler.c:691:6: warning: old-style function definition [-Wold-style-definition] 691 | Bool failFree(pat) /* is pattern failure free? */ | ^~~~~~~~ compiler.c: In function 'refutePat': compiler.c:728:19: warning: old-style function definition [-Wold-style-definition] 728 | static Cell local refutePat(pat) /* find pattern to refute in conformality*/ | ^~~~~~~~~ compiler.c: In function 'refutePatAp': compiler.c:773:19: warning: old-style function definition [-Wold-style-definition] 773 | static Cell local refutePatAp(p) /* find pattern to refute in conformality*/ | ^~~~~~~~~~~ compiler.c: In function 'matchPat': compiler.c:796:19: warning: old-style function definition [-Wold-style-definition] 796 | static Cell local matchPat(pat) /* find pattern to match against */ | ^~~~~~~~ compiler.c: In function 'remPat': compiler.c:883:19: warning: old-style function definition [-Wold-style-definition] 883 | static List local remPat(pat,expr,lds) | ^~~~~~ compiler.c: In function 'remPat1': compiler.c:929:19: warning: old-style function definition [-Wold-style-definition] 929 | static List local remPat1(pat,expr,lds) | ^~~~~~~ compiler.c: In function 'pmcTerm': compiler.c:1080:19: warning: old-style function definition [-Wold-style-definition] 1080 | static Cell local pmcTerm(co,sc,e) /* apply pattern matching compiler */ | ^~~~~~~ compiler.c: In function 'pmcPair': compiler.c:1123:19: warning: old-style function definition [-Wold-style-definition] 1123 | static Cell local pmcPair(co,sc,pr) /* apply pattern matching compiler */ | ^~~~~~~ compiler.c: In function 'pmcTriple': compiler.c:1131:19: warning: old-style function definition [-Wold-style-definition] 1131 | static Cell local pmcTriple(co,sc,tr) /* apply pattern matching compiler */ | ^~~~~~~~~ compiler.c: In function 'pmcVar': compiler.c:1140:19: warning: old-style function definition [-Wold-style-definition] 1140 | static Cell local pmcVar(sc,t) /* find translation of variable */ | ^~~~~~ compiler.c: In function 'pmcLetrec': compiler.c:1169:19: warning: old-style function definition [-Wold-style-definition] 1169 | static Void local pmcLetrec(co,sc,e) /* apply pattern matching compiler */ | ^~~~~~~~~ compiler.c: In function 'pmcVarDef': compiler.c:1199:19: warning: old-style function definition [-Wold-style-definition] 1199 | static Cell local pmcVarDef(co,sc,vd) /* apply pattern matching compiler */ | ^~~~~~~~~ compiler.c: In function 'pmcFunDef': compiler.c:1210:19: warning: old-style function definition [-Wold-style-definition] 1210 | static Void local pmcFunDef(co,sc,fd) /* apply pattern matching compiler */ | ^~~~~~~~~ compiler.c: In function 'altsMatch': compiler.c:1274:19: warning: old-style function definition [-Wold-style-definition] 1274 | static List local altsMatch(co,n,sc,as) /* Make a list of matches from list*/ | ^~~~~~~~~ compiler.c: In function 'match': compiler.c:1288:19: warning: old-style function definition [-Wold-style-definition] 1288 | static Cell local match(co,mas) /* Generate case statement for Matches mas */ | ^~~~~ compiler.c: In function 'joinMas': compiler.c:1364:19: warning: old-style function definition [-Wold-style-definition] 1364 | static Cell local joinMas(co,mas) /* Combine list of matches into rhs*/ | ^~~~~~~ compiler.c: In function 'canFail': compiler.c:1375:19: warning: old-style function definition [-Wold-style-definition] 1375 | static Bool local canFail(rhs) /* Determine if expression (as rhs) */ | ^~~~~~~ compiler.c: In function 'addConTable': compiler.c:1393:19: warning: old-style function definition [-Wold-style-definition] 1393 | static List local addConTable(x,y,tab) /* add element (x,y) to table */ | ^~~~~~~~~~~ compiler.c: In function 'advance': compiler.c:1406:19: warning: old-style function definition [-Wold-style-definition] 1406 | static Void local advance(co,a,ma) /* Advance non-empty match by */ | ^~~~~~~ compiler.c: In function 'emptyMatch': compiler.c:1440:19: warning: old-style function definition [-Wold-style-definition] 1440 | static Bool local emptyMatch(ma)/* Normalize and test to see if a given */ | ^~~~~~~~~~ compiler.c: In function 'maDiscr': compiler.c:1502:19: warning: old-style function definition [-Wold-style-definition] 1502 | static Cell local maDiscr(ma) /* Get the discriminator for a non-empty */ | ^~~~~~~ compiler.c: In function 'isNumDiscr': compiler.c:1527:19: warning: old-style function definition [-Wold-style-definition] 1527 | static Bool local isNumDiscr(d) /* TRUE => numeric discriminator */ | ^~~~~~~~~~ compiler.c: In function 'discrArity': compiler.c:1544:5: warning: old-style function definition [-Wold-style-definition] 1544 | Int discrArity(d) /* Find arity of discriminator */ | ^~~~~~~~~~ compiler.c: In function 'eqNumDiscr': compiler.c:1570:19: warning: old-style function definition [-Wold-style-definition] 1570 | static Bool local eqNumDiscr(d1,d2) /* Determine whether two numeric */ | ^~~~~~~~~~ compiler.c: In function 'isExtDiscr': compiler.c:1589:19: warning: old-style function definition [-Wold-style-definition] 1589 | static Bool local isExtDiscr(d) /* Test of extension discriminator */ | ^~~~~~~~~~ compiler.c: In function 'eqExtDiscr': compiler.c:1594:19: warning: old-style function definition [-Wold-style-definition] 1594 | static Bool local eqExtDiscr(d1,d2) /* Determine whether two extension */ | ^~~~~~~~~~ compiler.c: In function 'lift': compiler.c:1605:19: warning: old-style function definition [-Wold-style-definition] 1605 | static Cell local lift(co,tr,e) /* lambda lift term */ | ^~~~ compiler.c: In function 'liftPair': compiler.c:1662:19: warning: old-style function definition [-Wold-style-definition] 1662 | static Void local liftPair(co,tr,pr) /* lift pair of terms */ | ^~~~~~~~ compiler.c: In function 'liftTriple': compiler.c:1670:19: warning: old-style function definition [-Wold-style-definition] 1670 | static Void local liftTriple(co,tr,e) /* lift triple of terms */ | ^~~~~~~~~~ compiler.c: In function 'liftAlt': compiler.c:1679:19: warning: old-style function definition [-Wold-style-definition] 1679 | static Void local liftAlt(co,tr,pr) /* lift (discr,case) pair */ | ^~~~~~~ compiler.c: In function 'liftNumcase': compiler.c:1686:19: warning: old-style function definition [-Wold-style-definition] 1686 | static Void local liftNumcase(co,tr,nc)/* lift (offset,discr,case) */ | ^~~~~~~~~~~ compiler.c: In function 'liftVar': compiler.c:1695:19: warning: old-style function definition [-Wold-style-definition] 1695 | static Cell local liftVar(tr,e) /* lift variable */ | ^~~~~~~ compiler.c: In function 'liftLetrec': compiler.c:1706:19: warning: old-style function definition [-Wold-style-definition] 1706 | static Cell local liftLetrec(co,tr,e) /* lift letrec term */ | ^~~~~~~~~~ compiler.c: In function 'liftFundef': compiler.c:1739:19: warning: old-style function definition [-Wold-style-definition] 1739 | static Void local liftFundef(co,tr,fd) /* lift function definition */ | ^~~~~~~~~~ compiler.c: In function 'solve': compiler.c:1796:19: warning: old-style function definition [-Wold-style-definition] 1796 | static Void local solve(fs) /* Solve eqns for lambda-lifting */ | ^~~~~ compiler.c: In function 'preComp': compiler.c:1881:19: warning: old-style function definition [-Wold-style-definition] 1881 | static Cell local preComp(e) /* Adjust output from compiler to */ | ^~~~~~~ compiler.c: In function 'preCompPair': compiler.c:1932:19: warning: old-style function definition [-Wold-style-definition] 1932 | static Cell local preCompPair(e) /* Apply preComp to pair of Exprs */ | ^~~~~~~~~~~ compiler.c: In function 'preCompTriple': compiler.c:1938:19: warning: old-style function definition [-Wold-style-definition] 1938 | static Cell local preCompTriple(e) /* Apply preComp to triple of Exprs */ | ^~~~~~~~~~~~~ compiler.c: In function 'preCompCase': compiler.c:1945:19: warning: old-style function definition [-Wold-style-definition] 1945 | static Void local preCompCase(e) /* Apply preComp to (Discr,Expr) */ | ^~~~~~~~~~~ compiler.c: In function 'preCompOffset': compiler.c:1950:19: warning: old-style function definition [-Wold-style-definition] 1950 | static Cell local preCompOffset(n) /* Determine correct offset value */ | ^~~~~~~~~~~~~ compiler.c: In function 'compileGlobalFunction': compiler.c:2095:19: warning: old-style function definition [-Wold-style-definition] 2095 | static Void local compileGlobalFunction(bind) | ^~~~~~~~~~~~~~~~~~~~~ compiler.c: In function 'compileGenFunction': compiler.c:2110:19: warning: old-style function definition [-Wold-style-definition] 2110 | static Void local compileGenFunction(n) /* Produce code for internally */ | ^~~~~~~~~~~~~~~~~~ compiler.c: In function 'compileSelFunction': compiler.c:2123:19: warning: old-style function definition [-Wold-style-definition] 2123 | static Name local compileSelFunction(p) /* Produce code for selector func */ | ^~~~~~~~~~~~~~~~~~ compiler.c: In function 'newGlobalFunction': compiler.c:2136:19: warning: old-style function definition [-Wold-style-definition] 2136 | static Void local newGlobalFunction(n,arity,fvs,co,e) | ^~~~~~~~~~~~~~~~~ compiler.c: In function 'compiler': compiler.c:2160:6: warning: old-style function definition [-Wold-style-definition] 2160 | Void compiler(what) | ^~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 errors.c errors.c: In function 'errHead': errors.c:63:6: warning: old-style function definition [-Wold-style-definition] 63 | Void errHead(l) /* print start of error message */ | ^~~~~~~ errors.c: In function 'internal': errors.c:105:6: warning: old-style function definition [-Wold-style-definition] 105 | Void internal(msg) /* handle internal error */ | ^~~~~~~~ errors.c: In function 'fatal': errors.c:131:6: warning: old-style function definition [-Wold-style-definition] 131 | Void fatal(msg) /* handle fatal error */ | ^~~~~ In file included from errors.c:10: errors.c: In function 'breakHandler': errors.c:147:12: warning: old-style function definition [-Wold-style-definition] 147 | sigHandler(breakHandler) { /* respond to break interrupt */ | ^~~~~~~~~~~~ prelude.h:379:30: note: in definition of macro 'sigHandler' 379 | # define sigHandler(nm) void nm(sig_arg) int sig_arg; | ^~ errors.c: In function 'vBufferedPrintf': errors.c:200:19: warning: old-style function definition [-Wold-style-definition] 200 | static Void local vBufferedPrintf(stream, fmt, ap) | ^~~~~~~~~~~~~~~ errors.c: In function 'bufferedPutchar': errors.c:215:19: warning: old-style function definition [-Wold-style-definition] 215 | static Void local bufferedPutchar(stream, c) | ^~~~~~~~~~~~~~~ errors.c: In function 'bufferClear': errors.c:224:21: warning: old-style function definition [-Wold-style-definition] 224 | static String local bufferClear(stream) | ^~~~~~~~~~~ errors.c: In function 'hugsEnableOutput': errors.c:241:6: warning: old-style function definition [-Wold-style-definition] 241 | Void hugsEnableOutput(f) | ^~~~~~~~~~~~~~~~ errors.c: In function 'hugsPutchar': errors.c:276:6: warning: old-style function definition [-Wold-style-definition] 276 | Void hugsPutchar(c) | ^~~~~~~~~~~ errors.c: In function 'hugsFFlush': errors.c:291:6: warning: old-style function definition [-Wold-style-definition] 291 | Void hugsFFlush(fp) | ^~~~~~~~~~ errors.c: In function 'hugsPutc': errors.c:325:6: warning: old-style function definition [-Wold-style-definition] 325 | Void hugsPutc(c, fp) | ^~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 evaluator.c evaluator.c: In function 'evaluator': evaluator.c:61:6: warning: old-style function definition [-Wold-style-definition] 61 | Void evaluator(m) | ^~~~~~~~~ evaluator.c: In function 'everybody': evaluator.c:226:6: warning: old-style function definition [-Wold-style-definition] 226 | Void everybody(what) /* send command `what' to each component of*/ | ^~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 ffi.c ffi.c: In function 'ffi': ffi.c:47:6: warning: old-style function definition [-Wold-style-definition] 47 | Void ffi(what) | ^~~ ffi.c: In function 'ffiSetFlags': ffi.c:61:6: warning: old-style function definition [-Wold-style-definition] 61 | Void ffiSetFlags(s) | ^~~~~~~~~~~ ffi.c: In function 'foreignNeedStubs': ffi.c:97:6: warning: old-style function definition [-Wold-style-definition] 97 | Bool foreignNeedStubs(imps,exps) | ^~~~~~~~~~~~~~~~ ffi.c: In function 'foreignHeader': ffi.c:118:6: warning: old-style function definition [-Wold-style-definition] 118 | Void foreignHeader(fn) | ^~~~~~~~~~~~~ ffi.c: In function 'foreignFooter': ffi.c:136:6: warning: old-style function definition [-Wold-style-definition] 136 | Void foreignFooter(fn,mn,is,es) | ^~~~~~~~~~~~~ ffi.c: In function 'foreignType': ffi.c:284:19: warning: old-style function definition [-Wold-style-definition] 284 | static Void local foreignType(l,t) | ^~~~~~~~~~~ ffi.c: In function 'foreignGet': ffi.c:316:19: warning: old-style function definition [-Wold-style-definition] 316 | static Void local foreignGet(l,t,nm,num) | ^~~~~~~~~~ ffi.c: In function 'foreignPut': ffi.c:351:19: warning: old-style function definition [-Wold-style-definition] 351 | static Void local foreignPut(l,t,nm,num) | ^~~~~~~~~~ ffi.c: In function 'ffiInclude': ffi.c:386:19: warning: old-style function definition [-Wold-style-definition] 386 | static Void local ffiInclude(fn) /* Add #include */ | ^~~~~~~~~~ ffi.c: In function 'ffiDeclare': ffi.c:394:19: warning: old-style function definition [-Wold-style-definition] 394 | static Void local ffiDeclare(line,ty,prefix,i) /* Declare variable */ | ^~~~~~~~~~ ffi.c: In function 'ffiReturn': ffi.c:406:19: warning: old-style function definition [-Wold-style-definition] 406 | static Void local ffiReturn(ty,prefix,i) /* Return variable */ | ^~~~~~~~~ ffi.c: In function 'ffiDeclareList': ffi.c:417:19: warning: old-style function definition [-Wold-style-definition] 417 | static Void local ffiDeclareList(line,tys,prefix) /* Declare variables */ | ^~~~~~~~~~~~~~ ffi.c: In function 'ffiGetList': ffi.c:427:19: warning: old-style function definition [-Wold-style-definition] 427 | static Void local ffiGetList(line,tys,prefix) /* Get values from Haskell */ | ^~~~~~~~~~ ffi.c: In function 'ffiPutList': ffi.c:438:19: warning: old-style function definition [-Wold-style-definition] 438 | static Void local ffiPutList(line,tys,prefix) /* Put values to Haskell */ | ^~~~~~~~~~ ffi.c: In function 'ffiDeclareFun': ffi.c:449:19: warning: old-style function definition [-Wold-style-definition] 449 | static Void local ffiDeclareFun(line,n,indirect,extraArg,argTys,resultTy) | ^~~~~~~~~~~~~ ffi.c: In function 'ffiFunTypeCast': ffi.c:494:19: warning: old-style function definition [-Wold-style-definition] 494 | static Void local ffiFunTypeCast(line,argTys,resultTy) | ^~~~~~~~~~~~~~ ffi.c: In function 'ffiCallFun': ffi.c:515:19: warning: old-style function definition [-Wold-style-definition] 515 | static Void local ffiCallFun(line,e,argTys,resultTy) | ^~~~~~~~~~ ffi.c: In function 'ffiPrimProto': ffi.c:541:19: warning: old-style function definition [-Wold-style-definition] 541 | static Void local ffiPrimProto(name,id) | ^~~~~~~~~~~~ ffi.c: In function 'ffiPrimHeader': ffi.c:552:19: warning: old-style function definition [-Wold-style-definition] 552 | static Void local ffiPrimHeader(name,id) | ^~~~~~~~~~~~~ ffi.c: In function 'implementForeignImport': ffi.c:582:6: warning: old-style function definition [-Wold-style-definition] 582 | Void implementForeignImport(line,n,id,fn,cid,isStatic,libName,argTys,isIO,resultTy) | ^~~~~~~~~~~~~~~~~~~~~~ ffi.c: In function 'implementForeignImportDynamic': ffi.c:667:6: warning: old-style function definition [-Wold-style-definition] 667 | Void implementForeignImportDynamic(line,id,e,argTys,isIO,resultTy) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ffi.c: In function 'implementForeignImportWrapper': ffi.c:732:6: warning: old-style function definition [-Wold-style-definition] 732 | Void implementForeignImportWrapper(line,id,e,argTys,isIO,resultTy) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ffi.c: In function 'implementForeignExport': ffi.c:810:6: warning: old-style function definition [-Wold-style-definition] 810 | Void implementForeignExport(line,id,e,argTys,isIO,resultTy) | ^~~~~~~~~~~~~~~~~~~~~~ ffi.c: In function 'implementForeignImportLabel': ffi.c:873:6: warning: old-style function definition [-Wold-style-definition] 873 | Void implementForeignImportLabel(line, id, fn, cid, n, ty) | ^~~~~~~~~~~~~~~~~~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 goal.c goal.c: In function 'setGoal': goal.c:21:6: warning: old-style function definition [-Wold-style-definition] 21 | Void setGoal(what, t) /* Set goal for what to be t */ | ^~~~~~~ goal.c: In function 'soFar': goal.c:42:6: warning: old-style function definition [-Wold-style-definition] 42 | Void soFar(t) /* Indicate progress towards goal */ | ^~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 input.c input.c: In function 'startsQual': input.c:234:6: warning: old-style function definition [-Wold-style-definition] 234 | Bool startsQual(c) | ^~~~~~~~~~ input.c: In function 'consoleInput': input.c:245:6: warning: old-style function definition [-Wold-style-definition] 245 | Void consoleInput(prompt) /* prepare to input characters from */ | ^~~~~~~~~~~~ input.c: In function 'fileInput': input.c:315:19: warning: old-style function definition [-Wold-style-definition] 315 | static Bool local fileInput(nm,len) /* prepare to input characters from*/ | ^~~~~~~~~ input.c: In function 'stringInput': input.c:372:6: warning: old-style function definition [-Wold-style-definition] 372 | Void stringInput(s) /* prepare to input characters from string */ | ^~~~~~~~~~~ input.c: In function 'literateMode': input.c:387:19: warning: old-style function definition [-Wold-style-definition] 387 | static Bool local literateMode(nm) /* Select literate mode for file */ | ^~~~~~~~~~~~ input.c: In function 'linecmp': input.c:415:19: warning: old-style function definition [-Wold-style-definition] 415 | static Bool local linecmp(s,line) /* compare string with line */ | ^~~~~~~ input.c: In function 'thisLineIs': input.c:560:19: warning: old-style function definition [-Wold-style-definition] 560 | static Void local thisLineIs(kind) /* register kind of current line */ | ^~~~~~~~~~ In file included from input.c:636: parser.y: In function 'gcShadow': parser.y:1034:19: warning: old-style function definition [-Wold-style-definition] 1034 | static Cell local gcShadow(n,e) /* keep parsed fragments on stack */ | ^~~~~~~~ parser.y: In function 'syntaxError': parser.y:1058:19: warning: old-style function definition [-Wold-style-definition] 1058 | static Void local syntaxError(s) /* report on syntax error */ | ^~~~~~~~~~~ parser.y: In function 'checkPrec': parser.y:1152:19: warning: old-style function definition [-Wold-style-definition] 1152 | static Cell local checkPrec(p) /* Check for valid precedence value*/ | ^~~~~~~~~ parser.y: In function 'buildTuple': parser.y:1162:19: warning: old-style function definition [-Wold-style-definition] 1162 | static Cell local buildTuple(tup) /* build tuple (x1,...,xn) from */ | ^~~~~~~~~~ parser.y: In function 'checkCtxt': parser.y:1180:19: warning: old-style function definition [-Wold-style-definition] 1180 | static List local checkCtxt(con) /* validate context */ | ^~~~~~~~~ parser.y: In function 'checkPred': parser.y:1186:19: warning: old-style function definition [-Wold-style-definition] 1186 | static Cell local checkPred(c) /* check that type expr is a valid */ | ^~~~~~~~~ parser.y: In function 'checkDo': parser.y:1202:19: warning: old-style function definition [-Wold-style-definition] 1202 | static Pair local checkDo(dqs) /* convert reversed list of dquals */ | ^~~~~~~ parser.y: In function 'checkMDo': parser.y:1214:19: warning: old-style function definition [-Wold-style-definition] 1214 | static Pair local checkMDo(dqs) /* convert reversed list of dquals */ | ^~~~~~~~ parser.y: In function 'checkTyLhs': parser.y:1226:19: warning: old-style function definition [-Wold-style-definition] 1226 | static Cell local checkTyLhs(c) /* check that lhs is of the form */ | ^~~~~~~~~~ parser.y: In function 'checkConstr': parser.y:1239:19: warning: old-style function definition [-Wold-style-definition] 1239 | static Cell local checkConstr(c) /* check that data constructor has */ | ^~~~~~~~~~~ input.c: In function 'readRadixNumber': input.c:688:19: warning: old-style function definition [-Wold-style-definition] 688 | static Cell local readRadixNumber(r) /* Read literal in specified radix */ | ^~~~~~~~~~~~~~~ input.c: In function 'saveStrChr': input.c:892:19: warning: old-style function definition [-Wold-style-definition] 892 | static Void local saveStrChr(c) /* save character in string */ | ^~~~~~~~~~ input.c: In function 'readAChar': input.c:953:19: warning: old-style function definition [-Wold-style-definition] 953 | static Cell local readAChar(isStrLit) /* read single char constant */ | ^~~~~~~~~ input.c: In function 'lazyReadMatches': input.c:996:19: warning: old-style function definition [-Wold-style-definition] 996 | static Bool local lazyReadMatches(s) /* compare input stream with string */ | ^~~~~~~~~~~~~~~ input.c: In function 'readEscapeChar': input.c:1013:19: warning: old-style function definition [-Wold-style-definition] 1013 | static Cell local readEscapeChar(isStrLit,skipEsc)/* read escape character */ | ^~~~~~~~~~~~~~ input.c: In function 'readHexDigit': input.c:1131:18: warning: old-style function definition [-Wold-style-definition] 1131 | static Int local readHexDigit(c) /* read single hex digit */ | ^~~~~~~~~~~~ input.c: In function 'unlexChar': input.c:1161:8: warning: old-style function definition [-Wold-style-definition] 1161 | String unlexChar(c,quote) /* return string representation of */ | ^~~~~~~~~ input.c: In function 'printString': input.c:1190:6: warning: old-style function definition [-Wold-style-definition] 1190 | Void printString(s) /* print string s, using quotes and */ | ^~~~~~~~~~~ input.c: In function 'readCommand': input.c:1214:9: warning: old-style function definition [-Wold-style-definition] 1214 | Command readCommand(cmds,start,sys) /* read command at start of input */ | ^~~~~~~~~~~ input.c: In function 'goOffside': input.c:1360:19: warning: old-style function definition [-Wold-style-definition] 1360 | static Void local goOffside(col) /* insert offside marker */ | ^~~~~~~~~ input.c: In function 'isModuleId': input.c:1808:6: warning: old-style function definition [-Wold-style-definition] 1808 | Bool isModuleId(s) | ^~~~~~~~~~ input.c: In function 'defaultSyntax': input.c:1830:8: warning: old-style function definition [-Wold-style-definition] 1830 | Syntax defaultSyntax(t) /* Find default syntax of var named*/ | ^~~~~~~~~~~~~ input.c: In function 'syntaxOf': input.c:1837:8: warning: old-style function definition [-Wold-style-definition] 1837 | Syntax syntaxOf(n) /* Find syntax for name */ | ^~~~~~~~ input.c: In function 'parseInput': input.c:1848:19: warning: old-style function definition [-Wold-style-definition] 1848 | static Void local parseInput(startWith)/* Parse input with given first tok,*/ | ^~~~~~~~~~ input.c: In function 'parseScriptString': input.c:1863:6: warning: old-style function definition [-Wold-style-definition] 1863 | Void parseScriptString(buf) /* Read a script from a string buffer */ | ^~~~~~~~~~~~~~~~~ input.c: In function 'parseScript': input.c:1870:6: warning: old-style function definition [-Wold-style-definition] 1870 | Bool parseScript(nm,len) /* Read a script */ | ^~~~~~~~~~~ input.c: In function 'input': input.c:1900:6: warning: old-style function definition [-Wold-style-definition] 1900 | Void input(what) | ^~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 machdep.c machdep.c: In function 'getFileInfo': machdep.c:151:6: warning: old-style function definition [-Wold-style-definition] 151 | Void getFileInfo(f,tm,sz) /* find time stamp and size of file*/ | ^~~~~~~~~~~ machdep.c: In function 'readable': machdep.c:215:6: warning: old-style function definition [-Wold-style-definition] 215 | Bool readable(f,isReg) /* is f readable (and also, a regular file?) */ | ^~~~~~~~ machdep.c: In function 'RealPath': machdep.c:418:14: warning: old-style function definition [-Wold-style-definition] 418 | String local RealPath(s) /* Find absolute pathname of file */ | ^~~~~~~~ machdep.c: In function 'normPath': machdep.c:473:21: warning: old-style function definition [-Wold-style-definition] 473 | static String local normPath(s) /* Try, as much as possible, to normalize */ | ^~~~~~~~ machdep.c: In function 'searchChr': machdep.c:491:19: warning: old-style function definition [-Wold-style-definition] 491 | static Void local searchChr(c) /* Add single character to search buffer */ | ^~~~~~~~~ machdep.c: In function 'searchStr': machdep.c:499:19: warning: old-style function definition [-Wold-style-definition] 499 | static Void local searchStr(s) /* Add string to search buffer */ | ^~~~~~~~~ machdep.c: In function 'scanSubDirs': machdep.c:553:13: warning: old-style function definition [-Wold-style-definition] 553 | static Bool scanSubDirs(s) | ^~~~~~~~~~~ machdep.c: In function 'findPathname': machdep.c:712:8: warning: old-style function definition [-Wold-style-definition] 712 | String findPathname(filename) /* Look for a file, trying various extensions */ | ^~~~~~~~~~~~ machdep.c: In function 'findMInDir': machdep.c:737:8: warning: old-style function definition [-Wold-style-definition] 737 | String findMInDir(dir,nm) /* Look for a module in the suggested dir */ | ^~~~~~~~~~ machdep.c: In function 'findMPathname': machdep.c:750:8: warning: old-style function definition [-Wold-style-definition] 750 | String findMPathname(name) /* Look for a module */ | ^~~~~~~~~~~~~ machdep.c: In function 'find1': machdep.c:759:13: warning: old-style function definition [-Wold-style-definition] 759 | static Bool find1(name) /* Search each directory of the path */ | ^~~~~ machdep.c: In function 'expandVariable': machdep.c:793:21: warning: old-style function definition [-Wold-style-definition] 793 | static String local expandVariable(pathpt) | ^~~~~~~~~~~~~~ machdep.c: In function 'skipVariable': machdep.c:810:21: warning: old-style function definition [-Wold-style-definition] 810 | static String local skipVariable(pathpt) | ^~~~~~~~~~~~ machdep.c: In function 'find2': machdep.c:815:19: warning: old-style function definition [-Wold-style-definition] 815 | static Bool local find2(s) /* Turn module name into a filename */ | ^~~~~ machdep.c: In function 'dirname': machdep.c:826:8: warning: old-style function definition [-Wold-style-definition] 826 | String dirname(filename) /* Return the directory part of the filename */ | ^~~~~~~ machdep.c: In function 'substPath': machdep.c:859:14: warning: old-style function definition [-Wold-style-definition] 859 | String local substPath(new,sub) /* substitute sub path into new path*/ | ^~~~~~~~~ machdep.c: In function 'uniqPath': machdep.c:888:8: warning: old-style function definition [-Wold-style-definition] 888 | String uniqPath(path) | ^~~~~~~~ machdep.c: In function 'nextPath': machdep.c:911:21: warning: old-style function definition [-Wold-style-definition] 911 | static String local nextPath(pp) | ^~~~~~~~ machdep.c: In function 'samePath': machdep.c:920:19: warning: old-style function definition [-Wold-style-definition] 920 | static Bool local samePath(pp1, pp2) | ^~~~~~~~ machdep.c: In function 'fromEnv': machdep.c:956:8: warning: old-style function definition [-Wold-style-definition] 956 | String fromEnv(var,def) /* return value of: */ | ^~~~~~~ machdep.c: In function 'gcRecovered': machdep.c:995:6: warning: old-style function definition [-Wold-style-definition] 995 | Void gcRecovered(recovered) /* Notify garbage collection done */ | ^~~~~~~~~~~ machdep.c: In function 'breakOn': machdep.c:1481:6: warning: old-style function definition [-Wold-style-definition] 1481 | Bool breakOn(reqd) /* set break trapping on if reqd, */ | ^~~~~~~ In file included from machdep.c:17: machdep.c: In function 'ignoreBreak': machdep.c:1504:19: warning: old-style function definition [-Wold-style-definition] 1504 | static sigHandler(ignoreBreak) { /* record but don't respond to break*/ | ^~~~~~~~~~~ prelude.h:379:30: note: in definition of macro 'sigHandler' 379 | # define sigHandler(nm) void nm(sig_arg) int sig_arg; | ^~ machdep.c: In function 'panic': machdep.c:1514:19: warning: old-style function definition [-Wold-style-definition] 1514 | static sigHandler(panic) { /* exit in a panic, on receipt of */ | ^~~~~ prelude.h:379:30: note: in definition of macro 'sigHandler' 379 | # define sigHandler(nm) void nm(sig_arg) int sig_arg; | ^~ machdep.c: In function 'shellEsc': machdep.c:1571:1: warning: old-style function definition [-Wold-style-definition] 1571 | shellEsc(cmd, sync, useShell) /* run a shell command (or shell) */ | ^~~~~~~~ machdep.c: In function 'mkFloat': machdep.c:1705:6: warning: old-style function definition [-Wold-style-definition] 1705 | Cell mkFloat(fl) | ^~~~~~~ machdep.c: In function 'floatOf': machdep.c:1711:10: warning: old-style function definition [-Wold-style-definition] 1711 | FloatPro floatOf(c) | ^~~~~~~ machdep.c: In function 'floatToString': machdep.c:1718:8: warning: old-style function definition [-Wold-style-definition] 1718 | String floatToString(fl) /* Make sure that floating */ | ^~~~~~~~~~~~~ machdep.c: In function 'part1Double': machdep.c:1746:6: warning: old-style function definition [-Wold-style-definition] 1746 | Cell part1Double(dbl) | ^~~~~~~~~~~ machdep.c: In function 'part2Double': machdep.c:1752:6: warning: old-style function definition [-Wold-style-definition] 1752 | Cell part2Double(dbl) | ^~~~~~~~~~~ machdep.c: In function 'doubleFromParts': machdep.c:1758:11: warning: old-style function definition [-Wold-style-definition] 1758 | DoublePro doubleFromParts(c1,c2) | ^~~~~~~~~~~~~~~ machdep.c: In function 'mkDouble': machdep.c:1767:6: warning: old-style function definition [-Wold-style-definition] 1767 | Cell mkDouble(dbl) | ^~~~~~~~ machdep.c: In function 'doubleOf': machdep.c:1778:11: warning: old-style function definition [-Wold-style-definition] 1778 | DoublePro doubleOf(c) | ^~~~~~~~ machdep.c: In function 'doubleToString': machdep.c:1785:8: warning: old-style function definition [-Wold-style-definition] 1785 | String doubleToString(dbl) /* Make sure that floating */ | ^~~~~~~~~~~~~~ machdep.c: In function 'stringToDouble': machdep.c:1806:11: warning: old-style function definition [-Wold-style-definition] 1806 | DoublePro stringToDouble(s) | ^~~~~~~~~~~~~~ machdep.c: In function 'part1Int64': machdep.c:1871:5: warning: old-style function definition [-Wold-style-definition] 1871 | Int part1Int64(i) | ^~~~~~~~~~ machdep.c: In function 'part2Int64': machdep.c:1876:5: warning: old-style function definition [-Wold-style-definition] 1876 | Int part2Int64(i) | ^~~~~~~~~~ machdep.c: In function 'int64FromParts': machdep.c:1881:9: warning: old-style function definition [-Wold-style-definition] 1881 | HsInt64 int64FromParts(c1,c2) | ^~~~~~~~~~~~~~ machdep.c: In function 'getDLL': machdep.c:1931:20: warning: old-style function definition [-Wold-style-definition] 1931 | static void* local getDLL(dll) /* load dll */ | ^~~~~~ machdep.c: In function 'getDLLSymbol': machdep.c:1955:20: warning: old-style function definition [-Wold-style-definition] 1955 | static void* local getDLLSymbol(instance,symbol) /* lookup dll symbol */ | ^~~~~~~~~~~~ machdep.c: In function 'freeDLL': machdep.c:1968:6: warning: old-style function definition [-Wold-style-definition] 1968 | void freeDLL (dll) /* free up DLL */ | ^~~~~~~ machdep.c: In function 'getModDLL': machdep.c:2163:20: warning: old-style function definition [-Wold-style-definition] 2163 | static void* local getModDLL(file) /* load DLL for module */ | ^~~~~~~~~ machdep.c: In function 'mkFFIFilename2': machdep.c:2186:8: warning: old-style function definition [-Wold-style-definition] 2186 | String mkFFIFilename2(file) | ^~~~~~~~~~~~~~ machdep.c: In function 'mkFFIFilename': machdep.c:2201:8: warning: old-style function definition [-Wold-style-definition] 2201 | String mkFFIFilename(file) /* get DLL path for module */ | ^~~~~~~~~~~~~ machdep.c: In function 'needPrims': machdep.c:2224:6: warning: old-style function definition [-Wold-style-definition] 2224 | Void needPrims(version,dll) /* Load dll containing prims for current module */ | ^~~~~~~~~ machdep.c: In function 'insert': machdep.c:2302:19: warning: old-style function definition [-Wold-style-definition] 2302 | static Void local insert(s) | ^~~~~~ machdep.c: In function 'insertPath': machdep.c:2314:19: warning: old-style function definition [-Wold-style-definition] 2314 | static Void local insertPath(s) | ^~~~~~~~~~ machdep.c: In function 'insertChar': machdep.c:2327:19: warning: old-style function definition [-Wold-style-definition] 2327 | static Void local insertChar(c) | ^~~~~~~~~~ machdep.c: In function 'compileAndLink': machdep.c:2336:6: warning: old-style function definition [-Wold-style-definition] 2336 | Void compileAndLink(fn,flags) | ^~~~~~~~~~~~~~ machdep.c: In function 'machdep': machdep.c:2631:6: warning: old-style function definition [-Wold-style-definition] 2631 | Void machdep(what) /* Handle machine specific */ | ^~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 machine.c gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses module.c machine.c: In function 'instrNone': machine.c:220:19: warning: old-style function definition [-Wold-style-definition] 220 | static Void local instrNone(opc) /* Opcode with no operands */ | ^~~~~~~~~ machine.c: In function 'instrInt': machine.c:227:19: warning: old-style function definition [-Wold-style-definition] 227 | static Void local instrInt(opc,n) /* Opcode with integer operand */ | ^~~~~~~~ machine.c: In function 'instrDouble': machine.c:236:19: warning: old-style function definition [-Wold-style-definition] 236 | static Void local instrDouble(opc,fl) /* Opcode with Double operand */ | ^~~~~~~~~~~ machine.c: In function 'instrCell': machine.c:246:19: warning: old-style function definition [-Wold-style-definition] 246 | static Void local instrCell(opc,c) /* Opcode with Cell operand */ | ^~~~~~~~~ machine.c: In function 'instrText': machine.c:255:19: warning: old-style function definition [-Wold-style-definition] 255 | static Void local instrText(opc,t) /* Opcode with Text operand */ | ^~~~~~~~~ machine.c: In function 'instrLab': machine.c:264:19: warning: old-style function definition [-Wold-style-definition] 264 | static Void local instrLab(opc,l) /* Opcode with label operand */ | ^~~~~~~~ machine.c: In function 'instrCellLab': machine.c:275:19: warning: old-style function definition [-Wold-style-definition] 275 | static Void local instrCellLab(opc,c,l) /* Opcode with cell, label operands*/ | ^~~~~~~~~~~~ machine.c: In function 'newLabel': machine.c:321:20: warning: old-style function definition [-Wold-style-definition] 321 | static Label local newLabel(d) /* allocate new label */ | ^~~~~~~~ machine.c: In function 'asTEST': machine.c:411:19: warning: old-style function definition [-Wold-style-definition] 411 | static Void local asTEST(c,l) /* test whnf and branch on mismatch*/ | ^~~~~~ machine.c: In function 'asSLIDE': machine.c:423:19: warning: old-style function definition [-Wold-style-definition] 423 | static Void local asSLIDE(n) /* Slide results down stack */ | ^~~~~~~ machine.c: In function 'asMKAP': machine.c:433:19: warning: old-style function definition [-Wold-style-definition] 433 | static Void local asMKAP(n) /* Make application nodes ... */ | ^~~~~~ machine.c: In function 'asUPDATE': machine.c:443:19: warning: old-style function definition [-Wold-style-definition] 443 | static Void local asUPDATE(n) /* Update node ... */ | ^~~~~~~~ machine.c: In function 'asGOTO': machine.c:475:19: warning: old-style function definition [-Wold-style-definition] 475 | static Void local asGOTO(l) /* End evaluation of expr in manner*/ | ^~~~~~ machine.c: In function 'addCfunTable': machine.c:494:6: warning: old-style function definition [-Wold-style-definition] 494 | Void addCfunTable(tc) /* Add a constructor fun table to */ | ^~~~~~~~~~~~ machine.c: In function 'succCfun': machine.c:511:6: warning: old-style function definition [-Wold-style-definition] 511 | Name succCfun(n) /* get next constructor in sequence*/ | ^~~~~~~~ machine.c: In function 'nextCfun': machine.c:522:6: warning: old-style function definition [-Wold-style-definition] 522 | Name nextCfun(n1,n2) /* get next constructor in series */ | ^~~~~~~~ machine.c: In function 'cfunByNum': machine.c:533:6: warning: old-style function definition [-Wold-style-definition] 533 | Name cfunByNum(n,i) /* get ith constructor (0<=i=1) */ | ^~~~~ output.c: In function 'putStrConst': output.c:570:19: warning: old-style function definition [-Wold-style-definition] 570 | static Void local putStrConst(e) | ^~~~~~~~~~~ output.c: In function 'isStrConst': output.c:582:19: warning: old-style function definition [-Wold-style-definition] 582 | static Bool local isStrConst(e) | ^~~~~~~~~~ output.c: In function 'isCharCell': output.c:592:19: warning: old-style function definition [-Wold-style-definition] 592 | static Bool local isCharCell(e) | ^~~~~~~~~~ output.c: In function 'getCellChar': output.c:607:19: warning: old-style function definition [-Wold-style-definition] 607 | static Char local getCellChar(e) | ^~~~~~~~~~~ output.c: In function 'putOverInfix': output.c:622:19: warning: old-style function definition [-Wold-style-definition] 622 | static Void local putOverInfix(args,t,sy,e) | ^~~~~~~~~~~~ output.c: In function 'putInfix': output.c:636:19: warning: old-style function definition [-Wold-style-definition] 636 | static Void local putInfix(d,t,sy,e,f) /* print infix expression */ | ^~~~~~~~ output.c: In function 'putSimpleAp': output.c:652:19: warning: old-style function definition [-Wold-style-definition] 652 | static Void local putSimpleAp(e,n) /* print application e0 e1 ... en */ | ^~~~~~~~~~~ output.c: In function 'putTuple': output.c:664:19: warning: old-style function definition [-Wold-style-definition] 664 | static Void local putTuple(ts,e) /* Print tuple expression, allowing*/ | ^~~~~~~~ output.c: In function 'unusedTups': output.c:676:18: warning: old-style function definition [-Wold-style-definition] 676 | static Int local unusedTups(ts,e) /* print first part of tuple expr */ | ^~~~~~~~~~ output.c: In function 'unlexVar': output.c:692:19: warning: old-style function definition [-Wold-style-definition] 692 | static Void local unlexVar(t) /* print text as a variable name */ | ^~~~~~~~ output.c: In function 'unlexFullVar': output.c:704:19: warning: old-style function definition [-Wold-style-definition] 704 | static Void local unlexFullVar(n) /* print text as a variable name */ | ^~~~~~~~~~~~ output.c: In function 'unlexOp': output.c:728:19: warning: old-style function definition [-Wold-style-definition] 728 | static Void local unlexOp(t) /* print text as operator name */ | ^~~~~~~ output.c: In function 'unlexCharConst': output.c:741:19: warning: old-style function definition [-Wold-style-definition] 741 | static Void local unlexCharConst(c) | ^~~~~~~~~~~~~~ output.c: In function 'unlexStrConst': output.c:748:19: warning: old-style function definition [-Wold-style-definition] 748 | static Void local unlexStrConst(t) | ^~~~~~~~~~~~~ output.c: In function 'putSigType': output.c:1183:19: warning: old-style function definition [-Wold-style-definition] 1183 | static Void local putSigType(t) /* print (possibly) generic type */ | ^~~~~~~~~~ output.c: In function 'putContext': output.c:1196:19: warning: old-style function definition [-Wold-style-definition] 1196 | static Void local putContext(ps,qs,fr) /* print context list */ | ^~~~~~~~~~ output.c: In function 'putPred': output.c:1225:19: warning: old-style function definition [-Wold-style-definition] 1225 | static Void local putPred(pi,fr) /* Output predicate */ | ^~~~~~~ output.c: In function 'putType': output.c:1264:19: warning: old-style function definition [-Wold-style-definition] 1264 | static Void local putType(t,prec,fr) /* print nongeneric type expression*/ | ^~~~~~~ output.c: In function 'putTyVar': output.c:1400:19: warning: old-style function definition [-Wold-style-definition] 1400 | static Void local putTyVar(n) /* print type variable */ | ^~~~~~~~ output.c: In function 'putTupleType': output.c:1409:19: warning: old-style function definition [-Wold-style-definition] 1409 | static Bool local putTupleType(e,fr) /* print tuple of types, returning */ | ^~~~~~~~~~~~ output.c: In function 'putApType': output.c:1421:19: warning: old-style function definition [-Wold-style-definition] 1421 | static Void local putApType(t,n,fr) /* print type application */ | ^~~~~~~~~ output.c: In function 'putKind': output.c:1438:19: warning: old-style function definition [-Wold-style-definition] 1438 | static Void local putKind(k) /* print kind expression */ | ^~~~~~~ output.c: In function 'putKinds': output.c:1473:19: warning: old-style function definition [-Wold-style-definition] 1473 | static Void local putKinds(ks) /* Print list of kinds */ | ^~~~~~~~ output.c: In function 'newLine': output.c:1499:6: warning: old-style function definition [-Wold-style-definition] 1499 | Void newLine(indent) | ^~~~~~~ output.c: In function 'countObsList': output.c:1507:5: warning: old-style function definition [-Wold-style-definition] 1507 | Int countObsList(header) | ^~~~~~~~~~~~ output.c: In function 'printObserve': output.c:1539:6: warning: old-style function definition [-Wold-style-definition] 1539 | Void printObserve(t) | ^~~~~~~~~~~~ output.c: In function 'printObsList': output.c:1573:6: warning: old-style function definition [-Wold-style-definition] 1573 | Bool printObsList(header, indent, funPrint) | ^~~~~~~~~~~~ output.c: In function 'putModule': output.c:1629:19: warning: old-style function definition [-Wold-style-definition] 1629 | static Void local putModule(m) /* print module qualifier */ | ^~~~~~~~~ output.c: In function 'printExp': output.c:1640:6: warning: old-style function definition [-Wold-style-definition] 1640 | Void printExp(fp,e) /* print expr on specified stream */ | ^~~~~~~~ output.c: In function 'printArg': output.c:1649:13: warning: old-style function definition [-Wold-style-definition] 1649 | static Void printArg(fp,e) /* print expr on specified stream */ | ^~~~~~~~ output.c: In function 'printType': output.c:1658:6: warning: old-style function definition [-Wold-style-definition] 1658 | Void printType(fp,t) /* print type on specified stream */ | ^~~~~~~~~ output.c: In function 'printContext': output.c:1665:6: warning: old-style function definition [-Wold-style-definition] 1665 | Void printContext(fp,qs) /* print context on spec. stream */ | ^~~~~~~~~~~~ output.c: In function 'printPred': output.c:1672:6: warning: old-style function definition [-Wold-style-definition] 1672 | Void printPred(fp,pi) /* print predicate pi on stream */ | ^~~~~~~~~ output.c: In function 'printKind': output.c:1679:6: warning: old-style function definition [-Wold-style-definition] 1679 | Void printKind(fp,k) /* print kind k on stream */ | ^~~~~~~~~ output.c: In function 'printKinds': output.c:1686:6: warning: old-style function definition [-Wold-style-definition] 1686 | Void printKinds(fp,ks) /* print list of kinds on stream */ | ^~~~~~~~~~ output.c: In function 'printFD': output.c:1693:6: warning: old-style function definition [-Wold-style-definition] 1693 | Void printFD(fp,fd) /* print functional dependency */ | ^~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 plugin.c plugin.c: In function 'havePlugin': plugin.c:38:6: warning: old-style function definition [-Wold-style-definition] 38 | Bool havePlugin(mod) /* can we statically link this plugin? */ | ^~~~~~~~~~ plugin.c: In function 'plugins': plugin.c:54:6: warning: old-style function definition [-Wold-style-definition] 54 | Void plugins(what) | ^~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 script.c script.c: In function 'freeScript': script.c:72:19: warning: old-style function definition [-Wold-style-definition] 72 | static Void local freeScript(i) | ^~~~~~~~~~ script.c: In function 'getScriptName': script.c:91:8: warning: old-style function definition [-Wold-style-definition] 91 | String getScriptName(s) /* access the script name at index 's' */ | ^~~~~~~~~~~~~ script.c: In function 'getScriptRealName': script.c:102:8: warning: old-style function definition [-Wold-style-definition] 102 | String getScriptRealName(s) /* access the path of script at index 's' */ | ^~~~~~~~~~~~~~~~~ script.c: In function 'addScriptName': script.c:150:6: warning: old-style function definition [-Wold-style-definition] 150 | Void addScriptName(s,sch) /* Add script to list of scripts */ | ^~~~~~~~~~~~~ script.c: In function 'addScript': script.c:181:19: warning: old-style function definition [-Wold-style-definition] 181 | static Bool local addScript(fname,len) /* read single script file */ | ^~~~~~~~~ script.c: In function 'chase': script.c:210:6: warning: old-style function definition [-Wold-style-definition] 210 | Bool chase(imps) /* Process list of import requests */ | ^~~~~ script.c: In function 'addScriptsFromArgs': script.c:269:6: warning: old-style function definition [-Wold-style-definition] 269 | Void addScriptsFromArgs(argc,argv) | ^~~~~~~~~~~~~~~~~~ script.c: In function 'forgetScriptsFrom': script.c:300:6: warning: old-style function definition [-Wold-style-definition] 300 | Void forgetScriptsFrom(scno) /* remove scripts from system */ | ^~~~~~~~~~~~~~~~~ script.c: In function 'forgetAScript': script.c:318:6: warning: old-style function definition [-Wold-style-definition] 318 | Void forgetAScript(scno) /* remove a script from system */ | ^~~~~~~~~~~~~ script.c: In function 'readScripts': script.c:333:6: warning: old-style function definition [-Wold-style-definition] 333 | Void readScripts(n) /* Reread current list of scripts, */ | ^~~~~~~~~~~ script.c: In function 'script': script.c:392:6: warning: old-style function definition [-Wold-style-definition] 392 | Void script(what) | ^~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses static.c static.c: In function 'kindError': static.c:283:19: warning: old-style function definition [-Wold-style-definition] 283 | static Void local kindError(l,c,in,wh,k,o) | ^~~~~~~~~ static.c: In function 'startModule': static.c:335:6: warning: old-style function definition [-Wold-style-definition] 335 | Void startModule(nm) /* switch to a new module */ | ^~~~~~~~~~~ static.c: In function 'setExportList': static.c:356:6: warning: old-style function definition [-Wold-style-definition] 356 | Void setExportList(exps) /* Add export list to current module */ | ^~~~~~~~~~~~~ static.c: In function 'checkQualImport': static.c:361:19: warning: old-style function definition [-Wold-style-definition] 361 | static Void local checkQualImport(i) /* Process qualified import */ | ^~~~~~~~~~~~~~~ static.c: In function 'checkUnqualImport': static.c:372:19: warning: old-style function definition [-Wold-style-definition] 372 | static Void local checkUnqualImport(i) /* Process unqualified import */ | ^~~~~~~~~~~~~~~~~ static.c: In function 'tyconDefn': static.c:403:6: warning: old-style function definition [-Wold-style-definition] 403 | Void tyconDefn(line,lhs,rhs,what) /* process new type definition */ | ^~~~~~~~~ static.c: In function 'setTypeIns': static.c:445:6: warning: old-style function definition [-Wold-style-definition] 445 | Void setTypeIns(bs) /* set local synonyms for given */ | ^~~~~~~~~~ static.c: In function 'checkTyconDefn': static.c:491:19: warning: old-style function definition [-Wold-style-definition] 491 | static Void local checkTyconDefn(d) /* validate type constructor defn */ | ^~~~~~~~~~~~~~ static.c: In function 'depConstrs': static.c:531:19: warning: old-style function definition [-Wold-style-definition] 531 | static Void local depConstrs(t,tyvars,cd) | ^~~~~~~~~~ static.c: In function 'userArity': static.c:745:18: warning: old-style function definition [-Wold-style-definition] 745 | static Int local userArity(c) /* Find arity for cfun, ignoring */ | ^~~~~~~~~ static.c: In function 'addSels': static.c:770:19: warning: old-style function definition [-Wold-style-definition] 770 | static List local addSels(line,c,fs,ss) /* Add fields to selector list */ | ^~~~~~~ static.c: In function 'selectCtxt': static.c:818:19: warning: old-style function definition [-Wold-style-definition] 818 | static List local selectCtxt(ctxt,vs) /* calculate subset of context */ | ^~~~~~~~~~ static.c: In function 'checkSynonyms': static.c:837:19: warning: old-style function definition [-Wold-style-definition] 837 | static Void local checkSynonyms(ts) /* Check for mutually recursive */ | ^~~~~~~~~~~~~ static.c: In function 'visitSyn': static.c:853:19: warning: old-style function definition [-Wold-style-definition] 853 | static List local visitSyn(path,t,syns) /* visit synonym definition to look*/ | ^~~~~~~~ static.c: In function 'fullerExpand': static.c:882:19: warning: old-style function definition [-Wold-style-definition] 882 | static Type local fullerExpand(t) /* find full expansion of type exp */ | ^~~~~~~~~~~~ static.c: In function 'hasIOResultType': static.c:922:6: warning: old-style function definition [-Wold-style-definition] 922 | Bool hasIOResultType(ty) /* return TRUE if FFI/primitive type sig is an IO action. */ | ^~~~~~~~~~~~~~~ static.c: In function 'instantiateNewtype': static.c:935:19: warning: old-style function definition [-Wold-style-definition] 935 | static Type local instantiateNewtype(c,env) /* instantiate type using */ | ^~~~~~~~~~~~~~~~~~ static.c: In function 'fullExpand': static.c:954:6: warning: old-style function definition [-Wold-style-definition] 954 | Type fullExpand(t) /* find full expansion of type exp */ | ^~~~~~~~~~ static.c: In function 'instantiateSyn': static.c:977:19: warning: old-style function definition [-Wold-style-definition] 977 | static Type local instantiateSyn(t,env) /* instantiate type according using*/ | ^~~~~~~~~~~~~~ static.c: In function 'classDefn': static.c:1009:6: warning: old-style function definition [-Wold-style-definition] 1009 | Void classDefn(line,head,ms,fds) /* process new class definition */ | ^~~~~~~~~ static.c: In function 'checkClassDefn': static.c:1065:19: warning: old-style function definition [-Wold-style-definition] 1065 | static Void local checkClassDefn(c) /* validate class definition */ | ^~~~~~~~~~~~~~ static.c: In function 'checkClassDefn2_': static.c:1170:19: warning: old-style function definition [-Wold-style-definition] 1170 | static Void local checkClassDefn2_(cs) | ^~~~~~~~~~~~~~~~ static.c: In function 'checkClassDefn2': static.c:1175:19: warning: old-style function definition [-Wold-style-definition] 1175 | static Void local checkClassDefn2(c) /* validate class definition, pt 2 */ | ^~~~~~~~~~~~~~~ static.c: In function 'inheritFundeps': static.c:1222:19: warning: old-style function definition [-Wold-style-definition] 1222 | static List local inheritFundeps(c,pi,o) | ^~~~~~~~~~~~~~ static.c: In function 'extendFundeps': static.c:1266:19: warning: old-style function definition [-Wold-style-definition] 1266 | static Void local extendFundeps(c) | ^~~~~~~~~~~~~ static.c: In function 'depPredExp': static.c:1277:19: warning: old-style function definition [-Wold-style-definition] 1277 | static Cell local depPredExp(line,tyvars,pred) | ^~~~~~~~~~ static.c: In function 'checkMems': static.c:1347:19: warning: old-style function definition [-Wold-style-definition] 1347 | static Void local checkMems(c,tyvars,m) /* check member function details */ | ^~~~~~~~~ static.c: In function 'checkMems2': static.c:1388:19: warning: old-style function definition [-Wold-style-definition] 1388 | static Void local checkMems2(c,m) /* check member function details */ | ^~~~~~~~~~ static.c: In function 'addMembers': static.c:1400:19: warning: old-style function definition [-Wold-style-definition] 1400 | static Void local addMembers(c) /* Add definitions of member funs */ | ^~~~~~~~~~ static.c: In function 'newMember': static.c:1459:19: warning: old-style function definition [-Wold-style-definition] 1459 | static Name local newMember(l,no,v,t,parent) | ^~~~~~~~~ static.c: In function 'newDSel': static.c:1490:19: warning: old-style function definition [-Wold-style-definition] 1490 | static Name local newDSel(c,no) /* Make definition for dict selectr*/ | ^~~~~~~ static.c: In function 'generateText': static.c:1506:19: warning: old-style function definition [-Wold-style-definition] 1506 | static Text local generateText(sk,c) /* We need to generate names for */ | ^~~~~~~~~~~~ static.c: In function 'visitClass': static.c:1520:18: warning: old-style function definition [-Wold-style-definition] 1520 | static Int local visitClass(c) /* visit class defn to check that */ | ^~~~~~~~~~ static.c: In function 'classBindings': static.c:1554:19: warning: old-style function definition [-Wold-style-definition] 1554 | static List local classBindings(where,c,bs) | ^~~~~~~~~~~~~ static.c: In function 'memberName': static.c:1586:19: warning: old-style function definition [-Wold-style-definition] 1586 | static Name local memberName(c,t) /* return name of member function */ | ^~~~~~~~~~ static.c: In function 'numInsert': static.c:1598:19: warning: old-style function definition [-Wold-style-definition] 1598 | static List local numInsert(n,x,xs) /* insert x at nth position in xs, */ | ^~~~~~~~~ static.c: In function 'typeVarsIn': static.c:1620:19: warning: old-style function definition [-Wold-style-definition] 1620 | static List local typeVarsIn(ty,us,ws,vs)/*Calculate list of type variables*/ | ^~~~~~~~~~ static.c: In function 'maybeAppendVar': static.c:1656:19: warning: old-style function definition [-Wold-style-definition] 1656 | static List local maybeAppendVar(v,vs) /* append variable to list if not */ | ^~~~~~~~~~~~~~ static.c: In function 'checkSigType': static.c:1687:19: warning: old-style function definition [-Wold-style-definition] 1687 | static Type local checkSigType(line,where,e,type) | ^~~~~~~~~~~~ static.c: In function 'checkOptQuantVars': static.c:1737:19: warning: old-style function definition [-Wold-style-definition] 1737 | static Void local checkOptQuantVars(line,xtvs,tvs) | ^~~~~~~~~~~~~~~~~ static.c: In function 'depTopType': static.c:1765:19: warning: old-style function definition [-Wold-style-definition] 1765 | static Type local depTopType(l,tvs,t) /* Check top-level of type sig */ | ^~~~~~~~~~ static.c: In function 'depCompType': static.c:1794:19: warning: old-style function definition [-Wold-style-definition] 1794 | static Type local depCompType(l,tvs,t) /* Check component type for constr */ | ^~~~~~~~~~~ static.c: In function 'depTypeExp': static.c:1827:19: warning: old-style function definition [-Wold-style-definition] 1827 | static Type local depTypeExp(line,tyvars,type) | ^~~~~~~~~~ static.c: In function 'depTypeVar': static.c:1872:19: warning: old-style function definition [-Wold-style-definition] 1872 | static Type local depTypeVar(line,tyvars,tv) | ^~~~~~~~~~ static.c: In function 'checkQuantVars': static.c:1896:19: warning: old-style function definition [-Wold-style-definition] 1896 | static List local checkQuantVars(line,vs,tvs,body) | ^~~~~~~~~~~~~~ static.c: In function 'offsetTyvarsIn': static.c:1934:19: warning: old-style function definition [-Wold-style-definition] 1934 | static List local offsetTyvarsIn(t,vs) /* add list of offset tyvars in t */ | ^~~~~~~~~~~~~~ static.c: In function 'zonkTyvarsIn': static.c:1958:6: warning: old-style function definition [-Wold-style-definition] 1958 | List zonkTyvarsIn(t,vs) | ^~~~~~~~~~~~ static.c: In function 'otvars': static.c:1978:19: warning: old-style function definition [-Wold-style-definition] 1978 | static List local otvars(pi,os) /* os is a list of offsets that */ | ^~~~~~ static.c: In function 'otvarsZonk': static.c:1988:19: warning: old-style function definition [-Wold-style-definition] 1988 | static List local otvarsZonk(pi,os,o) /* same as above, but zonks */ | ^~~~~~~~~~ static.c: In function 'odiff': static.c:2000:19: warning: old-style function definition [-Wold-style-definition] 2000 | static Bool local odiff(us,vs) | ^~~~~ static.c: In function 'osubset': static.c:2008:19: warning: old-style function definition [-Wold-style-definition] 2008 | static Bool local osubset(us,vs) /* Determine whether us is subset */ | ^~~~~~~ static.c: In function 'oclose': static.c:2016:6: warning: old-style function definition [-Wold-style-definition] 2016 | List oclose(fds,vs) /* Compute closure of vs wrt to fds*/ | ^~~~~~ static.c: In function 'isAmbiguous': static.c:2045:6: warning: old-style function definition [-Wold-style-definition] 2045 | Bool isAmbiguous(type) /* Determine whether type is */ | ^~~~~~~~~~~ static.c: In function 'calcFunDeps': static.c:2062:6: warning: old-style function definition [-Wold-style-definition] 2062 | List calcFunDeps(ps) | ^~~~~~~~~~~ static.c: In function 'calcFunDepsPreds': static.c:2087:6: warning: old-style function definition [-Wold-style-definition] 2087 | List calcFunDepsPreds(ps) | ^~~~~~~~~~~~~~~~ static.c: In function 'ambigError': static.c:2114:6: warning: old-style function definition [-Wold-style-definition] 2114 | Void ambigError(line,where,e,type) /* produce error message for */ | ^~~~~~~~~~ static.c: In function 'kindConstr': static.c:2132:19: warning: old-style function definition [-Wold-style-definition] 2132 | static Void local kindConstr(line,alpha,m,c) | ^~~~~~~~~~ static.c: In function 'kindAtom': static.c:2219:19: warning: old-style function definition [-Wold-style-definition] 2219 | static Kind local kindAtom(alpha,c) /* Find kind of atomic constructor */ | ^~~~~~~~ static.c: In function 'kindPred': static.c:2246:19: warning: old-style function definition [-Wold-style-definition] 2246 | static Void local kindPred(l,alpha,m,pi)/* Check kinds of arguments in pred*/ | ^~~~~~~~ static.c: In function 'kindType': static.c:2278:19: warning: old-style function definition [-Wold-style-definition] 2278 | static Void local kindType(line,wh,type)/* check that (poss qualified) type*/ | ^~~~~~~~ static.c: In function 'kindTCGroup': static.c:2317:19: warning: old-style function definition [-Wold-style-definition] 2317 | static Void local kindTCGroup(tcs) /* find kinds for mutually rec. gp */ | ^~~~~~~~~~~ static.c: In function 'initTCKind': static.c:2328:19: warning: old-style function definition [-Wold-style-definition] 2328 | static Void local initTCKind(c) /* build initial kind/arity for c */ | ^~~~~~~~~~ static.c: In function 'kindTC': static.c:2350:19: warning: old-style function definition [-Wold-style-definition] 2350 | static Void local kindTC(c) /* check each part of a tycon/class*/ | ^~~~~~ static.c: In function 'genTC': static.c:2390:19: warning: old-style function definition [-Wold-style-definition] 2390 | static Void local genTC(c) /* generalise kind inferred for */ | ^~~~~ static.c: In function 'instDefn': static.c:2423:6: warning: old-style function definition [-Wold-style-definition] 2423 | Void instDefn(line,head,ms) /* process new instance definition */ | ^~~~~~~~ static.c: In function 'checkInstDefn': static.c:2457:19: warning: old-style function definition [-Wold-style-definition] 2457 | static Void local checkInstDefn(in) /* Validate instance declaration */ | ^~~~~~~~~~~~~ static.c: In function 'insertInst': static.c:2576:19: warning: old-style function definition [-Wold-style-definition] 2576 | static Void local insertInst(in) /* Insert instance into class */ | ^~~~~~~~~~ static.c: In function 'instCompare': static.c:2674:19: warning: old-style function definition [-Wold-style-definition] 2674 | static Bool local instCompare(ia,ib) /* See if ia is an instance of ib */ | ^~~~~~~~~~~ static.c: In function 'newInstImp': static.c:2681:19: warning: old-style function definition [-Wold-style-definition] 2681 | static Name local newInstImp(in) /* Make definition for inst builder*/ | ^~~~~~~~~~ static.c: In function 'kindInst': static.c:2694:19: warning: old-style function definition [-Wold-style-definition] 2694 | static Void local kindInst(in,freedom) /* check predicates in instance */ | ^~~~~~~~ static.c: In function 'checkDerive': static.c:2724:19: warning: old-style function definition [-Wold-style-definition] 2724 | static Void local checkDerive(t,p,ts,ct)/* verify derived instance request */ | ^~~~~~~~~~~ static.c: In function 'addDerInst': static.c:2739:19: warning: old-style function definition [-Wold-style-definition] 2739 | static Void local addDerInst(line,c,p,cts,t,a) /* Add a derived instance */ | ^~~~~~~~~~ static.c: In function 'addTupInst': static.c:2764:6: warning: old-style function definition [-Wold-style-definition] 2764 | Void addTupInst(c,n) /* Request derived instance of c */ | ^~~~~~~~~~ static.c: In function 'addRecShowInst': static.c:2777:6: warning: old-style function definition [-Wold-style-definition] 2777 | Inst addRecShowInst(c,e) /* Generate instance for ShowRecRow*/ | ^~~~~~~~~~~~~~ static.c: In function 'addRecEqInst': static.c:2793:6: warning: old-style function definition [-Wold-style-definition] 2793 | Inst addRecEqInst(c,e) /* Generate instance for EqRecRow */ | ^~~~~~~~~~~~ static.c: In function 'deriveContexts': static.c:2851:19: warning: old-style function definition [-Wold-style-definition] 2851 | static Void local deriveContexts(is) /* Calc contexts for derived insts */ | ^~~~~~~~~~~~~~ static.c: In function 'initDerInst': static.c:2864:19: warning: old-style function definition [-Wold-style-definition] 2864 | static Void local initDerInst(in) /* Prepare instance for calculation*/ | ^~~~~~~~~~~ static.c: In function 'calcInstPreds': static.c:2886:19: warning: old-style function definition [-Wold-style-definition] 2886 | static Void local calcInstPreds(in) /* Calculate next approximation */ | ^~~~~~~~~~~~~ static.c: In function 'maybeAddPred': static.c:2990:19: warning: old-style function definition [-Wold-style-definition] 2990 | static Void local maybeAddPred(pi,o,beta,ps) | ^~~~~~~~~~~~ static.c: In function 'copyAdj': static.c:3008:19: warning: old-style function definition [-Wold-style-definition] 3008 | static Cell local copyAdj(c,o,beta) /* Copy (c,o), replacing vars with */ | ^~~~~~~ static.c: In function 'tidyDerInst': static.c:3033:19: warning: old-style function definition [-Wold-style-definition] 3033 | static Void local tidyDerInst(in) /* Tidy up results of derived inst */ | ^~~~~~~~~~~ static.c: In function 'addDerivImp': static.c:3056:19: warning: old-style function definition [-Wold-style-definition] 3056 | static Void local addDerivImp(in) | ^~~~~~~~~~~ static.c: In function 'getDiVars': static.c:3092:19: warning: old-style function definition [-Wold-style-definition] 3092 | static List local getDiVars(n) /* get list of at least n vars for */ | ^~~~~~~~~ static.c: In function 'mkBind': static.c:3100:19: warning: old-style function definition [-Wold-style-definition] 3100 | static Cell local mkBind(s,alts) /* make a binding for a variable */ | ^~~~~~ static.c: In function 'mkVarAlts': static.c:3106:19: warning: old-style function definition [-Wold-style-definition] 3106 | static Cell local mkVarAlts(line,r) /* make alts for binding a var to */ | ^~~~~~~~~ static.c: In function 'deriveEq': static.c:3132:19: warning: old-style function definition [-Wold-style-definition] 3132 | static List local deriveEq(t) /* generate binding for derived == */ | ^~~~~~~~ static.c: In function 'mkAltEq': static.c:3155:19: warning: old-style function definition [-Wold-style-definition] 3155 | static Pair local mkAltEq(line,pats) /* make alt for an equation for == */ | ^~~~~~~ static.c: In function 'deriveOrd': static.c:3171:19: warning: old-style function definition [-Wold-style-definition] 3171 | static List local deriveOrd(t) /* make binding for derived compare*/ | ^~~~~~~~~ static.c: In function 'mkAltOrd': static.c:3198:19: warning: old-style function definition [-Wold-style-definition] 3198 | static Pair local mkAltOrd(line,pats) /* make alt for eqn for compare */ | ^~~~~~~~ static.c: In function 'makeDPats2': static.c:3215:19: warning: old-style function definition [-Wold-style-definition] 3215 | static List local makeDPats2(h,n) /* generate pattern list */ | ^~~~~~~~~~ static.c: In function 'deriveEnum': static.c:3240:19: warning: old-style function definition [-Wold-style-definition] 3240 | static List local deriveEnum(t) /* Construct definition of enumeration */ | ^~~~~~~~~~ static.c: In function 'deriveIx': static.c:3256:19: warning: old-style function definition [-Wold-style-definition] 3256 | static List local deriveIx(t) /* Construct definition of indexing */ | ^~~~~~~~ static.c: In function 'isEnumType': static.c:3277:19: warning: old-style function definition [-Wold-style-definition] 3277 | static Bool local isEnumType(t) /* Determine whether t is an enumeration */ | ^~~~~~~~~~ static.c: In function 'mkIxBinds': static.c:3292:19: warning: old-style function definition [-Wold-style-definition] 3292 | static List local mkIxBinds(line,h,n) /* build bindings for derived Ix on*/ | ^~~~~~~~~ static.c: In function 'prodRange': static.c:3319:19: warning: old-style function definition [-Wold-style-definition] 3319 | static Cell local prodRange(line,pats,ls,us,is) | ^~~~~~~~~ static.c: In function 'prodIndex': static.c:3340:19: warning: old-style function definition [-Wold-style-definition] 3340 | static Cell local prodIndex(line,pats,ls,us,is) | ^~~~~~~~~ static.c: In function 'prodInRange': static.c:3363:19: warning: old-style function definition [-Wold-style-definition] 3363 | static Cell local prodInRange(line,pats,ls,us,is) | ^~~~~~~~~~~ static.c: In function 'deriveShow': static.c:3385:19: warning: old-style function definition [-Wold-style-definition] 3385 | static List local deriveShow(t) /* Construct definition of text conversion */ | ^~~~~~~~~~ static.c: In function 'mkAltShow': static.c:3402:19: warning: old-style function definition [-Wold-style-definition] 3402 | static Cell local mkAltShow(line,h,a) /* make alt for showsPrec eqn */ | ^~~~~~~~~ static.c: In function 'showsPrecRhs': static.c:3430:19: warning: old-style function definition [-Wold-style-definition] 3430 | static Cell local showsPrecRhs(d,pat,a) /* build a rhs for showsPrec for a */ | ^~~~~~~~~~~~ static.c: In function 'deriveRead': static.c:3569:19: warning: old-style function definition [-Wold-style-definition] 3569 | static List local deriveRead(t) /* construct definition of text reader */ | ^~~~~~~~~~ static.c: In function 'mkReadCon': static.c:3606:19: warning: old-style function definition [-Wold-style-definition] 3606 | static Cell local mkReadCon(con, d, r) /* generate reader for a constructor */ | ^~~~~~~~~ static.c: In function 'mkReadPrefix': static.c:3646:19: warning: old-style function definition [-Wold-style-definition] 3646 | static Cell local mkReadPrefix(con) /* readsPrec for prefix constructor */ | ^~~~~~~~~~~~ static.c: In function 'mkReadInfix': static.c:3682:19: warning: old-style function definition [-Wold-style-definition] 3682 | static Cell local mkReadInfix( con ) | ^~~~~~~~~~~ static.c: In function 'mkReadTuple': static.c:3715:19: warning: old-style function definition [-Wold-style-definition] 3715 | static Cell local mkReadTuple( tup ) /* readsPrec for n-tuple */ | ^~~~~~~~~~~ static.c: In function 'mkReadRecord': static.c:3767:19: warning: old-style function definition [-Wold-style-definition] 3767 | static Cell local mkReadRecord(con, fs) /* readsPrec for record constructor */ | ^~~~~~~~~~~~ static.c: In function 'deriveBounded': static.c:3815:19: warning: old-style function definition [-Wold-style-definition] 3815 | static List local deriveBounded(t)/* construct definition of bounds */ | ^~~~~~~~~~~~~ static.c: In function 'mkBndBinds': static.c:3840:19: warning: old-style function definition [-Wold-style-definition] 3840 | static List local mkBndBinds(line,h,n) /* build bindings for derived */ | ^~~~~~~~~~ static.c: In function 'defaultDefn': static.c:3861:6: warning: old-style function definition [-Wold-style-definition] 3861 | Void defaultDefn(line,defs) /* Handle default types definition */ | ^~~~~~~~~~~ static.c: In function 'primDefn': static.c:3907:6: warning: old-style function definition [-Wold-style-definition] 3907 | Void primDefn(line,prims,type) /* Handle primitive definitions */ | ^~~~~~~~ static.c: In function 'checkPrimDefn': static.c:3914:19: warning: old-style function definition [-Wold-style-definition] 3914 | static List local checkPrimDefn(pd) /* Check primitive definition */ | ^~~~~~~~~~~~~ static.c: In function 'addNewPrim': static.c:3931:19: warning: old-style function definition [-Wold-style-definition] 3931 | static Name local addNewPrim(l,vn,s,t) /* make binding of variable vn to */ | ^~~~~~~~~~ static.c: In function 'checkCallConv': static.c:3969:12: warning: old-style function definition [-Wold-style-definition] 3969 | static Int checkCallConv(line,t) | ^~~~~~~~~~~~~ static.c: In function 'foreignImport': static.c:3989:6: warning: old-style function definition [-Wold-style-definition] 3989 | Void foreignImport(l,callconv,safety,ext,intName,type) | ^~~~~~~~~~~~~ static.c: In function 'foreignExport': static.c:4034:6: warning: old-style function definition [-Wold-style-definition] 4034 | Void foreignExport(l,v,callconv,ext,intName,type) | ^~~~~~~~~~~~~ static.c: In function 'skipSpaces': static.c:4090:15: warning: old-style function definition [-Wold-style-definition] 4090 | static String skipSpaces(s) | ^~~~~~~~~~ static.c: In function 'skipToSpace': static.c:4098:15: warning: old-style function definition [-Wold-style-definition] 4098 | static String skipToSpace(s) | ^~~~~~~~~~~ static.c: In function 'skipToChar': static.c:4106:15: warning: old-style function definition [-Wold-style-definition] 4106 | static String skipToChar(s,c) | ^~~~~~~~~~ static.c: In function 'matchToken': static.c:4115:15: warning: old-style function definition [-Wold-style-definition] 4115 | static String matchToken(t,s) | ^~~~~~~~~~ static.c: In function 'matchFname': static.c:4129:15: warning: old-style function definition [-Wold-style-definition] 4129 | static String matchFname(s) | ^~~~~~~~~~ static.c: In function 'checkForeignImport': static.c:4139:19: warning: old-style function definition [-Wold-style-definition] 4139 | static Void local checkForeignImport(p) /* Check foreign import */ | ^~~~~~~~~~~~~~~~~~ static.c: In function 'checkForeignExport': static.c:4390:19: warning: old-style function definition [-Wold-style-definition] 4390 | static Void local checkForeignExport(p) /* Check foreign export */ | ^~~~~~~~~~~~~~~~~~ static.c: In function 'linkForeign': static.c:4427:19: warning: old-style function definition [-Wold-style-definition] 4427 | static Void local linkForeign(p) /* Link an ffi-generated primitive */ | ^~~~~~~~~~~ static.c: In function 'checkPat': static.c:4453:19: warning: old-style function definition [-Wold-style-definition] 4453 | static Cell local checkPat(line,p) /* Check valid pattern syntax */ | ^~~~~~~~ static.c: In function 'checkMaybeCnkPat': static.c:4507:19: warning: old-style function definition [-Wold-style-definition] 4507 | static Cell local checkMaybeCnkPat(l,p)/* Check applicative pattern with */ | ^~~~~~~~~~~~~~~~ static.c: In function 'checkApPat': static.c:4536:19: warning: old-style function definition [-Wold-style-definition] 4536 | static Cell local checkApPat(line,args,p) | ^~~~~~~~~~ static.c: In function 'addToPatVars': static.c:4582:19: warning: old-style function definition [-Wold-style-definition] 4582 | static Void local addToPatVars(line,v) /* Add variable v to list of vars */ | ^~~~~~~~~~~~ static.c: In function 'conDefined': static.c:4604:19: warning: old-style function definition [-Wold-style-definition] 4604 | static Name local conDefined(line,nm,check) | ^~~~~~~~~~ static.c: In function 'checkIsCfun': static.c:4624:19: warning: old-style function definition [-Wold-style-definition] 4624 | static Void local checkIsCfun(line,c) /* Check that c is a constructor fn */ | ^~~~~~~~~~~ static.c: In function 'checkCfunArgs': static.c:4634:19: warning: old-style function definition [-Wold-style-definition] 4634 | static Void local checkCfunArgs(line,c,args) | ^~~~~~~~~~~~~ static.c: In function 'checkPatType': static.c:4647:19: warning: old-style function definition [-Wold-style-definition] 4647 | static Cell local checkPatType(l,wh,e,t)/* Check type appearing in pattern */ | ^~~~~~~~~~~~ static.c: In function 'applyBtyvs': static.c:4666:19: warning: old-style function definition [-Wold-style-definition] 4666 | static Cell local applyBtyvs(pat) /* Record bound type vars in pat */ | ^~~~~~~~~~ static.c: In function 'bindPat': static.c:4700:19: warning: old-style function definition [-Wold-style-definition] 4700 | static Cell local bindPat(line,p) /* add new bound vars for pattern */ | ^~~~~~~ static.c: In function 'bindPats': static.c:4709:19: warning: old-style function definition [-Wold-style-definition] 4709 | static Void local bindPats(line,ps) /* add new bound vars for patterns */ | ^~~~~~~~ static.c: In function 'extractSigdecls': static.c:4763:19: warning: old-style function definition [-Wold-style-definition] 4763 | static List local extractSigdecls(es) /* Extract the SIGDECLS from list */ | ^~~~~~~~~~~~~~~ static.c: In function 'extractFixdecls': static.c:4785:19: warning: old-style function definition [-Wold-style-definition] 4785 | static List local extractFixdecls(es) /* Extract the FIXDECLS from list */ | ^~~~~~~~~~~~~~~ static.c: In function 'extractBindings': static.c:4797:19: warning: old-style function definition [-Wold-style-definition] 4797 | static List local extractBindings(ds) /* extract untyped bindings from */ | ^~~~~~~~~~~~~~~ static.c: In function 'getPatVars': static.c:4867:19: warning: old-style function definition [-Wold-style-definition] 4867 | static List local getPatVars(line,p,vs) /* Find list of variables bound in */ | ^~~~~~~~~~ static.c: In function 'addPatVar': static.c:4924:19: warning: old-style function definition [-Wold-style-definition] 4924 | static List local addPatVar(line,v,vs) /* Add var to list of previously */ | ^~~~~~~~~ static.c: In function 'eqnsToBindings': static.c:4936:19: warning: old-style function definition [-Wold-style-definition] 4936 | static List local eqnsToBindings(es,ts,cs,ps) | ^~~~~~~~~~~~~~ static.c: In function 'notDefined': static.c:4947:19: warning: old-style function definition [-Wold-style-definition] 4947 | static Void local notDefined(line,bs,v)/* check if name already defined in */ | ^~~~~~~~~~ static.c: In function 'findBinding': static.c:4957:19: warning: old-style function definition [-Wold-style-definition] 4957 | static Cell local findBinding(t,bs) /* look for binding for variable t */ | ^~~~~~~~~~~ static.c: In function 'getAttr': static.c:4972:19: warning: old-style function definition [-Wold-style-definition] 4972 | static Cell local getAttr(bs,v) /* Locate type/fixity attribute */ | ^~~~~~~ static.c: In function 'addSigdecl': static.c:5007:19: warning: old-style function definition [-Wold-style-definition] 5007 | static Void local addSigdecl(bs,sigdecl)/* add type information to bindings*/ | ^~~~~~~~~~ static.c: In function 'addFixdecl': static.c:5030:19: warning: old-style function definition [-Wold-style-definition] 5030 | static Void local addFixdecl(bs,ts,cs,ps,fixdecl) | ^~~~~~~~~~ static.c: In function 'dupFixity': static.c:5077:19: warning: old-style function definition [-Wold-style-definition] 5077 | static Void local dupFixity(line,t) /* Report repeated fixity decl */ | ^~~~~~~~~ static.c: In function 'missFixity': static.c:5085:19: warning: old-style function definition [-Wold-style-definition] 5085 | static Void local missFixity(line,t) /* Report missing op for fixity */ | ^~~~~~~~~~ static.c: In function 'tidyInfix': static.c:5175:19: warning: old-style function definition [-Wold-style-definition] 5175 | static Cell local tidyInfix(line,e) /* Convert infixExp to Exp */ | ^~~~~~~~~ static.c: In function 'attachFixity': static.c:5318:19: warning: old-style function definition [-Wold-style-definition] 5318 | static Pair local attachFixity(line,op) /* Attach fixity to operator in an */ | ^~~~~~~~~~~~ static.c: In function 'lookupSyntax': static.c:5362:21: warning: old-style function definition [-Wold-style-definition] 5362 | static Syntax local lookupSyntax(t) /* Try to find fixity for var in */ | ^~~~~~~~~~~~ static.c: In function 'dependencyAnal': static.c:5420:19: warning: old-style function definition [-Wold-style-definition] 5420 | static List local dependencyAnal(bs) /* Separate lists of bindings into */ | ^~~~~~~~~~~~~~ static.c: In function 'topDependAnal': static.c:5431:19: warning: old-style function definition [-Wold-style-definition] 5431 | static List local topDependAnal(bs) /* Like dependencyAnal(), but at */ | ^~~~~~~~~~~~~ static.c: In function 'addDepField': static.c:5449:19: warning: old-style function definition [-Wold-style-definition] 5449 | static Void local addDepField(b) /* add extra field to binding to */ | ^~~~~~~~~~~ static.c: In function 'remDepField': static.c:5454:19: warning: old-style function definition [-Wold-style-definition] 5454 | static Void local remDepField(bs) /* remove dependency field from */ | ^~~~~~~~~~~ static.c: In function 'remDepField1': static.c:5459:19: warning: old-style function definition [-Wold-style-definition] 5459 | static Void local remDepField1(b) /* remove dependency field from */ | ^~~~~~~~~~~~ static.c: In function 'withinScope': static.c:5473:19: warning: old-style function definition [-Wold-style-definition] 5473 | static Void local withinScope(bs) /* Enter scope of bindings bs */ | ^~~~~~~~~~~ static.c: In function 'dropNameClash': static.c:5515:19: warning: old-style function definition [-Wold-style-definition] 5515 | static Void local dropNameClash(v) | ^~~~~~~~~~~~~ static.c: In function 'saveSyntax': static.c:5524:19: warning: old-style function definition [-Wold-style-definition] 5524 | static Void local saveSyntax(v,sy) /* Save syntax of top-level var */ | ^~~~~~~~~~ static.c: In function 'checkIBindings': static.c:5537:19: warning: old-style function definition [-Wold-style-definition] 5537 | static Bool local checkIBindings(line,bs) | ^~~~~~~~~~~~~~ static.c: In function 'depBinding': static.c:5584:19: warning: old-style function definition [-Wold-style-definition] 5584 | static Void local depBinding(b) /* find dependents of binding */ | ^~~~~~~~~~ static.c: In function 'depDefaults': static.c:5615:19: warning: old-style function definition [-Wold-style-definition] 5615 | static Void local depDefaults(c) /* dependency analysis on defaults */ | ^~~~~~~~~~~ static.c: In function 'depInsts': static.c:5620:19: warning: old-style function definition [-Wold-style-definition] 5620 | static Void local depInsts(in) /* dependency analysis on instance */ | ^~~~~~~~ static.c: In function 'depClassBindings': static.c:5625:19: warning: old-style function definition [-Wold-style-definition] 5625 | static Void local depClassBindings(bs) /* dependency analysis on list of */ | ^~~~~~~~~~~~~~~~ static.c: In function 'depLetRec': static.c:5634:19: warning: old-style function definition [-Wold-style-definition] 5634 | static Cell local depLetRec(isRhs,line,e) /* dependency analysis on a letrec */ | ^~~~~~~~~ static.c: In function 'depAlt': static.c:5666:19: warning: old-style function definition [-Wold-style-definition] 5666 | static Void local depAlt(a) /* Find dependents of alternative */ | ^~~~~~ static.c: In function 'depRhs': static.c:5676:19: warning: old-style function definition [-Wold-style-definition] 5676 | static Void local depRhs(r) /* Find dependents of rhs */ | ^~~~~~ static.c: In function 'depGuard': static.c:5697:19: warning: old-style function definition [-Wold-style-definition] 5697 | static Void local depGuard(g) /* find dependents of single guarded*/ | ^~~~~~~~ static.c: In function 'depExpr': static.c:5702:6: warning: old-style function definition [-Wold-style-definition] 5702 | Cell depExpr(line,e) /* find dependents of expression */ | ^~~~~~~ static.c: In function 'depPair': static.c:5826:19: warning: old-style function definition [-Wold-style-definition] 5826 | static Void local depPair(line,e) /* find dependents of pair of exprs*/ | ^~~~~~~ static.c: In function 'depTriple': static.c:5833:19: warning: old-style function definition [-Wold-style-definition] 5833 | static Void local depTriple(line,e) /* find dependents of triple exprs */ | ^~~~~~~~~ static.c: In function 'depComp': static.c:5841:19: warning: old-style function definition [-Wold-style-definition] 5841 | static Void local depComp(l,e,qs) /* find dependents of comprehension*/ | ^~~~~~~ static.c: In function 'mdoExpandQualifiers': static.c:5951:19: warning: old-style function definition [-Wold-style-definition] 5951 | static Void local mdoExpandQualifiers(l,e,qs,defs) | ^~~~~~~~~~~~~~~~~~~ static.c: In function 'mdoUsedVars': static.c:6008:19: warning: old-style function definition [-Wold-style-definition] 6008 | static List local mdoUsedVars(xs,c,ys,ls)/* copy elements of xs until the */ | ^~~~~~~~~~~ static.c: In function 'mdoGetPatVarsLet': static.c:6032:19: warning: old-style function definition [-Wold-style-definition] 6032 | static List local mdoGetPatVarsLet(l, eqns, fvs) | ^~~~~~~~~~~~~~~~ static.c: In function 'mdoBVars': static.c:6059:19: warning: old-style function definition [-Wold-style-definition] 6059 | static List local mdoBVars(l, qs) /* return list of bound vars */ | ^~~~~~~~ static.c: In function 'mdoCleanSegment': static.c:6094:19: warning: old-style function definition [-Wold-style-definition] 6094 | static List local mdoCleanSegment(seg) /* clean the segment by */ | ^~~~~~~~~~~~~~~ static.c: In function 'mdoNoLets': static.c:6140:21: warning: old-style function definition [-Wold-style-definition] 6140 | static List local mdoNoLets(seg) /* get rid of let's */ | ^~~~~~~~~ static.c: In function 'mdoUsedInAnySeg': static.c:6175:21: warning: old-style function definition [-Wold-style-definition] 6175 | static Bool local mdoUsedInAnySeg(v,segs) /* does v appear in any */ | ^~~~~~~~~~~~~~~ static.c: In function 'mdoComputeExports': static.c:6187:21: warning: old-style function definition [-Wold-style-definition] 6187 | static Void local mdoComputeExports(segs,e) /* compute export lists */ | ^~~~~~~~~~~~~~~~~ static.c: In function 'depRecComp': static.c:6203:19: warning: old-style function definition [-Wold-style-definition] 6203 | static Void local depRecComp(l,e,qs) /* find dependents of a recursive */ | ^~~~~~~~~~ static.c: In function 'mdoIsConnected': static.c:6332:19: warning: old-style function definition [-Wold-style-definition] 6332 | static Bool local mdoIsConnected(q, usedVars) /* Does q1 define a variable */ | ^~~~~~~~~~~~~~ static.c: In function 'mdoSegment': static.c:6346:18: warning: old-style function definition [-Wold-style-definition] 6346 | static Int local mdoSegment(q, eqs) /* return the index of the last qual */ | ^~~~~~~~~~ static.c: In function 'mdoSCC': static.c:6364:19: warning: old-style function definition [-Wold-style-definition] 6364 | static Void local mdoSCC(eqs) /* SCC for mdo */ | ^~~~~~ static.c: In function 'zipName': static.c:6403:6: warning: old-style function definition [-Wold-style-definition] 6403 | Text zipName(n) | ^~~~~~~ static.c: In function 'depZComp': static.c:6414:19: warning: old-style function definition [-Wold-style-definition] 6414 | static Void local depZComp(l,e,qss) | ^~~~~~~~ static.c: In function 'depZCompBranch': static.c:6448:19: warning: old-style function definition [-Wold-style-definition] 6448 | static Void local depZCompBranch(l,qs) /* find dependents of comprehension*/ | ^~~~~~~~~~~~~~ static.c: In function 'intersectBinds': static.c:6491:19: warning: old-style function definition [-Wold-style-definition] 6491 | static List local intersectBinds(bs1,bs2) | ^~~~~~~~~~~~~~ static.c: In function 'getBindVars': static.c:6495:19: warning: old-style function definition [-Wold-style-definition] 6495 | static List local getBindVars(bs) | ^~~~~~~~~~~ static.c: In function 'depCaseAlt': static.c:6504:19: warning: old-style function definition [-Wold-style-definition] 6504 | static Void local depCaseAlt(line,a) /* Find dependents of case altern. */ | ^~~~~~~~~~ static.c: In function 'checkNameAmbigName': static.c:6515:19: warning: old-style function definition [-Wold-style-definition] 6515 | static Void local checkNameAmbigName(line,n,isV) | ^~~~~~~~~~~~~~~~~~ static.c: In function 'checkNameAmbig': static.c:6535:19: warning: old-style function definition [-Wold-style-definition] 6535 | static Void local checkNameAmbig(line,t,e) | ^~~~~~~~~~~~~~ static.c: In function 'checkTyconAmbig': static.c:6549:19: warning: old-style function definition [-Wold-style-definition] 6549 | static Cell local checkTyconAmbig(line,t,e) | ^~~~~~~~~~~~~~~ static.c: In function 'depVar': static.c:6576:19: warning: old-style function definition [-Wold-style-definition] 6576 | static Cell local depVar(line,e,check) /* Register occurrence of variable */ | ^~~~~~ static.c: In function 'depQVar': static.c:6634:19: warning: old-style function definition [-Wold-style-definition] 6634 | static Cell local depQVar(line,e,isV)/* register occurrence of qualified variable */ | ^~~~~~~ static.c: In function 'depConFlds': static.c:6668:19: warning: old-style function definition [-Wold-style-definition] 6668 | static Void local depConFlds(line,e,isP)/* check construction using fields */ | ^~~~~~~~~~ static.c: In function 'depUpdFlds': static.c:6745:19: warning: old-style function definition [-Wold-style-definition] 6745 | static Void local depUpdFlds(line,e) /* check update using fields */ | ^~~~~~~~~~ static.c: In function 'depFields': static.c:6756:19: warning: old-style function definition [-Wold-style-definition] 6756 | static List local depFields(l,e,fs,isP) /* check field binding list */ | ^~~~~~~~~ static.c: In function 'depWith': static.c:6832:19: warning: old-style function definition [-Wold-style-definition] 6832 | static Void local depWith(line,e) /* check with using fields */ | ^~~~~~~ static.c: In function 'depDwFlds': static.c:6839:19: warning: old-style function definition [-Wold-style-definition] 6839 | static List local depDwFlds(l,e,fs)/* check field binding list */ | ^~~~~~~~~ static.c: In function 'depRecord': static.c:6929:19: warning: old-style function definition [-Wold-style-definition] 6929 | static Cell local depRecord(line,e) /* find dependents of record and */ | ^~~~~~~~~ In file included from static.c:6978: scc.c: In function 'sccMin': scc.c:23:18: warning: old-style function definition [-Wold-style-definition] 23 | static Int local sccMin(x,y) /* calculate minimum of x,y */ | ^~~~~~ scc.c: In function 'tclowlink': static.c:6975:26: warning: old-style function definition [-Wold-style-definition] 6975 | #define LOWLINK tclowlink | ^~~~~~~~~ scc.c:46:18: note: in expansion of macro 'LOWLINK' 46 | static Int local LOWLINK(v) /* calculate `lowlink' of v */ | ^~~~~~~ scc.c: In function 'tcscc': static.c:6974:26: warning: old-style function definition [-Wold-style-definition] 6974 | #define SCC2 tcscc /* make scc algorithm for Tycons */ | ^~~~~ scc.c:88:19: note: in expansion of macro 'SCC2' 88 | static List local SCC2(bs,cs) /* sort lists with added dependency*/ | ^~~~ scc.c: In function 'blowlink': static.c:6985:26: warning: old-style function definition [-Wold-style-definition] 6985 | #define LOWLINK blowlink | ^~~~~~~~ scc.c:46:18: note: in expansion of macro 'LOWLINK' 46 | static Int local LOWLINK(v) /* calculate `lowlink' of v */ | ^~~~~~~ scc.c: In function 'bscc': static.c:6984:26: warning: old-style function definition [-Wold-style-definition] 6984 | #define SCC bscc /* make scc algorithm for Bindings */ | ^~~~ scc.c:74:19: note: in expansion of macro 'SCC' 74 | static List local SCC(bs) /* sort list with added dependency */ | ^~~ static.c: In function 'addRSsigdecls': static.c:7153:19: warning: old-style function definition [-Wold-style-definition] 7153 | static Void local addRSsigdecls(pr) /* add sigdecls from TYPE ... IN ..*/ | ^~~~~~~~~~~~~ static.c: In function 'allNoPrevDef': static.c:7164:19: warning: old-style function definition [-Wold-style-definition] 7164 | static Void local allNoPrevDef(b) /* ensure no previous bindings for*/ | ^~~~~~~~~~~~ static.c: In function 'noPrevDef': static.c:7174:19: warning: old-style function definition [-Wold-style-definition] 7174 | static Void local noPrevDef(line,v) /* ensure no previous binding for */ | ^~~~~~~~~ static.c: In function 'duplicateError': static.c:7195:19: warning: old-style function definition [-Wold-style-definition] 7195 | static Void local duplicateError(line,mod,t,kind)/* report duplicate defn */ | ^~~~~~~~~~~~~~ static.c: In function 'checkTypeIn': static.c:7211:19: warning: old-style function definition [-Wold-style-definition] 7211 | static Void local checkTypeIn(cvs) /* Check that vars in restricted */ | ^~~~~~~~~~~ static.c: In function 'h98Pred': static.c:7230:19: warning: old-style function definition [-Wold-style-definition] 7230 | static Bool local h98Pred(allowArgs,pi) /* Check syntax of Hask98 predicate*/ | ^~~~~~~ static.c: In function 'h98Context': static.c:7238:19: warning: old-style function definition [-Wold-style-definition] 7238 | static Cell local h98Context(allowArgs,ps) | ^~~~~~~~~~ static.c: In function 'h98CheckCtxt': static.c:7249:19: warning: old-style function definition [-Wold-style-definition] 7249 | static Void local h98CheckCtxt(line,wh,allowArgs,ps,in) | ^~~~~~~~~~~~ static.c: In function 'h98CheckType': static.c:7276:19: warning: old-style function definition [-Wold-style-definition] 7276 | static Void local h98CheckType(line,wh,e,t) /* Check for Haskell 98 type */ | ^~~~~~~~~~~~ static.c: In function 'h98CheckInferredType': static.c:7303:6: warning: old-style function definition [-Wold-style-definition] 7303 | Void h98CheckInferredType(line,e,t) /* Check for Haskell 98 type */ | ^~~~~~~~~~~~~~~~~~~~ static.c: In function 'h98DoesntSupport': static.c:7328:6: warning: old-style function definition [-Wold-style-definition] 7328 | Void h98DoesntSupport(line,wh) /* Report feature missing in H98 */ | ^~~~~~~~~~~~~~~~ static.c: In function 'staticAnalysis': static.c:7345:6: warning: old-style function definition [-Wold-style-definition] 7345 | Void staticAnalysis(what) | ^~~~~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 storage.c storage.c: In function 'textToStr': storage.c:99:8: warning: old-style function definition [-Wold-style-definition] 99 | String textToStr(t) /* find string corresp to given Text*/ | ^~~~~~~~~ storage.c: In function 'identToStr': storage.c:112:8: warning: old-style function definition [-Wold-style-definition] 112 | String identToStr(v) /*find string corresp to given ident or qualified name*/ | ^~~~~~~~~~ storage.c: In function 'inventedText': storage.c:151:6: warning: old-style function definition [-Wold-style-definition] 151 | Bool inventedText(t) /* Signal TRUE if text has been */ | ^~~~~~~~~~~~ storage.c: In function 'fixLitText': storage.c:157:6: warning: old-style function definition [-Wold-style-definition] 157 | Text fixLitText(t) /* fix literal text that might include \ */ | ^~~~~~~~~~ storage.c: In function 'concatText': storage.c:179:6: warning: old-style function definition [-Wold-style-definition] 179 | Text concatText(s1,s2) | ^~~~~~~~~~ storage.c: In function 'subText': storage.c:193:6: warning: old-style function definition [-Wold-style-definition] 193 | Text subText(s,l) /* extract a substring and make it a Text */ | ^~~~~~~ storage.c: In function 'hash': storage.c:208:18: warning: old-style function definition [-Wold-style-definition] 208 | static Int local hash(s) /* Simple hash function on strings */ | ^~~~ storage.c: In function 'findText': storage.c:219:6: warning: old-style function definition [-Wold-style-definition] 219 | Text findText(s) /* Locate string in Text array */ | ^~~~~~~~ storage.c: In function 'saveText': storage.c:266:18: warning: old-style function definition [-Wold-style-definition] 266 | static Int local saveText(t) /* Save text value in buffer */ | ^~~~~~~~ storage.c: In function 'getMem': storage.c:286:6: warning: old-style function definition [-Wold-style-definition] 286 | Addr getMem(n) /* Get some more memory */ | ^~~~~~ storage.c: In function 'nextInstr': storage.c:303:6: warning: old-style function definition [-Wold-style-definition] 303 | Void nextInstr(a) /* Reset point to next instruction */ | ^~~~~~~~~ storage.c: In function 'mkExt': storage.c:324:5: warning: old-style function definition [-Wold-style-definition] 324 | Ext mkExt(t) /* Allocate or find an Ext value */ | ^~~~~ storage.c: In function 'newTycon': storage.c:354:7: warning: old-style function definition [-Wold-style-definition] 354 | Tycon newTycon(t) /* add new tycon to tycon table */ | ^~~~~~~~ storage.c: In function 'findTycon': storage.c:375:7: warning: old-style function definition [-Wold-style-definition] 375 | Tycon findTycon(t) /* locate Tycon in tycon table */ | ^~~~~~~~~ storage.c: In function 'addTycon': storage.c:384:7: warning: old-style function definition [-Wold-style-definition] 384 | Tycon addTycon(tc) /* Insert Tycon in tycon table - if no clash is caused */ | ^~~~~~~~ storage.c: In function 'hashTycon': storage.c:395:19: warning: old-style function definition [-Wold-style-definition] 395 | static Void local hashTycon(tc) /* Insert Tycon into hash table */ | ^~~~~~~~~ storage.c: In function 'findQualTycon': storage.c:404:7: warning: old-style function definition [-Wold-style-definition] 404 | Tycon findQualTycon(id) /*locate (possibly qualified) Tycon in tycon table */ | ^~~~~~~~~~~~~ storage.c: In function 'addPrimTycon': storage.c:439:7: warning: old-style function definition [-Wold-style-definition] 439 | Tycon addPrimTycon(t,kind,ar,what,defn) /* add new primitive type constr */ | ^~~~~~~~~~~~ storage.c: In function 'insertTycon': storage.c:456:19: warning: old-style function definition [-Wold-style-definition] 456 | static List local insertTycon(tc,ts) /* insert tycon tc into sorted list*/ | ^~~~~~~~~~~ storage.c: In function 'addTyconsMatching': storage.c:477:6: warning: old-style function definition [-Wold-style-definition] 477 | List addTyconsMatching(pat,ts) /* Add tycons matching pattern pat */ | ^~~~~~~~~~~~~~~~~ storage.c: In function 'removeTycon': storage.c:492:6: warning: old-style function definition [-Wold-style-definition] 492 | Void removeTycon(tc) | ^~~~~~~~~~~ storage.c: In function 'newName': storage.c:525:6: warning: old-style function definition [-Wold-style-definition] 525 | Name newName(t,parent) /* Add new name to name table */ | ^~~~~~~ storage.c: In function 'findName': storage.c:559:6: warning: old-style function definition [-Wold-style-definition] 559 | Name findName(t) /* Locate name in name table */ | ^~~~~~~~ storage.c: In function 'addName': storage.c:568:6: warning: old-style function definition [-Wold-style-definition] 568 | Name addName(nm) /* Insert Name in name table - if */ | ^~~~~~~ storage.c: In function 'hashName': storage.c:579:19: warning: old-style function definition [-Wold-style-definition] 579 | static Void local hashName(nm) /* Insert Name into hash table */ | ^~~~~~~~ storage.c: In function 'removeName': storage.c:593:6: warning: old-style function definition [-Wold-style-definition] 593 | Void removeName(n) | ^~~~~~~~~~ storage.c: In function 'findQualName': storage.c:607:6: warning: old-style function definition [-Wold-style-definition] 607 | Name findQualName(id) /* Locate (possibly qualified) name*/ | ^~~~~~~~~~~~ storage.c: In function 'findQualNames': storage.c:662:6: warning: old-style function definition [-Wold-style-definition] 662 | List findQualNames(id) /* Locate (possibly qualified) names */ | ^~~~~~~~~~~~~ storage.c: In function 'findQualFun': storage.c:738:6: warning: old-style function definition [-Wold-style-definition] 738 | Name findQualFun(m,v) /* Locate name in name table */ | ^~~~~~~~~~~ storage.c: In function 'setOldDLLFlag': storage.c:776:6: warning: old-style function definition [-Wold-style-definition] 776 | Bool setOldDLLFlag(flg) | ^~~~~~~~~~~~~ storage.c: In function 'registerPrims': storage.c:783:6: warning: old-style function definition [-Wold-style-definition] 783 | Void registerPrims(info) /* register new primitives */ | ^~~~~~~~~~~~~ storage.c: In function 'setPrimInfoDll': storage.c:806:21: warning: old-style function definition [-Wold-style-definition] 806 | struct primInfoDef* setPrimInfoDll(dll) | ^~~~~~~~~~~~~~ storage.c: In function 'freePrimInfo': storage.c:817:19: warning: old-style function definition [-Wold-style-definition] 817 | static Void local freePrimInfo(p) | ^~~~~~~~~~~~ storage.c: In function 'addPrim': storage.c:845:6: warning: old-style function definition [-Wold-style-definition] 845 | Void addPrim(l,n,s,mod,ty) /* Add primitive function value */ | ^~~~~~~ storage.c: In function 'addPrimCfun': storage.c:908:6: warning: old-style function definition [-Wold-style-definition] 908 | Name addPrimCfun(t,arity,no,type) /* add primitive constructor func */ | ^~~~~~~~~~~ storage.c: In function 'sfunPos': storage.c:922:5: warning: old-style function definition [-Wold-style-definition] 922 | Int sfunPos(s,c) /* Find position of field with */ | ^~~~~~~ storage.c: In function 'insertName': storage.c:934:19: warning: old-style function definition [-Wold-style-definition] 934 | static List local insertName(nm,ns) /* insert name nm into sorted list */ | ^~~~~~~~~~ storage.c: In function 'addNamesMatching': storage.c:955:6: warning: old-style function definition [-Wold-style-definition] 955 | List addNamesMatching(pat,ns) /* Add names matching pattern pat */ | ^~~~~~~~~~~~~~~~ storage.c: In function 'patternError': storage.c:990:19: warning: old-style function definition [-Wold-style-definition] 990 | static Void local patternError(s) /* report error in pattern */ | ^~~~~~~~~~~~ storage.c: In function 'stringMatch': storage.c:996:19: warning: old-style function definition [-Wold-style-definition] 996 | static Bool local stringMatch(pat,str) /* match string against pattern */ | ^~~~~~~~~~~ storage.c: In function 'newClass': storage.c:1063:7: warning: old-style function definition [-Wold-style-definition] 1063 | Class newClass(t) /* add new class to class table */ | ^~~~~~~~ storage.c: In function 'findClass': storage.c:1105:7: warning: old-style function definition [-Wold-style-definition] 1105 | Class findClass(t) /* look for named class in table */ | ^~~~~~~~~ storage.c: In function 'addClass': storage.c:1117:7: warning: old-style function definition [-Wold-style-definition] 1117 | Class addClass(c) /* Insert Class in class list */ | ^~~~~~~~ storage.c: In function 'findQualClass': storage.c:1129:7: warning: old-style function definition [-Wold-style-definition] 1129 | Class findQualClass(c) /* Look for (possibly qualified) */ | ^~~~~~~~~~~~~ storage.c: In function 'findFirstInst': storage.c:1190:6: warning: old-style function definition [-Wold-style-definition] 1190 | Inst findFirstInst(tc) /* look for 1st instance involving */ | ^~~~~~~~~~~~~ storage.c: In function 'findNextInst': storage.c:1195:6: warning: old-style function definition [-Wold-style-definition] 1195 | Inst findNextInst(tc,in) /* look for next instance involving*/ | ^~~~~~~~~~~~ storage.c: In function 'typeInvolves': storage.c:1207:19: warning: old-style function definition [-Wold-style-definition] 1207 | static Bool local typeInvolves(ty,tc) /* Test to see if type ty involves */ | ^~~~~~~~~~~~ storage.c: In function 'newObserve': storage.c:1279:9: warning: old-style function definition [-Wold-style-definition] 1279 | Observe newObserve(t) | ^~~~~~~~~~ storage.c: In function 'addObsInstance': storage.c:1306:6: warning: old-style function definition [-Wold-style-definition] 1306 | Cell addObsInstance(s,e,id) | ^~~~~~~~~~~~~~ storage.c: In function 'appendObs': storage.c:1322:6: warning: old-style function definition [-Wold-style-definition] 1322 | Void appendObs(header, obsCell) | ^~~~~~~~~ storage.c: In function 'insertAfterObs': storage.c:1333:6: warning: old-style function definition [-Wold-style-definition] 1333 | Void insertAfterObs(old, new) | ^~~~~~~~~~~~~~ storage.c: In function 'addBreakpt': storage.c:1353:9: warning: old-style function definition [-Wold-style-definition] 1353 | Breakpt addBreakpt(s) /* Add to table if absent; state= disabled */ | ^~~~~~~~~~ storage.c: In function 'findBreakpt': storage.c:1380:9: warning: old-style function definition [-Wold-style-definition] 1380 | Breakpt findBreakpt(s) /* return index of breakpt name */ | ^~~~~~~~~~~ storage.c: In function 'breakNow': storage.c:1396:6: warning: old-style function definition [-Wold-style-definition] 1396 | Bool breakNow(s) /* break enabled && no skips */ | ^~~~~~~~ storage.c: In function 'setBreakpt': storage.c:1411:6: warning: old-style function definition [-Wold-style-definition] 1411 | Void setBreakpt(s,v) /* enable breakpt; may create a table entry*/ | ^~~~~~~~~~ storage.c: In function 'setBreakCount': storage.c:1419:6: warning: old-style function definition [-Wold-style-definition] 1419 | Void setBreakCount(s,n) /* set skip count value for breakpoint */ | ^~~~~~~~~~~~~ storage.c: In function 'isValidModule': storage.c:1448:6: warning: old-style function definition [-Wold-style-definition] 1448 | Bool isValidModule(m) /* is m a legitimate module id? */ | ^~~~~~~~~~~~~ storage.c: In function 'newModule': storage.c:1453:8: warning: old-style function definition [-Wold-style-definition] 1453 | Module newModule(t) /* add new module to module table */ | ^~~~~~~~~ storage.c: In function 'findModule': storage.c:1470:8: warning: old-style function definition [-Wold-style-definition] 1470 | Module findModule(t) /* locate Module in module table */ | ^~~~~~~~~~ storage.c: In function 'findModid': storage.c:1480:8: warning: old-style function definition [-Wold-style-definition] 1480 | Module findModid(c) /* Find module by name or filename */ | ^~~~~~~~~ storage.c: In function 'findQualifier': storage.c:1493:8: warning: old-style function definition [-Wold-style-definition] 1493 | Module findQualifier(t) /* locate Module in alias list */ | ^~~~~~~~~~~~~ storage.c: In function 'findQualifiers': storage.c:1512:6: warning: old-style function definition [-Wold-style-definition] 1512 | List findQualifiers(t) /* locate Modules in alias list */ | ^~~~~~~~~~~~~~ storage.c: In function 'findModAlias': storage.c:1530:6: warning: old-style function definition [-Wold-style-definition] 1530 | Text findModAlias(t) /* given a module name 't', locate its alias. */ | ^~~~~~~~~~~~ storage.c: In function 'setCurrModule': storage.c:1541:6: warning: old-style function definition [-Wold-style-definition] 1541 | Void setCurrModule(m) /* set lookup tables for current module */ | ^~~~~~~~~~~~~ storage.c: In function 'getModuleImports': storage.c:1569:6: warning: old-style function definition [-Wold-style-definition] 1569 | List getModuleImports (m) /* In 'currentModule', look up imports from 'm'. */ | ^~~~~~~~~~~~~~~~ storage.c: In function 'startNewScript': storage.c:1628:8: warning: old-style function definition [-Wold-style-definition] 1628 | Script startNewScript(f) /* start new script, keeping record */ | ^~~~~~~~~~~~~~ storage.c: In function 'moduleThisScript': storage.c:1681:6: warning: old-style function definition [-Wold-style-definition] 1681 | Bool moduleThisScript(m) /* Test if given module is defined */ | ^~~~~~~~~~~~~~~~ storage.c: In function 'scriptThisName': storage.c:1700:12: warning: old-style function definition [-Wold-style-definition] 1700 | scriptThis(scriptThisName,Name,nameHw) | ^~~~~~~~~~~~~~ storage.c:1691:16: note: in definition of macro 'scriptThis' 1691 | Script nm(x) \ | ^~ storage.c: In function 'scriptThisTycon': storage.c:1701:12: warning: old-style function definition [-Wold-style-definition] 1701 | scriptThis(scriptThisTycon,Tycon,tyconHw) | ^~~~~~~~~~~~~~~ storage.c:1691:16: note: in definition of macro 'scriptThis' 1691 | Script nm(x) \ | ^~ storage.c: In function 'scriptThisInst': storage.c:1702:12: warning: old-style function definition [-Wold-style-definition] 1702 | scriptThis(scriptThisInst,Inst,instHw) | ^~~~~~~~~~~~~~ storage.c:1691:16: note: in definition of macro 'scriptThis' 1691 | Script nm(x) \ | ^~ storage.c: In function 'scriptThisClass': storage.c:1703:12: warning: old-style function definition [-Wold-style-definition] 1703 | scriptThis(scriptThisClass,Class,classHw) | ^~~~~~~~~~~~~~~ storage.c:1691:16: note: in definition of macro 'scriptThis' 1691 | Script nm(x) \ | ^~ storage.c: In function 'moduleOfScript': storage.c:1706:8: warning: old-style function definition [-Wold-style-definition] 1706 | Module moduleOfScript(s) | ^~~~~~~~~~~~~~ storage.c: In function 'fileOfModule': storage.c:1711:8: warning: old-style function definition [-Wold-style-definition] 1711 | String fileOfModule(m) | ^~~~~~~~~~~~ storage.c: In function 'scriptThisFile': storage.c:1725:8: warning: old-style function definition [-Wold-style-definition] 1725 | Script scriptThisFile(f) | ^~~~~~~~~~~~~~ storage.c: In function 'dropAScript': storage.c:1739:6: warning: old-style function definition [-Wold-style-definition] 1739 | Void dropAScript(sno) /* elide one script from the stack */ | ^~~~~~~~~~~ storage.c: In function 'dropScriptsFrom': storage.c:1768:6: warning: old-style function definition [-Wold-style-definition] 1768 | Void dropScriptsFrom(sno) /* Restore storage to state prior */ | ^~~~~~~~~~~~~~~ storage.c: In function 'setScriptPrims': storage.c:1829:6: warning: old-style function definition [-Wold-style-definition] 1829 | Void setScriptPrims(p) /* set the current script's primitive record. */ | ^~~~~~~~~~~~~~ storage.c: In function 'pair': storage.c:1945:6: warning: old-style function definition [-Wold-style-definition] 1945 | Cell pair(l,r) /* Allocate pair (l, r) from */ | ^~~~ storage.c: In function 'overwrite': storage.c:1969:6: warning: old-style function definition [-Wold-style-definition] 1969 | Void overwrite(dst,src) /* overwrite dst cell with src cell*/ | ^~~~~~~~~ storage.c: In function 'markExpr': storage.c:1982:6: warning: old-style function definition [-Wold-style-definition] 1982 | Cell markExpr(c) /* External interface to markCell */ | ^~~~~~~~ storage.c: In function 'markCell': storage.c:1987:19: warning: old-style function definition [-Wold-style-definition] 1987 | static Cell local markCell(c) /* Traverse part of graph marking */ | ^~~~~~~~ storage.c: In function 'markSnd': storage.c:2038:19: warning: old-style function definition [-Wold-style-definition] 2038 | static Cell local markSnd(c) /* Variant of markCell used to */ | ^~~~~~~ storage.c: In function 'indirectChain': storage.c:2089:19: warning: old-style function definition [-Wold-style-definition] 2089 | static Cell local indirectChain(c) /* Scan chain of indirections */ | ^~~~~~~~~~~~~ storage.c: In function 'markWithoutMove': storage.c:2117:6: warning: old-style function definition [-Wold-style-definition] 2117 | Void markWithoutMove(n) /* Garbage collect cell at n, as if*/ | ^~~~~~~~~~~~~~~ storage.c: In function 'isMarked': storage.c:2136:19: warning: old-style function definition [-Wold-style-definition] 2136 | static Bool local isMarked(c) | ^~~~~~~~ storage.c: In function 'setLastExpr': storage.c:2397:6: warning: old-style function definition [-Wold-style-definition] 2397 | Void setLastExpr(e) /* save expression for later recall*/ | ^~~~~~~~~~~ storage.c: In function 'lowLevelLastIn': storage.c:2404:19: warning: old-style function definition [-Wold-style-definition] 2404 | static Cell local lowLevelLastIn(c) /* Duplicate expression tree (i.e. */ | ^~~~~~~~~~~~~~ storage.c: In function 'lowLevelLastOut': storage.c:2431:19: warning: old-style function definition [-Wold-style-definition] 2431 | static Cell local lowLevelLastOut(c) /* As with lowLevelLastIn() above */ | ^~~~~~~~~~~~~~~ storage.c: In function 'isVar': storage.c:2700:6: warning: old-style function definition [-Wold-style-definition] 2700 | Bool isVar(c) /* is cell a VARIDCELL/VAROPCELL ? */ | ^~~~~ storage.c: In function 'isCon': storage.c:2706:6: warning: old-style function definition [-Wold-style-definition] 2706 | Bool isCon(c) /* is cell a CONIDCELL/CONOPCELL ? */ | ^~~~~ storage.c: In function 'isQVar': storage.c:2711:6: warning: old-style function definition [-Wold-style-definition] 2711 | Bool isQVar(c) /* is cell a [un]qualified varop/id? */ | ^~~~~~ storage.c: In function 'isQCon': storage.c:2724:6: warning: old-style function definition [-Wold-style-definition] 2724 | Bool isQCon(c) /*is cell a [un]qualified conop/id? */ | ^~~~~~ storage.c: In function 'isQualIdent': storage.c:2737:6: warning: old-style function definition [-Wold-style-definition] 2737 | Bool isQualIdent(c) /* is cell a qualified identifier? */ | ^~~~~~~~~~~ storage.c: In function 'isIdent': storage.c:2742:6: warning: old-style function definition [-Wold-style-definition] 2742 | Bool isIdent(c) /* is cell an identifier? */ | ^~~~~~~ storage.c: In function 'isInt': storage.c:2757:6: warning: old-style function definition [-Wold-style-definition] 2757 | Bool isInt(c) /* cell holds integer value? */ | ^~~~~ storage.c: In function 'intOf': storage.c:2762:5: warning: old-style function definition [-Wold-style-definition] 2762 | Int intOf(c) /* find integer value of cell? */ | ^~~~~ storage.c: In function 'mkInt': storage.c:2767:6: warning: old-style function definition [-Wold-style-definition] 2767 | Cell mkInt(n) /* make cell representing integer */ | ^~~~~ storage.c: In function 'isChar': storage.c:2786:6: warning: old-style function definition [-Wold-style-definition] 2786 | Bool isChar(c) /* cell holds character value? */ | ^~~~~~ storage.c: In function 'charOf': storage.c:2791:6: warning: old-style function definition [-Wold-style-definition] 2791 | Char charOf(c) /* find character value of cell? */ | ^~~~~~ storage.c: In function 'mkChar': storage.c:2796:6: warning: old-style function definition [-Wold-style-definition] 2796 | Cell mkChar(c) /* make cell representing character */ | ^~~~~~ storage.c: In function 'isBignum': storage.c:2806:6: warning: old-style function definition [-Wold-style-definition] 2806 | Bool isBignum(c) /* cell holds bignum value? */ | ^~~~~~~~ storage.c: In function 'mkPtr': storage.c:2832:6: warning: old-style function definition [-Wold-style-definition] 2832 | Cell mkPtr(p) | ^~~~~ storage.c: In function 'ptrOf': storage.c:2840:9: warning: old-style function definition [-Wold-style-definition] 2840 | Pointer ptrOf(c) | ^~~~~ storage.c: In function 'length': storage.c:2870:5: warning: old-style function definition [-Wold-style-definition] 2870 | Int length(xs) /* calculate length of list xs */ | ^~~~~~ storage.c: In function 'appendOnto': storage.c:2878:6: warning: old-style function definition [-Wold-style-definition] 2878 | List appendOnto(xs,ys) /* Destructively prepend xs onto */ | ^~~~~~~~~~ storage.c: In function 'dupOnto': storage.c:2891:6: warning: old-style function definition [-Wold-style-definition] 2891 | List dupOnto(xs,ys) /* non-destructively prepend xs backwards onto ys */ | ^~~~~~~ storage.c: In function 'dupList': storage.c:2899:6: warning: old-style function definition [-Wold-style-definition] 2899 | List dupList(xs) /* Duplicate spine of list xs */ | ^~~~~~~ storage.c: In function 'dupUpto': storage.c:2907:6: warning: old-style function definition [-Wold-style-definition] 2907 | List dupUpto(xs,c) /* Duplicate spine of list xs */ | ^~~~~~~ storage.c: In function 'revOnto': storage.c:2916:6: warning: old-style function definition [-Wold-style-definition] 2916 | List revOnto(xs,ys) /* Destructively reverse elements of*/ | ^~~~~~~ storage.c: In function 'concat': storage.c:2950:6: warning: old-style function definition [-Wold-style-definition] 2950 | List concat(xss) | ^~~~~~ storage.c: In function 'intersect': storage.c:2958:6: warning: old-style function definition [-Wold-style-definition] 2958 | List intersect(xs,ys) | ^~~~~~~~~ storage.c: In function 'varIsMember': storage.c:2968:6: warning: old-style function definition [-Wold-style-definition] 2968 | Cell varIsMember(t,xs) /* Test if variable is a member of */ | ^~~~~~~~~~~ storage.c: In function 'nameIsMember': storage.c:2977:6: warning: old-style function definition [-Wold-style-definition] 2977 | Name nameIsMember(t,ns) /* Test if name with text t is a */ | ^~~~~~~~~~~~ storage.c: In function 'nameInIEList': storage.c:2990:6: warning: old-style function definition [-Wold-style-definition] 2990 | Name nameInIEList(nm,ns) /* Test if Name is a member of */ | ^~~~~~~~~~~~ storage.c: In function 'tyconInIEList': storage.c:3024:7: warning: old-style function definition [-Wold-style-definition] 3024 | Tycon tyconInIEList(t,ns) /* Test if Tycon with text t is a */ | ^~~~~~~~~~~~~ storage.c: In function 'classInIEList': storage.c:3038:7: warning: old-style function definition [-Wold-style-definition] 3038 | Class classInIEList(t,ns) /* Test if Class with text t is a */ | ^~~~~~~~~~~~~ storage.c: In function 'nubList': storage.c:3053:6: warning: old-style function definition [-Wold-style-definition] 3053 | List nubList(ls) /* (non-destructively) remove duplicates from list */ | ^~~~~~~ storage.c: In function 'intIsMember': storage.c:3066:6: warning: old-style function definition [-Wold-style-definition] 3066 | Cell intIsMember(n,xs) /* Test if integer n is member of */ | ^~~~~~~~~~~ storage.c: In function 'cellIsMember': storage.c:3075:6: warning: old-style function definition [-Wold-style-definition] 3075 | Cell cellIsMember(x,xs) /* Test for membership of specific */ | ^~~~~~~~~~~~ storage.c: In function 'cellAssoc': storage.c:3084:6: warning: old-style function definition [-Wold-style-definition] 3084 | Cell cellAssoc(c,xs) /* Lookup cell in association list */ | ^~~~~~~~~ storage.c: In function 'cellRevAssoc': storage.c:3093:6: warning: old-style function definition [-Wold-style-definition] 3093 | Cell cellRevAssoc(c,xs) /* Lookup cell in range of */ | ^~~~~~~~~~~~ storage.c: In function 'replicate': storage.c:3102:6: warning: old-style function definition [-Wold-style-definition] 3102 | List replicate(n,x) /* create list of n copies of x */ | ^~~~~~~~~ storage.c: In function 'diffList': storage.c:3111:6: warning: old-style function definition [-Wold-style-definition] 3111 | List diffList(from,take) /* list difference: from\take */ | ^~~~~~~~ storage.c: In function 'deleteCell': storage.c:3126:6: warning: old-style function definition [-Wold-style-definition] 3126 | List deleteCell(xs, y) /* copy xs deleting pointers to y */ | ^~~~~~~~~~ storage.c: In function 'take': storage.c:3139:6: warning: old-style function definition [-Wold-style-definition] 3139 | List take(n,xs) /* destructively truncate list to */ | ^~~~ storage.c: In function 'splitAt': storage.c:3153:6: warning: old-style function definition [-Wold-style-definition] 3153 | List splitAt(n,xs) /* drop n things from front of list*/ | ^~~~~~~ storage.c: In function 'nth': storage.c:3162:6: warning: old-style function definition [-Wold-style-definition] 3162 | Cell nth(n,xs) /* extract n'th element of list */ | ^~~ storage.c: In function 'removeCell': storage.c:3172:6: warning: old-style function definition [-Wold-style-definition] 3172 | List removeCell(x,xs) /* destructively remove cell from */ | ^~~~~~~~~~ storage.c: In function 'getHead': storage.c:3197:6: warning: old-style function definition [-Wold-style-definition] 3197 | Cell getHead(e) /* get head cell of application */ | ^~~~~~~ storage.c: In function 'getArgs': storage.c:3204:6: warning: old-style function definition [-Wold-style-definition] 3204 | List getArgs(e) /* get list of arguments in function*/ | ^~~~~~~ storage.c: In function 'nthArg': storage.c:3213:6: warning: old-style function definition [-Wold-style-definition] 3213 | Cell nthArg(n,e) /* return nth arg in application */ | ^~~~~~ storage.c: In function 'numArgs': storage.c:3221:5: warning: old-style function definition [-Wold-style-definition] 3221 | Int numArgs(e) /* find number of arguments to expr */ | ^~~~~~~ storage.c: In function 'applyToArgs': storage.c:3229:6: warning: old-style function definition [-Wold-style-definition] 3229 | Cell applyToArgs(f,args) /* destructively apply list of args */ | ^~~~~~~~~~~ storage.c: In function 'freeHandle': storage.c:3259:19: warning: old-style function definition [-Wold-style-definition] 3259 | static Void local freeHandle(n) /* release handle storage when no */ | ^~~~~~~~~~ storage.c: In function 'newMallocPtr': storage.c:3290:6: warning: old-style function definition [-Wold-style-definition] 3290 | Cell newMallocPtr(ptr) /* create a new malloc pointer */ | ^~~~~~~~~~~~ storage.c: In function 'mkMallocPtr': storage.c:3315:6: warning: old-style function definition [-Wold-style-definition] 3315 | Cell mkMallocPtr(ptr,cleanup) /* create a new malloc pointer */ | ^~~~~~~~~~~ storage.c: In function 'incMallocPtrRefCnt': storage.c:3326:6: warning: old-style function definition [-Wold-style-definition] 3326 | Void incMallocPtrRefCnt(n,i) /* change ref count of MallocPtr */ | ^~~~~~~~~~~~~~~~~~ storage.c: In function 'mkStablePtr': storage.c:3393:5: warning: old-style function definition [-Wold-style-definition] 3393 | Int mkStablePtr(c) /* Create a stable pointer */ | ^~~~~~~~~~~ storage.c: In function 'derefStablePtr': storage.c:3403:6: warning: old-style function definition [-Wold-style-definition] 3403 | Cell derefStablePtr(p) /* Dereference a stable pointer */ | ^~~~~~~~~~~~~~ storage.c: In function 'freeStablePtr': storage.c:3411:6: warning: old-style function definition [-Wold-style-definition] 3411 | Void freeStablePtr(i) /* Free a stable pointer */ | ^~~~~~~~~~~~~ storage.c: In function 'allocDynTable': storage.c:3442:11: warning: old-style function definition [-Wold-style-definition] 3442 | DynTable* allocDynTable(eltSize, maxIdx, hWater, tabName) | ^~~~~~~~~~~~~ storage.c: In function 'freeDynTable': storage.c:3464:6: warning: old-style function definition [-Wold-style-definition] 3464 | void freeDynTable(tab) | ^~~~~~~~~~~~ storage.c: In function 'growDynTable': storage.c:3473:6: warning: old-style function definition [-Wold-style-definition] 3473 | void growDynTable(tab) | ^~~~~~~~~~~~ storage.c: In function 'controlFuns': storage.c:3515:6: warning: old-style function definition [-Wold-style-definition] 3515 | Void controlFuns(what) | ^~~~~~~~~~~ storage.c: In function 'storage': storage.c:3551:6: warning: old-style function definition [-Wold-style-definition] 3551 | Void storage(what) | ^~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 strutil.c strutil.c: In function 'strCopy': strutil.c:15:8: warning: old-style function definition [-Wold-style-definition] 15 | String strCopy(s) /* make malloced copy of a string */ | ^~~~~~~ strutil.c: In function 'strnCopy': strutil.c:29:8: warning: old-style function definition [-Wold-style-definition] 29 | String strnCopy(s,n) /* make malloced copy of a substring */ | ^~~~~~~~ strutil.c: In function 'splitQualString': strutil.c:50:6: warning: old-style function definition [-Wold-style-definition] 50 | Void splitQualString(nm, pMod, pName) | ^~~~~~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses subst.c subst.c: In function 'expandSubst': subst.c:139:19: warning: old-style function definition [-Wold-style-definition] 139 | static Void local expandSubst(n) /* add further n type variables to */ | ^~~~~~~~~~~ subst.c: In function 'newTyvars': subst.c:183:5: warning: old-style function definition [-Wold-style-definition] 183 | Int newTyvars(n) /* allocate new type variables */ | ^~~~~~~~~ subst.c: In function 'newKindedVars': subst.c:201:5: warning: old-style function definition [-Wold-style-definition] 201 | Int newKindedVars(k) /* allocate new variables with */ | ^~~~~~~~~~~~~ subst.c: In function 'instantiate': subst.c:219:6: warning: old-style function definition [-Wold-style-definition] 219 | Void instantiate(type) /* instantiate type, if nonNull */ | ^~~~~~~~~~~ subst.c: In function 'findBtyvs': subst.c:246:6: warning: old-style function definition [-Wold-style-definition] 246 | Pair findBtyvs(t) /* Look for bound tyvar */ | ^~~~~~~~~ subst.c: In function 'findBtyvsInt': subst.c:258:18: warning: old-style function definition [-Wold-style-definition] 258 | static Int local findBtyvsInt(t) /* Look for bound type variable */ | ^~~~~~~~~~~~ subst.c: In function 'localizeBtyvs': subst.c:275:6: warning: old-style function definition [-Wold-style-definition] 275 | Type localizeBtyvs(t) /* Localize type to eliminate refs */ | ^~~~~~~~~~~~~ subst.c: In function 'getTypeVar': subst.c:300:8: warning: old-style function definition [-Wold-style-definition] 300 | Tyvar *getTypeVar(t,o) /* get number of type variable */ | ^~~~~~~~~~ subst.c: In function 'tyvarType': subst.c:316:6: warning: old-style function definition [-Wold-style-definition] 316 | Void tyvarType(vn) /* load type held in type variable */ | ^~~~~~~~~ subst.c: In function 'bindTv': subst.c:340:6: warning: old-style function definition [-Wold-style-definition] 340 | Void bindTv(vn,t,o) /* set type variable vn to (t,o) */ | ^~~~~~ subst.c: In function 'getDerefHead': subst.c:354:6: warning: old-style function definition [-Wold-style-definition] 354 | Cell getDerefHead(t,o) /* get value at head of type exp. */ | ^~~~~~~~~~~~ subst.c: In function 'expandSyn': subst.c:378:6: warning: old-style function definition [-Wold-style-definition] 378 | Void expandSyn(h,ar,at,ao) /* Expand type synonym with: */ | ^~~~~~~~~ subst.c: In function 'expandSyn1': subst.c:404:19: warning: old-style function definition [-Wold-style-definition] 404 | static Void local expandSyn1(h,at,ao) /* Expand type synonym with: */ | ^~~~~~~~~~ subst.c: In function 'markTyvar': subst.c:454:6: warning: old-style function definition [-Wold-style-definition] 454 | Void markTyvar(vn) /* mark fixed vars in type bound to*/ | ^~~~~~~~~ subst.c: In function 'markType': subst.c:464:6: warning: old-style function definition [-Wold-style-definition] 464 | Void markType(t,o) /* mark fixed vars in type (t,o) */ | ^~~~~~~~ subst.c: In function 'markPred': subst.c:498:6: warning: old-style function definition [-Wold-style-definition] 498 | Void markPred(pi) /* Marked fixed type vars in pi */ | ^~~~~~~~ subst.c: In function 'copyTyvar': subst.c:511:6: warning: old-style function definition [-Wold-style-definition] 511 | Type copyTyvar(vn) /* calculate most general form of */ | ^~~~~~~~~ subst.c: In function 'copyType': subst.c:536:6: warning: old-style function definition [-Wold-style-definition] 536 | Type copyType(t,o) /* calculate most general form of */ | ^~~~~~~~ subst.c: In function 'copyPred': subst.c:554:6: warning: old-style function definition [-Wold-style-definition] 554 | Cell copyPred(pi,o) /* Copy single predicate (or part */ | ^~~~~~~~ subst.c: In function 'zonkTyvar': subst.c:565:6: warning: old-style function definition [-Wold-style-definition] 565 | Type zonkTyvar(vn) /* flatten type by chasing all references */ | ^~~~~~~~~ subst.c: In function 'zonkType': subst.c:575:6: warning: old-style function definition [-Wold-style-definition] 575 | Type zonkType(t,o) /* flatten type by chasing all references */ | ^~~~~~~~ subst.c: In function 'copyKindvar': subst.c:639:6: warning: old-style function definition [-Wold-style-definition] 639 | Kind copyKindvar(vn) /* build kind attatched to variable*/ | ^~~~~~~~~~~ subst.c: In function 'copyKind': subst.c:647:6: warning: old-style function definition [-Wold-style-definition] 647 | Kind copyKind(k,o) /* build kind expression from */ | ^~~~~~~~ subst.c: In function 'listTyvar': subst.c:665:19: warning: old-style function definition [-Wold-style-definition] 665 | static List local listTyvar(vn,ns) | ^~~~~~~~~ subst.c: In function 'listTyvars': subst.c:678:19: warning: old-style function definition [-Wold-style-definition] 678 | static List local listTyvars(t,o,ns) | ^~~~~~~~~~ subst.c: In function 'dupTyvar': subst.c:693:19: warning: old-style function definition [-Wold-style-definition] 693 | static Cell local dupTyvar(vn,ns) | ^~~~~~~~ subst.c: In function 'dupTyvars': subst.c:709:19: warning: old-style function definition [-Wold-style-definition] 709 | static Cell local dupTyvars(t,o,ns) | ^~~~~~~~~ subst.c: In function 'copyNoMark': subst.c:724:19: warning: old-style function definition [-Wold-style-definition] 724 | static Cell local copyNoMark(t,o) /* Copy a type or predicate without*/ | ^~~~~~~~~~ subst.c: In function 'dropRank2': subst.c:739:6: warning: old-style function definition [-Wold-style-definition] 739 | Type dropRank2(t,alpha,n) /* Drop a (potentially) rank2 type */ | ^~~~~~~~~ subst.c: In function 'dropRank1': subst.c:759:6: warning: old-style function definition [-Wold-style-definition] 759 | Type dropRank1(t,alpha,n) /* Copy rank1 argument type t to */ | ^~~~~~~~~ subst.c: In function 'dropRank1Body': subst.c:768:19: warning: old-style function definition [-Wold-style-definition] 768 | static Type local dropRank1Body(t,alpha,n) | ^~~~~~~~~~~~~ subst.c: In function 'liftRank2Args': subst.c:794:6: warning: old-style function definition [-Wold-style-definition] 794 | Void liftRank2Args(as,alpha,m) | ^~~~~~~~~~~~~ subst.c: In function 'liftRank2': subst.c:809:6: warning: old-style function definition [-Wold-style-definition] 809 | Type liftRank2(t,alpha,m) | ^~~~~~~~~ subst.c: In function 'liftRank1': subst.c:834:6: warning: old-style function definition [-Wold-style-definition] 834 | Type liftRank1(t,alpha,m) | ^~~~~~~~~ subst.c: In function 'liftRank1Body': subst.c:848:19: warning: old-style function definition [-Wold-style-definition] 848 | static Type local liftRank1Body(t,n) | ^~~~~~~~~~~~~ subst.c: In function 'eqKind': subst.c:878:6: warning: old-style function definition [-Wold-style-definition] 878 | Bool eqKind(k1,k2) /* check that two (mono)kinds are */ | ^~~~~~ subst.c: In function 'getKind': subst.c:886:6: warning: old-style function definition [-Wold-style-definition] 886 | Kind getKind(c,o) /* Find kind of constr during type */ | ^~~~~~~ subst.c: In function 'genvarTyvar': subst.c:913:6: warning: old-style function definition [-Wold-style-definition] 913 | Type genvarTyvar(vn,vs) /* calculate list of generic vars */ | ^~~~~~~~~~~ subst.c: In function 'genvarType': subst.c:930:6: warning: old-style function definition [-Wold-style-definition] 930 | List genvarType(t,o,vs) /* calculate list of generic vars */ | ^~~~~~~~~~ subst.c: In function 'doesntOccurIn': subst.c:948:6: warning: old-style function definition [-Wold-style-definition] 948 | Bool doesntOccurIn(lookFor,t,o) /* Return TRUE if var lookFor */ | ^~~~~~~~~~~~~ subst.c: In function 'varToVarBind': subst.c:982:19: warning: old-style function definition [-Wold-style-definition] 982 | static Bool local varToVarBind(tyv1,tyv2)/* Make binding tyv1 := tyv2 */ | ^~~~~~~~~~~~ subst.c: In function 'varToTypeBind': subst.c:1014:19: warning: old-style function definition [-Wold-style-definition] 1014 | static Bool local varToTypeBind(tyv,t,o)/* Make binding tyv := (t,o) */ | ^~~~~~~~~~~~~ subst.c: In function 'unify': subst.c:1043:6: warning: old-style function definition [-Wold-style-definition] 1043 | Bool unify(t1,o1,t2,o2) /* Main unification routine */ | ^~~~~ subst.c: In function 'inserter': subst.c:1163:19: warning: old-style function definition [-Wold-style-definition] 1163 | static Bool local inserter(r1,o1,r,o) /* Insert first field in (r1,o1), */ | ^~~~~~~~ subst.c: In function 'remover': subst.c:1202:18: warning: old-style function definition [-Wold-style-definition] 1202 | static Int local remover(l,r,o) /* Make a new row by copying (r,o) */ | ^~~~~~~ subst.c: In function 'tailVar': subst.c:1226:18: warning: old-style function definition [-Wold-style-definition] 1226 | static Int local tailVar(r,o) /* Find var at tail end of a row */ | ^~~~~~~ subst.c: In function 'expandSynFully': subst.c:1247:19: warning: old-style function definition [-Wold-style-definition] 1247 | static Void local expandSynFully(at,ao) /* repeatedly expand synonyms */ | ^~~~~~~~~~~~~~ subst.c: In function 'getProgType': subst.c:1263:6: warning: old-style function definition [-Wold-style-definition] 1263 | Type getProgType(ks,type) /* Extract t, if type is of the */ | ^~~~~~~~~~~ subst.c: In function 'samePred': subst.c:1330:6: warning: old-style function definition [-Wold-style-definition] 1330 | Bool samePred(pi1,o1,pi,o) /* Test to see if predicates are */ | ^~~~~~~~ subst.c: In function 'matchPred': subst.c:1342:6: warning: old-style function definition [-Wold-style-definition] 1342 | Bool matchPred(pi1,o1,pi,o) /* One way match predicate (pi1,o1)*/ | ^~~~~~~~~ subst.c: In function 'unifyPred': subst.c:1354:6: warning: old-style function definition [-Wold-style-definition] 1354 | Bool unifyPred(pi1,o1,pi,o) /* Unify two predicates */ | ^~~~~~~~~ subst.c: In function 'findInstFor': subst.c:1381:6: warning: old-style function definition [-Wold-style-definition] 1381 | Inst findInstFor(pi,o) /* Find matching instance for pred */ | ^~~~~~~~~~~ subst.c: In function 'improve': subst.c:1480:6: warning: old-style function definition [-Wold-style-definition] 1480 | Void improve(line,sps,ps) /* Improve a list of predicates */ | ^~~~~~~ subst.c: In function 'improve1': subst.c:1502:6: warning: old-style function definition [-Wold-style-definition] 1502 | Void improve1(line,sps,pi,o) /* Improve a single predicate */ | ^~~~~~~~ subst.c: In function 'improveAgainst': subst.c:1519:6: warning: old-style function definition [-Wold-style-definition] 1519 | Bool improveAgainst(line,ps,pi,o) | ^~~~~~~~~~~~~~ subst.c: In function 'instImprove': subst.c:1549:6: warning: old-style function definition [-Wold-style-definition] 1549 | Bool instImprove(line,c,pi,o) | ^~~~~~~~~~~ subst.c: In function 'ipImprove': subst.c:1565:6: warning: old-style function definition [-Wold-style-definition] 1565 | Bool ipImprove(line,pi,o,pi1,o1) | ^~~~~~~~~ subst.c: In function 'pairImprove': subst.c:1590:6: warning: old-style function definition [-Wold-style-definition] 1590 | Bool pairImprove(line,c,pi1,o1,pi2,o2,above) /* Look for improvement of */ | ^~~~~~~~~~~ subst.c: In function 'sameSchemes': subst.c:1659:6: warning: old-style function definition [-Wold-style-definition] 1659 | Bool sameSchemes(s,s1) /* Test to see whether two type */ | ^~~~~~~~~~~ subst.c: In function 'sameType': subst.c:1745:6: warning: old-style function definition [-Wold-style-definition] 1745 | Bool sameType(t1,o1,t,o) /* Test to see if types are */ | ^~~~~~~~ subst.c: In function 'matchType': subst.c:1757:6: warning: old-style function definition [-Wold-style-definition] 1757 | Bool matchType(t1,o1,t,o) /* One way match type (t1,o1) */ | ^~~~~~~~~ subst.c: In function 'matchTypeAbove': subst.c:1769:19: warning: old-style function definition [-Wold-style-definition] 1769 | static Bool local matchTypeAbove(t1,o1,t,o,a) /* match, allowing only vars */ | ^~~~~~~~~~~~~~ subst.c: In function 'kvarToVarBind': subst.c:1786:19: warning: old-style function definition [-Wold-style-definition] 1786 | static Bool local kvarToVarBind(tyv1,tyv2)/* Make binding tyv1 := tyv2 */ | ^~~~~~~~~~~~~ subst.c: In function 'kvarToTypeBind': subst.c:1798:19: warning: old-style function definition [-Wold-style-definition] 1798 | static Bool local kvarToTypeBind(tyv,t,o)/* Make binding tyv := (t,o) */ | ^~~~~~~~~~~~~~ subst.c: In function 'kunify': subst.c:1816:6: warning: old-style function definition [-Wold-style-definition] 1816 | Bool kunify(k1,o1,k2,o2) /* Unify kind expr (k1,o1) with */ | ^~~~~~ subst.c: In function 'typeTuple': subst.c:1863:6: warning: old-style function definition [-Wold-style-definition] 1863 | Void typeTuple(e) /* find type for tuple constr, using*/ | ^~~~~~~~~ subst.c: In function 'makeTupleType': subst.c:1875:19: warning: old-style function definition [-Wold-style-definition] 1875 | static Type local makeTupleType(n) /* construct type for tuple constr. */ | ^~~~~~~~~~~~~ subst.c: In function 'makeSimpleKind': subst.c:1901:19: warning: old-style function definition [-Wold-style-definition] 1901 | static Kind local makeSimpleKind(n) /* construct * -> ... -> * (n args)*/ | ^~~~~~~~~~~~~~ subst.c: In function 'simpleKind': subst.c:1909:6: warning: old-style function definition [-Wold-style-definition] 1909 | Kind simpleKind(n) /* return (possibly cached) simple */ | ^~~~~~~~~~ subst.c: In function 'makeVarKind': subst.c:1921:19: warning: old-style function definition [-Wold-style-definition] 1921 | static Kind local makeVarKind(n) /* construct v0 -> .. -> vn */ | ^~~~~~~~~~~ subst.c: In function 'varKind': subst.c:1929:6: warning: old-style function definition [-Wold-style-definition] 1929 | Void varKind(n) /* return (possibly cached) var */ | ^~~~~~~ subst.c: In function 'substitution': subst.c:1944:6: warning: old-style function definition [-Wold-style-definition] 1944 | Void substitution(what) | ^~~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses type.c type.c: In function 'defType': type.c:316:18: warning: old-style function definition [-Wold-style-definition] 316 | static Int local defType(a) /* Return type for defining occ. */ | ^~~~~~~ type.c: In function 'useType': type.c:321:19: warning: old-style function definition [-Wold-style-definition] 321 | static Type local useType(a) /* Return type for use of a var */ | ^~~~~~~ type.c: In function 'markAssumList': type.c:326:19: warning: old-style function definition [-Wold-style-definition] 326 | static Void local markAssumList(as) /* Mark all types in assumption set*/ | ^~~~~~~~~~~~~ type.c: In function 'findAssum': type.c:335:19: warning: old-style function definition [-Wold-style-definition] 335 | static Cell local findAssum(t) /* Find most recent assumption about*/ | ^~~~~~~~~ type.c: In function 'findInAssumList': type.c:371:19: warning: old-style function definition [-Wold-style-definition] 371 | static Pair local findInAssumList(t,as)/* Search for assumption for var */ | ^~~~~~~~~~~~~~~ type.c: In function 'intsIntersect': type.c:380:19: warning: old-style function definition [-Wold-style-definition] 380 | static List local intsIntersect(as,bs) /* calculate intersection of lists */ | ^~~~~~~~~~~~~ type.c: In function 'genvarAllAss': type.c:395:19: warning: old-style function definition [-Wold-style-definition] 395 | static List local genvarAllAss(as) /* calculate generic vars that are */ | ^~~~~~~~~~~~ type.c: In function 'genvarAnyAss': type.c:403:19: warning: old-style function definition [-Wold-style-definition] 403 | static List local genvarAnyAss(as) /* calculate generic vars that are */ | ^~~~~~~~~~~~ type.c: In function 'newVarsBind': type.c:411:18: warning: old-style function definition [-Wold-style-definition] 411 | static Int local newVarsBind(v) /* make new assump for pattern var */ | ^~~~~~~~~~~ type.c: In function 'newDefnBind': type.c:423:19: warning: old-style function definition [-Wold-style-definition] 423 | static Void local newDefnBind(v,type) /* make new assump for defn var */ | ^~~~~~~~~~~ In file included from type.c:444: preds.c: In function 'assumeEvid': preds.c:71:19: warning: old-style function definition [-Wold-style-definition] 71 | static Cell local assumeEvid(pi,o) /* Add predicate pi (offset o) to */ | ^~~~~~~~~~ preds.c: In function 'findIPEvid': preds.c:80:19: warning: old-style function definition [-Wold-style-definition] 80 | static Cell local findIPEvid(t) | ^~~~~~~~~~ preds.c: In function 'removeIPEvid': preds.c:91:19: warning: old-style function definition [-Wold-style-definition] 91 | static Void local removeIPEvid(t) | ^~~~~~~~~~~~ preds.c: In function 'makePredAss': preds.c:105:19: warning: old-style function definition [-Wold-style-definition] 105 | static List local makePredAss(qs,o) /* Make list of predicate assumps. */ | ^~~~~~~~~~~ preds.c: In function 'copyPreds': preds.c:114:19: warning: old-style function definition [-Wold-style-definition] 114 | static List local copyPreds(qs) /* Copy list of predicates */ | ^~~~~~~~~ preds.c: In function 'qualify': preds.c:124:19: warning: old-style function definition [-Wold-style-definition] 124 | static Void local qualify(qs,alt) /* Add extra dictionary args to */ | ^~~~~~~ preds.c: In function 'qualifyBinding': preds.c:133:19: warning: old-style function definition [-Wold-style-definition] 133 | static Void local qualifyBinding(qs,b) /* Add extra dict args to each */ | ^~~~~~~~~~~~~~ preds.c: In function 'qualifyExpr': preds.c:141:19: warning: old-style function definition [-Wold-style-definition] 141 | static Cell local qualifyExpr(l,ps,e) /* Add dictionary params to expr */ | ^~~~~~~~~~~ preds.c: In function 'overEvid': preds.c:153:19: warning: old-style function definition [-Wold-style-definition] 153 | static Void local overEvid(dv,ev) /* Overwrite dict var dv with */ | ^~~~~~~~ preds.c: In function 'cutoffExceeded': preds.c:214:19: warning: old-style function definition [-Wold-style-definition] 214 | static Void local cutoffExceeded(pi,o,ps) | ^~~~~~~~~~~~~~ preds.c: In function 'scFind': preds.c:236:19: warning: old-style function definition [-Wold-style-definition] 236 | static Cell local scFind(e,pi1,o1,pi,o,d)/* Use superclass entailment to */ | ^~~~~~ preds.c: In function 'scEntail': preds.c:289:19: warning: old-style function definition [-Wold-style-definition] 289 | static Cell local scEntail(ps,pi,o,d) /* Calc evidence for (pi,o) from ps*/ | ^~~~~~~~ preds.c: In function 'entail': preds.c:354:19: warning: old-style function definition [-Wold-style-definition] 354 | static Cell local entail(ps,pi,o,d) /* Calc evidence for (pi,o) from ps*/ | ^~~~~~ preds.c: In function 'inEntail': preds.c:404:19: warning: old-style function definition [-Wold-style-definition] 404 | static Cell local inEntail(ps,pi,o,d) /* Calc evidence for (pi,o) from ps*/ | ^~~~~~~~ preds.c: In function 'provePred': preds.c:649:6: warning: old-style function definition [-Wold-style-definition] 649 | Cell provePred(ks,ps,pi) /* Find evidence for predicate pi */ | ^~~~~~~~~ preds.c: In function 'resolvePred': preds.c:663:6: warning: old-style function definition [-Wold-style-definition] 663 | Cell resolvePred(ks,pi) /* Find evidence for predicate pi. */ | ^~~~~~~~~~~ preds.c: In function 'lacksNorm': preds.c:681:19: warning: old-style function definition [-Wold-style-definition] 681 | static Cell local lacksNorm(t,o,e) /* Normalize lacks pred (t,o)\l */ | ^~~~~~~~~ preds.c: In function 'scSimplify': preds.c:717:19: warning: old-style function definition [-Wold-style-definition] 717 | static List local scSimplify(qs) /* Simplify predicates in qs, */ | ^~~~~~~~~~ preds.c: In function 'simpleContext': preds.c:751:6: warning: old-style function definition [-Wold-style-definition] 751 | List simpleContext(ps,o) /* Simplify context of skeletons */ | ^~~~~~~~~~~~~ preds.c: In function 'anyGenerics': preds.c:790:19: warning: old-style function definition [-Wold-style-definition] 790 | static Bool local anyGenerics(t,o) /* Test for generic vars, and count*/ | ^~~~~~~~~~~ preds.c: In function 'elimOuterPreds': preds.c:819:19: warning: old-style function definition [-Wold-style-definition] 819 | static List local elimOuterPreds(sps) /* Simplify and defer any remaining*/ | ^~~~~~~~~~~~~~ preds.c: In function 'elimPredsUsing': preds.c:842:19: warning: old-style function definition [-Wold-style-definition] 842 | static List local elimPredsUsing(ps,sps)/* Try to discharge or defer preds,*/ | ^~~~~~~~~~~~~~ preds.c: In function 'normPreds': preds.c:908:19: warning: old-style function definition [-Wold-style-definition] 908 | static Void local normPreds(line) /* Normalize each element of preds */ | ^~~~~~~~~ preds.c: In function 'resolveDefs': preds.c:959:19: warning: old-style function definition [-Wold-style-definition] 959 | static Bool local resolveDefs(vs,interactive)/* Attempt to resolve defaults */ | ^~~~~~~~~~~ preds.c: In function 'resolveVar': preds.c:1002:19: warning: old-style function definition [-Wold-style-definition] 1002 | static Bool local resolveVar(vn,interactive)/* Determine whether an ambig. */ | ^~~~~~~~~~ preds.c: In function 'classConstraining': preds.c:1085:20: warning: old-style function definition [-Wold-style-definition] 1085 | static Class local classConstraining(vn,pi,o) | ^~~~~~~~~~~~~~~~~ type.c: In function 'patBtyvs': type.c:498:19: warning: old-style function definition [-Wold-style-definition] 498 | static Cell local patBtyvs(p) /* Strip bound type vars from pat */ | ^~~~~~~~ type.c: In function 'doneBtyvs': type.c:511:19: warning: old-style function definition [-Wold-style-definition] 511 | static Void local doneBtyvs(l) | ^~~~~~~~~ type.c: In function 'leaveSkolVars': type.c:526:19: warning: old-style function definition [-Wold-style-definition] 526 | static Void local leaveSkolVars(l,t,o,m) | ^~~~~~~~~~~~~ type.c: In function 'typeError': type.c:597:19: warning: old-style function definition [-Wold-style-definition] 597 | static Void local typeError(l,e,in,wh,t,o) | ^~~~~~~~~ type.c: In function 'reportTypeError': type.c:621:19: warning: old-style function definition [-Wold-style-definition] 621 | static Void local reportTypeError(l,e,in,wh,inft,expt) | ^~~~~~~~~~~~~~~ type.c: In function 'cantEstablish': type.c:652:19: warning: old-style function definition [-Wold-style-definition] 652 | static Void local cantEstablish(line,wh,e,t,ps) | ^~~~~~~~~~~~~ type.c: In function 'tooGeneral': type.c:667:19: warning: old-style function definition [-Wold-style-definition] 667 | static Void local tooGeneral(l,e,dt,it) /* explicit type sig. too general */ | ^~~~~~~~~~ type.c: In function 'typeExpr': type.c:710:19: warning: old-style function definition [-Wold-style-definition] 710 | static Cell local typeExpr(l,e) /* Determine type of expr/pattern */ | ^~~~~~~~ type.c: In function 'typeAp': type.c:897:19: warning: old-style function definition [-Wold-style-definition] 897 | static Cell local typeAp(l,e) /* Type check application, which */ | ^~~~~~ type.c: In function 'typeExpected': type.c:1076:19: warning: old-style function definition [-Wold-style-definition] 1076 | static Cell local typeExpected(l,wh,e,reqd,alpha,n,addEvid) | ^~~~~~~~~~~~ type.c: In function 'typeAlt': type.c:1150:19: warning: old-style function definition [-Wold-style-definition] 1150 | static Void local typeAlt(wh,e,a,t,o,m) /* Type check abstraction (Alt) */ | ^~~~~~~ type.c: In function 'funcType': type.c:1233:18: warning: old-style function definition [-Wold-style-definition] 1233 | static Int local funcType(n) /*return skeleton for function type*/ | ^~~~~~~~ type.c: In function 'typeCase': type.c:1242:19: warning: old-style function definition [-Wold-style-definition] 1242 | static Void local typeCase(l,beta,c) /* type check case: pat -> rhs */ | ^~~~~~~~ type.c: In function 'typeComp': type.c:1261:19: warning: old-style function definition [-Wold-style-definition] 1261 | static Void local typeComp(l,m,e,qs) /* type check comprehension */ | ^~~~~~~~ type.c: In function 'getPats': type.c:1357:19: warning: old-style function definition [-Wold-style-definition] 1357 | static List local getPats(bs) | ^~~~~~~ type.c: In function 'tupleUp': type.c:1366:19: warning: old-style function definition [-Wold-style-definition] 1366 | static Cell local tupleUp(xs) | ^~~~~~~ type.c: In function 'typeZComp': type.c:1381:19: warning: old-style function definition [-Wold-style-definition] 1381 | static Cell local typeZComp(l,m,e,qss) /* type check comprehension */ | ^~~~~~~~~ type.c: In function 'typeCompy': type.c:1441:19: warning: old-style function definition [-Wold-style-definition] 1441 | static Void local typeCompy(l,m,qs) /* type check comprehension */ | ^~~~~~~~~ type.c: In function 'typeMonadComp': type.c:1497:19: warning: old-style function definition [-Wold-style-definition] 1497 | static Cell local typeMonadComp(l,e) /* type check monad comprehension */ | ^~~~~~~~~~~~~ type.c: In function 'typeMonadZComp': type.c:1517:19: warning: old-style function definition [-Wold-style-definition] 1517 | static Cell local typeMonadZComp(l,e) /* type check monad comprehension */ | ^~~~~~~~~~~~~~ type.c: In function 'typeDo': type.c:1538:19: warning: old-style function definition [-Wold-style-definition] 1538 | static Void local typeDo(l,e) /* type check do-notation */ | ^~~~~~ type.c: In function 'typeRecComp': type.c:1560:19: warning: old-style function definition [-Wold-style-definition] 1560 | static Void local typeRecComp(l,m,e,qs) /* type check rec-comp */ | ^~~~~~~~~~~ type.c: In function 'typeMDo': type.c:1616:19: warning: old-style function definition [-Wold-style-definition] 1616 | static Void local typeMDo(l,e) /* type check recursive-do */ | ^~~~~~~ type.c: In function 'typeRecursiveDo': type.c:1634:19: warning: old-style function definition [-Wold-style-definition] 1634 | static Void local typeRecursiveDo(l,e) /* type check recursive-do exp. */ | ^~~~~~~~~~~~~~~ type.c: In function 'typeConFlds': type.c:1688:19: warning: old-style function definition [-Wold-style-definition] 1688 | static Void local typeConFlds(l,e) /* Type check a construction */ | ^~~~~~~~~~~ type.c: In function 'typeUpdFlds': type.c:1727:19: warning: old-style function definition [-Wold-style-definition] 1727 | static Void local typeUpdFlds(line,e) /* Type check an update */ | ^~~~~~~~~~~ type.c: In function 'typeWith': type.c:1832:19: warning: old-style function definition [-Wold-style-definition] 1832 | static Cell local typeWith(line,e) /* Type check a with */ | ^~~~~~~~ type.c: In function 'typeFreshPat': type.c:1883:19: warning: old-style function definition [-Wold-style-definition] 1883 | static Cell local typeFreshPat(l,p) /* find type of pattern, assigning */ | ^~~~~~~~~~~~ type.c: In function 'typeBindings': type.c:1896:19: warning: old-style function definition [-Wold-style-definition] 1896 | static Void local typeBindings(bs) /* type check a binding group */ | ^~~~~~~~~~~~ type.c: In function 'removeTypeSigs': type.c:1931:19: warning: old-style function definition [-Wold-style-definition] 1931 | static Void local removeTypeSigs(b) /* Remove type info from a binding */ | ^~~~~~~~~~~~~~ type.c: In function 'monorestrict': type.c:1940:19: warning: old-style function definition [-Wold-style-definition] 1940 | static Void local monorestrict(bs) /* Type restricted binding group */ | ^~~~~~~~~~~~ type.c: In function 'restrictedBindAss': type.c:1996:19: warning: old-style function definition [-Wold-style-definition] 1996 | static Void local restrictedBindAss(b) /* Make assums for vars in binding */ | ^~~~~~~~~~~~~~~~~ type.c: In function 'restrictedAss': type.c:2022:19: warning: old-style function definition [-Wold-style-definition] 2022 | static Void local restrictedAss(l,v,t) /* Assume that type of binding var v*/ | ^~~~~~~~~~~~~ type.c: In function 'unrestricted': type.c:2039:19: warning: old-style function definition [-Wold-style-definition] 2039 | static Void local unrestricted(bs) /* Type unrestricted binding group */ | ^~~~~~~~~~~~ In file included from type.c:2224: scc.c: In function 'sccMin': scc.c:23:18: warning: old-style function definition [-Wold-style-definition] 23 | static Int local sccMin(x,y) /* calculate minimum of x,y */ | ^~~~~~ scc.c: In function 'itblowlink': type.c:2221:26: warning: old-style function definition [-Wold-style-definition] 2221 | #define LOWLINK itblowlink | ^~~~~~~~~~ scc.c:46:18: note: in expansion of macro 'LOWLINK' 46 | static Int local LOWLINK(v) /* calculate `lowlink' of v */ | ^~~~~~~ scc.c: In function 'itbscc': type.c:2220:26: warning: old-style function definition [-Wold-style-definition] 2220 | #define SCC itbscc /* scc for implicitly typed binds */ | ^~~~~~ scc.c:74:19: note: in expansion of macro 'SCC' 74 | static List local SCC(bs) /* sort list with added dependency */ | ^~~ type.c: In function 'addEvidParams': type.c:2230:19: warning: old-style function definition [-Wold-style-definition] 2230 | static Void local addEvidParams(qs,v) /* overwrite VARID/OPCELL v with */ | ^~~~~~~~~~~~~ type.c: In function 'typeClassDefn': type.c:2250:19: warning: old-style function definition [-Wold-style-definition] 2250 | static Void local typeClassDefn(c) /* Type check implementations of */ | ^~~~~~~~~~~~~ type.c: In function 'typeInstDefn': type.c:2354:19: warning: old-style function definition [-Wold-style-definition] 2354 | static Void local typeInstDefn(in) /* Type check implementations of */ | ^~~~~~~~~~~~ type.c: In function 'typeMember': type.c:2476:19: warning: old-style function definition [-Wold-style-definition] 2476 | static Void local typeMember(wh,mem,alts,evids,head,beta) | ^~~~~~~~~~ type.c: In function 'typeBind': type.c:2565:19: warning: old-style function definition [-Wold-style-definition] 2565 | static Void local typeBind(b) /* Type check binding */ | ^~~~~~~~ type.c: In function 'typeDefAlt': type.c:2598:19: warning: old-style function definition [-Wold-style-definition] 2598 | static Void local typeDefAlt(beta,v,a) /* type check alt in func. binding */ | ^~~~~~~~~~ type.c: In function 'typeRhs': type.c:2606:19: warning: old-style function definition [-Wold-style-definition] 2606 | static Cell local typeRhs(e) /* check type of rhs of definition */ | ^~~~~~~ type.c: In function 'guardedType': type.c:2636:19: warning: old-style function definition [-Wold-style-definition] 2636 | static Void local guardedType(beta,gded)/* check type of guard (li,(gd,ex))*/ | ^~~~~~~~~~~ type.c: In function 'rhsExpr': type.c:2651:6: warning: old-style function definition [-Wold-style-definition] 2651 | Cell rhsExpr(rhs) /* find first expression on a rhs */ | ^~~~~~~ type.c: In function 'rhsLine': type.c:2662:5: warning: old-style function definition [-Wold-style-definition] 2662 | Int rhsLine(rhs) /* find line number associated with */ | ^~~~~~~ type.c: In function 'genBind': type.c:2677:19: warning: old-style function definition [-Wold-style-definition] 2677 | static Void local genBind(ps,b) /* Generalize the type of each var */ | ^~~~~~~ type.c: In function 'genAss': type.c:2698:19: warning: old-style function definition [-Wold-style-definition] 2698 | static Void local genAss(l,ps,v,dt) /* Calculate inferred type of v and*/ | ^~~~~~ type.c: In function 'genTest': type.c:2718:19: warning: old-style function definition [-Wold-style-definition] 2718 | static Type local genTest(l,v,ps,dt,t,o)/* Generalize and test inferred */ | ^~~~~~~ type.c: In function 'generalize': type.c:2745:19: warning: old-style function definition [-Wold-style-definition] 2745 | static Type local generalize(qs,t) /* calculate generalization of t */ | ^~~~~~~~~~ type.c: In function 'equalTypes': type.c:2770:19: warning: old-style function definition [-Wold-style-definition] 2770 | static Bool local equalTypes(t1,t2) /* Compare simple types for equality*/ | ^~~~~~~~~~ type.c: In function 'typeCheckExp': type.c:2803:6: warning: old-style function definition [-Wold-style-definition] 2803 | Type typeCheckExp(useDefs) /* Type check top level expression */ | ^~~~~~~~~~~~ type.c: In function 'typeDefnGroup': type.c:2874:19: warning: old-style function definition [-Wold-style-definition] 2874 | static Void local typeDefnGroup(bs) /* type check group of value defns */ | ^~~~~~~~~~~~~ type.c: In function 'typeForeignExport': type.c:2915:19: warning: old-style function definition [-Wold-style-definition] 2915 | static Void local typeForeignExport(n) /* Typecheck a foreign export decl */ | ^~~~~~~~~~~~~~~~~ type.c: In function 'typeSel': type.c:2944:19: warning: old-style function definition [-Wold-style-definition] 2944 | static Pair local typeSel(s) /* Calculate a suitable type for a */ | ^~~~~~~ type.c: In function 'typeChecker': type.c:3057:6: warning: old-style function definition [-Wold-style-definition] 3057 | Void typeChecker(what) | ^~~~~~~~~~~ type.c: In function 'linkName': type.c:3157:19: warning: old-style function definition [-Wold-style-definition] 3157 | static Name local linkName(s) | ^~~~~~~~ type.c: In function 'linkTycon': type.c:3167:20: warning: old-style function definition [-Wold-style-definition] 3167 | static Tycon local linkTycon(s) | ^~~~~~~~~ type.c: In function 'linkClass': type.c:3177:20: warning: old-style function definition [-Wold-style-definition] 3177 | static Class local linkClass(s) | ^~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 runhugs.c runhugs.c: In function 'loadHugs': runhugs.c:44:13: warning: old-style function definition [-Wold-style-definition] 44 | static void loadHugs(argc,argv) | ^~~~~~~~ runhugs.c: In function 'main': runhugs.c:61:5: warning: old-style function definition [-Wold-style-definition] 61 | int main(argc,argv) | ^~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 server.c server.c: In function 'setError': server.c:137:6: warning: old-style function definition [-Wold-style-definition] 137 | Void setError(s) /* Format an error message */ | ^~~~~~~~ server.c: In function 'initHugsServer': server.c:197:27: warning: old-style function definition [-Wold-style-definition] 197 | DLLEXPORT(HugsServerAPI*) initHugsServer(argc, argv) /*server initialisation*/ | ^~~~~~~~~~~~~~ server.c: In function 'shutdownHugsServer': server.c:254:17: warning: old-style function definition [-Wold-style-definition] 254 | DLLEXPORT(Void) shutdownHugsServer(hserv) /* server shutdown */ | ^~~~~~~~~~~~~~~~~~ server.c: In function 'Reset': server.c:311:13: warning: old-style function definition [-Wold-style-definition] 311 | static Void Reset(scripts) /* Restore number of scripts to old level */ | ^~~~~ server.c: In function 'SetOutputEnable': server.c:320:13: warning: old-style function definition [-Wold-style-definition] 320 | static Void SetOutputEnable(f) /* enable/disable compiler output */ | ^~~~~~~~~~~~~~~ server.c: In function 'ChangeDir': server.c:326:13: warning: old-style function definition [-Wold-style-definition] 326 | static Void ChangeDir(s) /* change current directory */ | ^~~~~~~~~ server.c: In function 'LoadProject': server.c:337:13: warning: old-style function definition [-Wold-style-definition] 337 | static Void LoadProject(fn) /* load a project into the system */ | ^~~~~~~~~~~ server.c: In function 'LoadFile': server.c:343:13: warning: old-style function definition [-Wold-style-definition] 343 | static Void LoadFile(fn) /* load a module (from a file) into the system */ | ^~~~~~~~ server.c: In function 'LoadStringF': server.c:353:13: warning: old-style function definition [-Wold-style-definition] 353 | static Void LoadStringF(mod) /* load a module (from a string) into the system */ | ^~~~~~~~~~~ server.c: In function 'SetOptions': server.c:363:13: warning: old-style function definition [-Wold-style-definition] 363 | static Void SetOptions(opt) | ^~~~~~~~~~ server.c: In function 'SetModule': server.c:373:13: warning: old-style function definition [-Wold-style-definition] 373 | static Bool SetModule(m) | ^~~~~~~~~ server.c: In function 'CompileExpr': server.c:383:13: warning: old-style function definition [-Wold-style-definition] 383 | static HVal CompileExpr(m,e) /* compile expression e wrt module m */ | ^~~~~~~~~~~ server.c: In function 'LookupName': server.c:436:13: warning: old-style function definition [-Wold-style-definition] 436 | static Void LookupName(m,v) /*Push value of qualified name onto stack*/ | ^~~~~~~~~~ server.c: In function 'MkInt': server.c:467:13: warning: old-style function definition [-Wold-style-definition] 467 | static Void MkInt(i) /* Push an Int onto the stack */ | ^~~~~ server.c: In function 'MkAddr': server.c:478:13: warning: old-style function definition [-Wold-style-definition] 478 | static Void MkAddr(a) /* Push an Addr onto the stack */ | ^~~~~~ server.c: In function 'MkString': server.c:489:13: warning: old-style function definition [-Wold-style-definition] 489 | static Void MkString(s) /* Push a String onto the stack */ | ^~~~~~~~ server.c: In function 'PushHVal': server.c:804:13: warning: old-style function definition [-Wold-style-definition] 804 | static Void PushHVal(hval) /* Put a value back on the stack */ | ^~~~~~~~ server.c: In function 'FreeHVal': server.c:816:13: warning: old-style function definition [-Wold-style-definition] 816 | static Void FreeHVal(hval) /* Free a Haskell value */ | ^~~~~~~~ server.c: In function 'getTypeableDict': server.c:826:6: warning: old-style function definition [-Wold-style-definition] 826 | Cell getTypeableDict(t) /* Find a Typeable dictionary for instance t, */ | ^~~~~~~~~~~~~~~ gcc -c -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -O2 -DFFI_COMPILER runhugs.c -o ffihugs.o runhugs.c: In function 'loadHugs': runhugs.c:44:13: warning: old-style function definition [-Wold-style-definition] 44 | static void loadHugs(argc,argv) | ^~~~~~~~ runhugs.c: In function 'main': runhugs.c:61:5: warning: old-style function definition [-Wold-style-definition] 61 | int main(argc,argv) | ^~~~ gcc -L/opt/pkg/lib -Wl,-R/opt/pkg/lib hugs.o edit.o observe.o builtin.o char.o compiler.o errors.o evaluator.o ffi.o goal.o input.o machdep.o machine.o module.o opts.o output.o plugin.o script.o static.o storage.o strutil.o subst.o type.o version.o -lreadline -lncurses -lm -ldl -o hugs gcc -L/opt/pkg/lib -Wl,-R/opt/pkg/lib runhugs.o server.o builtin.o char.o compiler.o errors.o evaluator.o ffi.o goal.o input.o machdep.o machine.o module.o opts.o output.o plugin.o script.o static.o storage.o strutil.o subst.o type.o version.o -lreadline -lncurses -lm -ldl -o runhugs gcc -L/opt/pkg/lib -Wl,-R/opt/pkg/lib ffihugs.o server.o builtin.o char.o compiler.o errors.o evaluator.o ffi.o goal.o input.o machdep.o machine.o module.o opts.o output.o plugin.o script.o static.o storage.o strutil.o subst.o type.o version.o -lreadline -lncurses -lm -ldl -o ffihugs gmake[1]: Leaving directory '/tmp/work/lang/hugs/work/hugs98-Sep2006/src' cd libraries; /opt/pkg/bin/gmake all gmake[1]: Entering directory '/tmp/work/lang/hugs/work/hugs98-Sep2006/libraries' mkdir -p ../hugsdir/include mkdir -p ../ghc/includes /bin/cp ../src/HsFFI.h ../hugsdir/include /bin/cp ../src/platform.h include/MachDeps.h include/ghcconfig.h ../ghc/includes CPPFLAGS='-D__HUGS__ -Dsolaris2_HOST_OS -Dsolaris2_TARGET_OS' tools/make_bootlib checking for gcc... gcc checking for C compiler default output file name... a.out checking whether the C compiler works... yes checking whether we are cross compiling... no checking for suffix of executables... checking for suffix of object files... o checking whether we are using the GNU C compiler... yes checking whether gcc accepts -g... yes checking for gcc option to accept ISO C89... none needed checking how to run the C preprocessor... cpp checking for grep that handles long lines and -e... /tmp/work/lang/hugs/work/.tools/bin/grep checking for egrep... /tmp/work/lang/hugs/work/.tools/bin/grep -E checking for ANSI C header files... yes checking for sys/types.h... yes checking for sys/stat.h... yes checking for stdlib.h... yes checking for string.h... yes checking for memory.h... yes checking for strings.h... yes checking for inttypes.h... yes checking for stdint.h... yes checking for unistd.h... yes checking for long long... yes checking for pid_t... yes checking vfork.h usability... no checking vfork.h presence... no checking for vfork.h... no checking for fork... yes checking for vfork... yes checking for working fork... yes checking for working vfork... (cached) yes checking for an ANSI C-conforming const... yes checking for ANSI C header files... (cached) yes checking ctype.h usability... yes checking ctype.h presence... yes checking for ctype.h... yes checking dirent.h usability... yes checking dirent.h presence... yes checking for dirent.h... yes checking errno.h usability... yes checking errno.h presence... yes checking for errno.h... yes checking fcntl.h usability... yes checking fcntl.h presence... yes checking for fcntl.h... yes checking limits.h usability... yes checking limits.h presence... yes checking for limits.h... yes checking signal.h usability... yes checking signal.h presence... yes checking for signal.h... yes checking sys/resource.h usability... yes checking sys/resource.h presence... yes checking for sys/resource.h... yes checking sys/select.h usability... yes checking sys/select.h presence... yes checking for sys/select.h... yes checking sys/syscall.h usability... yes checking sys/syscall.h presence... yes checking for sys/syscall.h... yes checking sys/time.h usability... yes checking sys/time.h presence... yes checking for sys/time.h... yes checking sys/timeb.h usability... yes checking sys/timeb.h presence... yes checking for sys/timeb.h... yes checking sys/timers.h usability... no checking sys/timers.h presence... no checking for sys/timers.h... no checking sys/times.h usability... yes checking sys/times.h presence... yes checking for sys/times.h... yes checking sys/utsname.h usability... yes checking sys/utsname.h presence... yes checking for sys/utsname.h... yes checking sys/wait.h usability... yes checking sys/wait.h presence... yes checking for sys/wait.h... yes checking termios.h usability... yes checking termios.h presence... yes checking for termios.h... yes checking time.h usability... yes checking time.h presence... yes checking for time.h... yes checking utime.h usability... yes checking utime.h presence... yes checking for utime.h... yes checking windows.h usability... no checking windows.h presence... no checking for windows.h... no checking winsock.h usability... no checking winsock.h presence... no checking for winsock.h... no checking for special C compiler options needed for large files... no checking for _FILE_OFFSET_BITS value needed for large files... no checking for _LARGE_FILES value needed for large files... no checking wctype.h usability... yes checking wctype.h presence... yes checking for wctype.h... yes checking for iswspace... yes checking for ftime... yes checking for gmtime_r... yes checking for localtime_r... yes checking for lstat... yes checking for readdir_r... yes checking for getclock... no checking for getrusage... yes checking for gettimeofday... yes checking for setitimer... yes checking for times... yes checking for _chsize... no checking for ftruncate... yes checking for execvpe... yes checking whether time.h and sys/time.h may both be included... yes checking whether struct tm is in sys/time.h or time.h... time.h checking for struct tm.tm_zone... no checking whether tzname is declared... yes checking for tzname... yes checking for sys/time.h... (cached) yes checking whether altzone is declared... yes checking Haskell type for char... not supported checking Haskell type for signed char... not supported checking Haskell type for unsigned char... not supported checking Haskell type for short... not supported checking Haskell type for unsigned short... not supported checking Haskell type for int... not supported checking Haskell type for unsigned int... not supported checking Haskell type for long... not supported checking Haskell type for unsigned long... not supported checking Haskell type for long long... not supported checking Haskell type for unsigned long long... not supported checking Haskell type for float... not supported checking Haskell type for double... not supported checking Haskell type for ptrdiff_t... not supported checking Haskell type for size_t... not supported checking Haskell type for wchar_t... not supported checking Haskell type for sig_atomic_t... Int32 checking Haskell type for clock_t... not supported checking Haskell type for time_t... not supported checking Haskell type for dev_t... Word32 checking Haskell type for ino_t... not supported checking Haskell type for mode_t... not supported checking Haskell type for off_t... not supported checking Haskell type for pid_t... not supported checking Haskell type for gid_t... not supported checking Haskell type for uid_t... not supported checking Haskell type for cc_t... not supported checking Haskell type for speed_t... not supported checking Haskell type for tcflag_t... not supported checking Haskell type for nlink_t... not supported checking Haskell type for ssize_t... not supported checking Haskell type for rlim_t... not supported checking Haskell type for wint_t... not supported checking Haskell type for intptr_t... not supported checking Haskell type for uintptr_t... not supported checking Haskell type for intmax_t... NotReallyAType checking Haskell type for uintmax_t... NotReallyAType checking value of E2BIG... 7 checking value of EACCES... 13 checking value of EADDRINUSE... 125 checking value of EADDRNOTAVAIL... 126 checking value of EADV... 68 checking value of EAFNOSUPPORT... 124 checking value of EAGAIN... 11 checking value of EALREADY... 149 checking value of EBADF... 9 checking value of EBADMSG... 77 checking value of EBADRPC... -1 checking value of EBUSY... 16 checking value of ECHILD... 10 checking value of ECOMM... 70 checking value of ECONNABORTED... 130 checking value of ECONNREFUSED... 146 checking value of ECONNRESET... 131 checking value of EDEADLK... 45 checking value of EDESTADDRREQ... 96 checking value of EDIRTY... -1 checking value of EDOM... 33 checking value of EDQUOT... 49 checking value of EEXIST... 17 checking value of EFAULT... 14 checking value of EFBIG... 27 checking value of EFTYPE... -1 checking value of EHOSTDOWN... 147 checking value of EHOSTUNREACH... 148 checking value of EIDRM... 36 checking value of EILSEQ... 88 checking value of EINPROGRESS... 150 checking value of EINTR... 4 checking value of EINVAL... 22 checking value of EIO... 5 checking value of EISCONN... 133 checking value of EISDIR... 21 checking value of ELOOP... 90 checking value of EMFILE... 24 checking value of EMLINK... 31 checking value of EMSGSIZE... 97 checking value of EMULTIHOP... 74 checking value of ENAMETOOLONG... 78 checking value of ENETDOWN... 127 checking value of ENETRESET... 129 checking value of ENETUNREACH... 128 checking value of ENFILE... 23 checking value of ENOBUFS... 132 checking value of ENODATA... 61 checking value of ENODEV... 19 checking value of ENOENT... 2 checking value of ENOEXEC... 8 checking value of ENOLCK... 46 checking value of ENOLINK... 67 checking value of ENOMEM... 12 checking value of ENOMSG... 35 checking value of ENONET... 64 checking value of ENOPROTOOPT... 99 checking value of ENOSPC... 28 checking value of ENOSR... 63 checking value of ENOSTR... 60 checking value of ENOSYS... 89 checking value of ENOTBLK... 15 checking value of ENOTCONN... 134 checking value of ENOTDIR... 20 checking value of ENOTEMPTY... 93 checking value of ENOTSOCK... 95 checking value of ENOTTY... 25 checking value of ENXIO... 6 checking value of EOPNOTSUPP... 122 checking value of EPERM... 1 checking value of EPFNOSUPPORT... 123 checking value of EPIPE... 32 checking value of EPROCLIM... -1 checking value of EPROCUNAVAIL... -1 checking value of EPROGMISMATCH... -1 checking value of EPROGUNAVAIL... -1 checking value of EPROTO... 71 checking value of EPROTONOSUPPORT... 120 checking value of EPROTOTYPE... 98 checking value of ERANGE... 34 checking value of EREMCHG... 82 checking value of EREMOTE... 66 checking value of EROFS... 30 checking value of ERPCMISMATCH... -1 checking value of ERREMOTE... -1 checking value of ESHUTDOWN... 143 checking value of ESOCKTNOSUPPORT... 121 checking value of ESPIPE... 29 checking value of ESRCH... 3 checking value of ESRMNT... 69 checking value of ESTALE... 151 checking value of ETIME... 62 checking value of ETIMEDOUT... 145 checking value of ETOOMANYREFS... 144 checking value of ETXTBSY... 26 checking value of EUSERS... 94 checking value of EWOULDBLOCK... 11 checking value of EXDEV... 18 checking value of ENOCIGAR... -1 checking value of SIGABRT... 6 checking value of SIGALRM... 14 checking value of SIGBUS... 10 checking value of SIGCHLD... 18 checking value of SIGCONT... 25 checking value of SIGFPE... 8 checking value of SIGHUP... 1 checking value of SIGILL... 4 checking value of SIGINT... 2 checking value of SIGKILL... 9 checking value of SIGPIPE... 13 checking value of SIGQUIT... 3 checking value of SIGSEGV... 11 checking value of SIGSTOP... 23 checking value of SIGTERM... 15 checking value of SIGTSTP... 24 checking value of SIGTTIN... 26 checking value of SIGTTOU... 27 checking value of SIGUSR1... 16 checking value of SIGUSR2... 17 checking value of SIGPOLL... 22 checking value of SIGPROF... 29 checking value of SIGSYS... 12 checking value of SIGTRAP... 5 checking value of SIGURG... 21 checking value of SIGVTALRM... 28 checking value of SIGXCPU... 30 checking value of SIGXFSZ... 31 checking value of SIG_BLOCK... 1 checking value of SIG_SETMASK... 3 checking value of SIG_UNBLOCK... 2 checking value of SIG_DFL... -1 checking value of SIG_IGN... -1 checking value of SIG_ERR... -1 checking value of O_BINARY... 0 checking what readdir sets errno to upon EOF... configure: WARNING: failed to determine the errno value 0 configure: creating ./config.status config.status: creating include/HsBaseConfig.h Preprocessing Control/Applicative Preprocessing Control/Arrow Preprocessing Control/Concurrent Preprocessing Control/Concurrent/Chan Preprocessing Control/Concurrent/MVar Preprocessing Control/Concurrent/QSem Preprocessing Control/Concurrent/QSemN Preprocessing Control/Concurrent/SampleVar Preprocessing Control/Exception Preprocessing Control/Monad Preprocessing Control/Monad/Fix Preprocessing Control/Monad/Instances Preprocessing Control/Monad/ST Preprocessing Control/Monad/ST/Lazy Preprocessing Control/Monad/ST/Strict Preprocessing Control/Parallel Preprocessing Control/Parallel/Strategies Preprocessing Data/Array Preprocessing Data/Array/Base Preprocessing Data/Array/Diff Preprocessing Data/Array/IArray Preprocessing Data/Array/IO Preprocessing Data/Array/IO/Internals Preprocessing Data/Array/MArray Preprocessing Data/Array/ST Preprocessing Data/Array/Storable Preprocessing Data/Array/Unboxed Preprocessing Data/Bits Preprocessing Data/Bool Preprocessing Data/ByteString Preprocessing Data/ByteString/Base Preprocessing Data/ByteString/Char8 Preprocessing Data/ByteString/Fusion Preprocessing Data/ByteString/Lazy Preprocessing Data/ByteString/Lazy/Char8 Preprocessing Data/Char Preprocessing Data/Complex Preprocessing Data/Dynamic Preprocessing Data/Either Preprocessing Data/Eq Preprocessing Data/Fixed Preprocessing Data/Foldable Preprocessing Data/FunctorM Preprocessing Data/Generics Preprocessing Data/Generics/Aliases Preprocessing Data/Generics/Basics Preprocessing Data/Generics/Instances Preprocessing Data/Generics/Schemes Preprocessing Data/Generics/Text Preprocessing Data/Generics/Twins Preprocessing Data/Graph Preprocessing Data/HashTable Preprocessing Data/IORef Preprocessing Data/Int Preprocessing Data/IntMap Preprocessing Data/IntSet Preprocessing Data/Ix Preprocessing Data/List Preprocessing Data/Map Preprocessing Data/Maybe Preprocessing Data/Monoid Preprocessing Data/Ord Preprocessing Data/PackedString Preprocessing Data/Queue Preprocessing Data/Ratio Preprocessing Data/STRef Preprocessing Data/STRef/Lazy Preprocessing Data/STRef/Strict Preprocessing Data/Sequence Preprocessing Data/Set Preprocessing Data/Traversable Preprocessing Data/Tree Preprocessing Data/Tuple Preprocessing Data/Typeable Preprocessing Data/Unique Preprocessing Data/Version Preprocessing Data/Word Preprocessing Debug/Trace Preprocessing Foreign Preprocessing Foreign/C Preprocessing Foreign/C/Error Preprocessing Foreign/C/String Preprocessing Foreign/C/Types Preprocessing Foreign/Concurrent Preprocessing Foreign/ForeignPtr Preprocessing Foreign/Marshal Preprocessing Foreign/Marshal/Alloc Preprocessing Foreign/Marshal/Array Preprocessing Foreign/Marshal/Error Preprocessing Foreign/Marshal/Pool Preprocessing Foreign/Marshal/Utils Preprocessing Foreign/Ptr Preprocessing Foreign/StablePtr Preprocessing Foreign/Storable Preprocessing Numeric Preprocessing Prelude Preprocessing System/CPUTime Preprocessing System/Cmd Preprocessing System/Console/GetOpt Preprocessing System/Directory Preprocessing System/Directory/Internals Preprocessing System/Environment Preprocessing System/Exit Preprocessing System/IO Preprocessing System/IO/Error Preprocessing System/IO/Unsafe Preprocessing System/Info Preprocessing System/Locale Preprocessing System/Mem Preprocessing System/Mem/StableName Preprocessing System/Mem/Weak Preprocessing System/Posix/Internals Preprocessing System/Posix/Signals Preprocessing System/Posix/Types Preprocessing System/Process Preprocessing System/Process/Internals Preprocessing System/Random Preprocessing System/Time Preprocessing Text/ParserCombinators/ReadP Preprocessing Text/ParserCombinators/ReadPrec Preprocessing Text/PrettyPrint Preprocessing Text/PrettyPrint/HughesPJ Preprocessing Text/Printf Preprocessing Text/Read Preprocessing Text/Read/Lex Preprocessing Text/Show Preprocessing Text/Show/Functions Preprocessing Array Preprocessing Bits Preprocessing CError Preprocessing CForeign Preprocessing CPUTime Preprocessing CString Preprocessing CTypes Preprocessing Char Preprocessing Complex Preprocessing Directory Preprocessing ForeignPtr Preprocessing IO Preprocessing Int Preprocessing Ix Preprocessing List Preprocessing Locale Preprocessing MarshalAlloc Preprocessing MarshalArray Preprocessing MarshalError Preprocessing MarshalUtils Preprocessing Maybe Preprocessing Monad Preprocessing Ptr Preprocessing Random Preprocessing Ratio Preprocessing StablePtr Preprocessing Storable Preprocessing System Preprocessing Time Preprocessing Word Preprocessing DefaultSetup /tmp/cvt.16848/cppinput.c:1: error: invalid preprocessing directive #! 1 | #!/usr/bin/runhaskell Preprocessing Distribution/Compat/Directory Preprocessing Distribution/Compat/Exception Preprocessing Distribution/Compat/FilePath Preprocessing Distribution/Compat/Map Preprocessing Distribution/Compat/RawSystem Preprocessing Distribution/Compat/ReadP Preprocessing Distribution/Compiler Preprocessing Distribution/Extension Preprocessing Distribution/GetOpt Preprocessing Distribution/InstalledPackageInfo Preprocessing Distribution/License Preprocessing Distribution/Make Preprocessing Distribution/Package Preprocessing Distribution/PackageDescription Preprocessing Distribution/ParseUtils Preprocessing Distribution/PreProcess Preprocessing Distribution/PreProcess/Unlit Preprocessing Distribution/Program Preprocessing Distribution/Setup Preprocessing Distribution/Simple Preprocessing Distribution/Simple/Build Preprocessing Distribution/Simple/Configure Preprocessing Distribution/Simple/GHC Preprocessing Distribution/Simple/GHCPackageConfig Preprocessing Distribution/Simple/Hugs Preprocessing Distribution/Simple/Install Preprocessing Distribution/Simple/JHC Preprocessing Distribution/Simple/LocalBuildInfo Preprocessing Distribution/Simple/NHC Preprocessing Distribution/Simple/Register Preprocessing Distribution/Simple/SrcDist Preprocessing Distribution/Simple/Utils Preprocessing Distribution/Version Preprocessing Language/Haskell/Extension Preprocessing Network/Hackage/CabalInstall/BuildDep Preprocessing Network/Hackage/CabalInstall/Clean Preprocessing Network/Hackage/CabalInstall/Config Preprocessing Network/Hackage/CabalInstall/Configure Preprocessing Network/Hackage/CabalInstall/Dependency Preprocessing Network/Hackage/CabalInstall/Fetch Preprocessing Network/Hackage/CabalInstall/Info Preprocessing Network/Hackage/CabalInstall/Install Preprocessing Network/Hackage/CabalInstall/List Preprocessing Network/Hackage/CabalInstall/Main Preprocessing Network/Hackage/CabalInstall/Setup Preprocessing Network/Hackage/CabalInstall/TarUtils Preprocessing Network/Hackage/CabalInstall/Types Preprocessing Network/Hackage/CabalInstall/Update Preprocessing Network/Hackage/Client Preprocessing Network/Hackage/Interface Preprocessing Network/Hackage/Version libraries/bootlib/Hugs/Storable.c: In function 'hugs_primControl': libraries/bootlib/Hugs/Storable.c:567:13: warning: old-style function definition [-Wold-style-definition] 567 | static void hugs_primControl(what) | ^~~~~~~~~~~~~~~~ Undefined first referenced symbol in file main /usr/lib/amd64/crt1.o ld: fatal: symbol referencing errors. No output written to libraries/bootlib/Hugs/Storable.so collect2: error: ld returned 1 exit status runhugs: Error occurred ERROR "libraries/bootlib/Hugs/Storable.hs" - Error while running compilation command 'gcc -DNDEBUG=1 -pipe -O2 -msave-args -fno-aggressive-loop-optimizations -I/opt/pkg/include -I/opt/pkg/include/ncurses -I/opt/pkg/include -I/opt/pkg/include/ncurses -L/opt/pkg/lib -Wl,-R/opt/pkg/lib -D__HUGS__ "-Ihugsdir/include" -o "libraries/bootlib/Hugs/Storable.so" "libraries/bootlib/Hugs/Storable.c" libraries/hugsbase/Hugs/Storable_aux.c' runhugs: Error occurred ERROR "libraries/bootlib/Foreign/Storable.hs":1089 - Undefined type constructor "HTYPE_INT" runhugs: Error occurred ERROR "libraries/bootlib/Foreign/Storable.hs":1089 - Undefined type constructor "HTYPE_INT" runhugs: Error occurred ERROR "libraries/bootlib/Foreign/Storable.hs":1089 - Undefined type constructor "HTYPE_INT" runhugs: Error occurred ERROR "libraries/bootlib/Foreign/Storable.hs":1089 - Undefined type constructor "HTYPE_INT" runhugs: Error occurred ERROR "libraries/bootlib/Foreign/Storable.hs":1089 - Undefined type constructor "HTYPE_INT" echo timestamp for bootlib >bootlib/.stamp cd ../cpphs; HUGSFLAGS=-P../libraries/bootlib HUGSDIR=../hugsdir ../src/runhugs -98 ../packages/Cabal/examples/hapax.hs configure --verbose --hugs --prefix='/opt/pkg' --scratchdir='../hugsdir/packages/cpphs' --with-compiler=../src/ffihugs runhugs: Error occurred ERROR "../libraries/bootlib/Hugs/Storable.hs" - Error while importing DLL "../libraries/bootlib/Hugs/Storable.so": ld.so.1: runhugs: fatal: ../libraries/bootlib/Hugs/Storable.so: open failed: No such file or directory gmake[1]: *** [Makefile:117: ../hugsdir/programs/cpphs/Main.hs] Error 1 gmake[1]: Leaving directory '/tmp/work/lang/hugs/work/hugs98-Sep2006/libraries' gmake: *** [Makefile:48: all] Error 2 *** Error code 2 Stop. bmake[1]: stopped making "all" in /data/jenkins/workspace/pkgsrc-upstream-trunk/lang/hugs *** Error code 1 Stop. bmake: stopped making "all" in /data/jenkins/workspace/pkgsrc-upstream-trunk/lang/hugs