<86>Sep 14 12:01:18 userdel[818013]: delete user 'rooter' <86>Sep 14 12:01:18 groupadd[818061]: group added to /etc/group: name=rooter, GID=630 <86>Sep 14 12:01:18 groupadd[818061]: group added to /etc/gshadow: name=rooter <86>Sep 14 12:01:18 groupadd[818061]: new group: name=rooter, GID=630 <86>Sep 14 12:01:18 useradd[818067]: new user: name=rooter, UID=630, GID=630, home=/root, shell=/bin/bash <86>Sep 14 12:01:18 userdel[818089]: delete user 'builder' <86>Sep 14 12:01:18 userdel[818089]: removed group 'builder' owned by 'builder' <86>Sep 14 12:01:18 userdel[818089]: removed shadow group 'builder' owned by 'builder' <86>Sep 14 12:01:18 groupadd[818110]: group added to /etc/group: name=builder, GID=631 <86>Sep 14 12:01:18 groupadd[818110]: group added to /etc/gshadow: name=builder <86>Sep 14 12:01:18 groupadd[818110]: new group: name=builder, GID=631 <86>Sep 14 12:01:18 useradd[818203]: new user: name=builder, UID=631, GID=631, home=/usr/src, shell=/bin/bash /usr/src/in/srpm/ocaml-labltk-8.06.10-alt1.src.rpm: exception not found in '/usr/share/license-exception' directory: exceptions <13>Sep 14 12:01:22 rpmi: ocaml-runtime-4.12.0-alt1 sisyphus+279404.100.2.2 1626535407 installed <13>Sep 14 12:01:22 rpmi: libtcl-8.6.11-alt3 sisyphus+284233.40.3.1 1630366292 installed <13>Sep 14 12:01:22 rpmi: tcl-8.6.11-alt3 sisyphus+284233.40.3.1 1630366292 installed <13>Sep 14 12:01:22 rpmi: xorg-proto-devel-2021.4-alt1 sisyphus+272146.100.1.1 1621424691 installed <13>Sep 14 12:01:22 rpmi: rpm-build-ocaml-1.4.2-alt1 sisyphus+268936.100.1.1 1617543918 installed <13>Sep 14 12:01:22 rpmi: rpm-build-tcl-0.6.1-alt1 sisyphus+264761.20.4.1 1610806524 installed <13>Sep 14 12:01:22 rpmi: tcl-devel-8.6.11-alt3 sisyphus+284233.40.3.1 1630366292 installed <13>Sep 14 12:01:22 rpmi: libpng16-1.6.37-alt1 sisyphus+275734.100.2.1 1624788812 installed <13>Sep 14 12:01:22 rpmi: libbrotlicommon-1.0.9-alt2 sisyphus+278430.100.1.2 1626213212 installed <13>Sep 14 12:01:22 rpmi: libbrotlidec-1.0.9-alt2 sisyphus+278430.100.1.2 1626213212 installed <13>Sep 14 12:01:22 rpmi: libgraphite2-1.3.14-alt2.1 sisyphus+279571.100.1.2 1626605157 installed <13>Sep 14 12:01:22 rpmi: libharfbuzz-2.8.2-alt1 sisyphus+276374.40.4.1 1628747521 installed <13>Sep 14 12:01:22 rpmi: libfreetype-2.11.0-alt1 sisyphus+281294.100.1.1 1627488674 installed <13>Sep 14 12:01:22 rpmi: libexpat-2.2.10-alt1 sisyphus+276608.100.1.2 1625153360 installed <13>Sep 14 12:01:22 rpmi: fontconfig-2.13.1-alt2 sisyphus+283256.100.1.1 1629274963 installed Updating fonts cache: [ DONE ] <29>Sep 14 12:01:23 fontconfig: Updating fonts cache: succeeded <13>Sep 14 12:01:23 rpmi: libX11-locales-3:1.7.2-alt1 sisyphus+279629.100.1.1 1626637383 installed <13>Sep 14 12:01:23 rpmi: libXdmcp-1.1.3-alt1 sisyphus+278816.100.1.1 1626219233 installed <13>Sep 14 12:01:23 rpmi: libXau-1.0.9-alt1 sisyphus+278247.100.1.1 1626080738 installed <13>Sep 14 12:01:23 rpmi: libxcb-1.14-alt1 sisyphus+277968.100.1.3 1625952333 installed <13>Sep 14 12:01:24 rpmi: libX11-3:1.7.2-alt1 sisyphus+279629.100.1.1 1626637391 installed <13>Sep 14 12:01:24 rpmi: libXrender-0.9.10-alt1 sisyphus+278480.100.1.2 1626227741 installed <13>Sep 14 12:01:24 rpmi: libXft-2.3.4-alt1 sisyphus+284644.500.1.1 1630910448 installed <13>Sep 14 12:01:24 rpmi: libtk-8.6.11.1-alt2 sisyphus+284049.200.1.1 1630096283 installed <13>Sep 14 12:01:24 rpmi: tk-8.6.11.1-alt2 sisyphus+284049.200.1.1 1630096283 installed <13>Sep 14 12:01:25 rpmi: libxcb-devel-1.14-alt1 sisyphus+277968.100.1.3 1625952333 installed <13>Sep 14 12:01:25 rpmi: libX11-devel-3:1.7.2-alt1 sisyphus+279629.100.1.1 1626637391 installed <13>Sep 14 12:01:26 rpmi: tk-devel-8.6.11.1-alt2 sisyphus+284049.200.1.1 1630096283 installed <13>Sep 14 12:01:37 rpmi: ocaml-4.12.0-alt1 sisyphus+279404.100.2.2 1626535407 installed Building target platforms: i586 Building for target i586 Wrote: /usr/src/in/nosrpm/ocaml-labltk-8.06.10-alt1.nosrc.rpm (w1.gzdio) Installing ocaml-labltk-8.06.10-alt1.src.rpm Building target platforms: i586 Building for target i586 Executing(%prep): /bin/sh -e /usr/src/tmp/rpm-tmp.49670 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + rm -rf ocaml-labltk-8.06.10 + echo 'Source #0 (ocaml-labltk-8.06.10.tar):' Source #0 (ocaml-labltk-8.06.10.tar): + /bin/tar -xf /usr/src/RPM/SOURCES/ocaml-labltk-8.06.10.tar + cd ocaml-labltk-8.06.10 + /bin/chmod -c -Rf u+rwX,go-w . + exit 0 Executing(%build): /bin/sh -e /usr/src/tmp/rpm-tmp.49670 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + cd ocaml-labltk-8.06.10 + find -type f + xargs sed -i -e s/-warn-error/-w/g + export 'MAKE=make --no-print-directory' + MAKE='make --no-print-directory' + ./configure --verbose Configuring LablTk... runtest: gcc -o tst tclversion.c -lm -ldl tclversion.c:21:1: warning: return type defaults to 'int' [-Wimplicit-int] 21 | main () | ^~~~ tcl.h and tk.h version 8.6 found with "". hasgot -ltcl8.6 -lm -ldl Tcl_DoOneEvent: gcc -o tst hasgot.c -lm -ldl -ltcl8.6 -lm -ldl hasgot -ltk8.6 -ltcl8.6 -lm -ldl Tk_SetGrid: gcc -o tst hasgot.c -lm -ldl -ltk8.6 -ltcl8.6 -lm -ldl Tcl/Tk libraries found. ** Configuration summary ** Configuration for the "labltk" library: use tcl/tk version ....... 8.6 options for compiling .... -I/usr/local/include options for linking ...... -ltk8.6 -ltcl8.6 use native compilers ..... yes + make all 'SHAREDCCCOMPOPTS=-pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC' make: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' cd support; make --no-print-directory /usr/bin/ocamlc.opt -c -w A-3 support.mli /usr/bin/ocamlc.opt -c -w A-3 support.ml /usr/bin/ocamlc.opt -c -w A-3 rawwidget.mli /usr/bin/ocamlc.opt -c -w A-3 rawwidget.ml /usr/bin/ocamlc.opt -c -w A-3 widget.mli /usr/bin/ocamlc.opt -c -w A-3 widget.ml /usr/bin/ocamlc.opt -c -w A-3 protocol.mli /usr/bin/ocamlc.opt -c -w A-3 protocol.ml File "protocol.ml", lines 140-142, characters 4-8: 140 | ....for i = 1 to List.length cb_ids do 141 | Hashtbl.remove callback_memo_table w 142 | done Warning 35 [unused-for-index]: unused for-loop index i. File "protocol.ml", line 230, characters 25-27: 230 | | "-display" :: s :: xs -> s ^^ Warning 27 [unused-var-strict]: unused variable xs. File "protocol.ml", line 231, characters 21-22: 231 | | "-colormap" :: s :: xs -> find_display xs ^ Warning 27 [unused-var-strict]: unused variable s. File "protocol.ml", line 232, characters 21-22: 232 | | "-geometry" :: s :: xs -> find_display xs ^ Warning 27 [unused-var-strict]: unused variable s. File "protocol.ml", line 233, characters 17-18: 233 | | "-name" :: s :: xs -> find_display xs ^ Warning 27 [unused-var-strict]: unused variable s. File "protocol.ml", line 235, characters 16-17: 235 | | "-use" :: s :: xs -> find_display xs ^ Warning 27 [unused-var-strict]: unused variable s. File "protocol.ml", line 236, characters 19-20: 236 | | "-window" :: s :: xs -> find_display xs ^ Warning 27 [unused-var-strict]: unused variable s. File "protocol.ml", line 237, characters 19-20: 237 | | "-visual" :: s :: xs -> find_display xs ^ Warning 27 [unused-var-strict]: unused variable s. /usr/bin/ocamlc.opt -c -w A-3 textvariable.mli /usr/bin/ocamlc.opt -c -w A-3 textvariable.ml /usr/bin/ocamlc.opt -c -w A-3 timer.mli /usr/bin/ocamlc.opt -c -w A-3 timer.ml /usr/bin/ocamlc.opt -c -w A-3 fileevent.mli /usr/bin/ocamlc.opt -c -w A-3 fileevent.ml /usr/bin/ocamlc.opt -c -w A-3 camltkwrap.mli /usr/bin/ocamlc.opt -c -w A-3 camltkwrap.ml /usr/bin/ocamlc.opt -c -w A-3 -I +threads -I vmthreads tkthread.mli /usr/bin/ocamlc.opt -c -w A-3 -I +threads -I vmthreads tkthread.ml File "tkthread.ml", line 28, characters 4-12: 28 | let has_jobs () = not (with_jobs Queue.is_empty) ^^^^^^^^ Warning 32 [unused-value-declaration]: unused value has_jobs. File "tkthread.ml", line 49, characters 15-60: 49 | (fun () -> for i = 1 to n_jobs () do do_next_job () done; job_timer()) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 35 [unused-for-index]: unused for-loop index i. gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkCaml.c In file included from cltkCaml.c:21: cltkCaml.c: In function 'camltk_return': /usr/lib/ocaml/caml/mlvalues.h:282:24: warning: passing argument 2 of 'Tcl_SetResult' discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 282 | #define String_val(x) ((const char *) Bp_val(x)) | ~^~~~~~~~~~~~~~~~~~~~~~~~~ cltkCaml.c:61:30: note: in expansion of macro 'String_val' 61 | Tcl_SetResult(cltclinterp, String_val(v), TCL_VOLATILE); | ^~~~~~~~~~ In file included from /usr/include/tcl.h:2441, from cltkCaml.c:19: /usr/include/tclDecls.h:693:65: note: expected 'char *' but argument is of type 'const char *' 693 | EXTERN void Tcl_SetResult(Tcl_Interp *interp, char *result, | ~~~~~~^~~~~~ cltkCaml.c: In function 'camltk_init': cltkCaml.c:81:17: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 81 | tkerror_exn = caml_named_value("tkerror"); | ^ cltkCaml.c:83:18: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 83 | handler_code = caml_named_value("camlcb"); | ^ gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkUtf.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkEval.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkEvent.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkFile.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkMain.c cltkMain.c: In function 'camltk_opentk': cltkMain.c:82:9: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 82 | argv0 = String_val( Field( argv, 0 ) ); | ^ cltkMain.c:92:23: warning: initialization discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 92 | value *interp = caml_named_value("cltclinterp"); | ^~~~~~~~~~~~~~~~ cltkMain.c:121:21: warning: assignment discards 'const' qualifier from pointer target type [-Wdiscarded-qualifiers] 121 | tkargv[i] = String_val(Field(tmp, 0)); | ^ gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkMisc.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkTimer.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkVar.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkWait.c gcc -O2 -fno-strict-aliasing -fwrapv -fPIC -I/usr/lib/ocaml/caml -pipe -frecord-gcc-switches -Wall -g -O2 -flto=auto -march=i586 -mtune=generic -fPIC -c cltkImg.c /usr/bin/ocamlmklib -o labltk cltkCaml.o cltkUtf.o cltkEval.o cltkEvent.o cltkFile.o cltkMain.o cltkMisc.o cltkTimer.o cltkVar.o cltkWait.o cltkImg.o -ldopt "-ltk8.6" -ldopt "-ltcl8.6" cd compiler; make --no-print-directory /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support flags.ml (echo "let copyright=\"\\"; \ sed -e 's/$/\\n\\/' copyright; \ echo "\""; \ echo "let write ~w = w copyright;;") > copyright.ml /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support copyright.ml /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support tsort.ml File "tsort.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "tsort.ml", line 68, characters 19-35: 68 | ~f:(function {pred_count = n} as node -> ^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: node, successors Either bind these labels explicitly or add '; _' to the pattern. /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support tables.ml File "tables.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "tables.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "tables.ml", lines 220-227, characters 2-11: 220 | ..function 221 | List ty -> add_dependancies s ty 222 | | Product tyl -> List.iter ~f:(add_dependancies s) tyl 223 | | Subtype(s',_) -> if s <> s' then Tsort.add_relation types_order (s', s) 224 | | UserDefined s' -> if s <> s' then Tsort.add_relation types_order (s', s) 225 | | Function ty -> add_dependancies s ty 226 | | As (ty, _) -> add_dependancies s ty 227 | | _ -> () Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type mltype. File "tables.ml", lines 236-241, characters 23-60: 236 | .......................function 237 | StringArg _ -> false 238 | | TypeArg (l,Function _ ) -> true 239 | | TypeArg _ -> false 240 | | ListArg l -> List.exists ~f:has_callback l 241 | | OptionalArgs (_,tl,_) -> List.exists ~f:has_callback tl Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type mltype. File "tables.ml", line 245, characters 5-13: 245 | if List.mem ty !types_returned then () ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "tables.ml", line 264, characters 26-52: 264 | let enter_component_types {template = t; result = r} = ^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: component, ml_name, var_name, safe Either bind these labels explicitly or add '; _' to the pattern. File "tables.ml", line 318, characters 7-21: 318 | if List.mem_assoc subtyp typdef.subtypes ^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label map was omitted in the application of this function. File "tables.ml", line 128, characters 31-32: 128 | | TypeArg (s,t) -> s ^ Warning 27 [unused-var-strict]: unused variable t. File "tables.ml", line 206, characters 41-42: 206 | | Record tyl -> List.iter tyl ~f:(fun (l,t) -> enter_argtype t) ^ Warning 27 [unused-var-strict]: unused variable l. File "tables.ml", line 214, characters 14-15: 214 | | TypeArg (l,t) -> enter_argtype t ^ Warning 27 [unused-var-strict]: unused variable l. File "tables.ml", line 231, characters 14-15: 231 | | TypeArg (l,t) -> add_dependancies s t ^ Warning 27 [unused-var-strict]: unused variable l. File "tables.ml", line 238, characters 14-15: 238 | | TypeArg (l,Function _ ) -> true ^ Warning 27 [unused-var-strict]: unused variable l. File "tables.ml", line 257, characters 41-42: 257 | | Record tyl -> List.iter tyl ~f:(fun (l,t) -> add_return_type t) ^ Warning 27 [unused-var-strict]: unused variable l. File "tables.ml", line 403, characters 19-20: 403 | Constructor, l -> fatal_error "unexpected Constructor" ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support printer.ml File "printer.ml", line 19, characters 0-11: 19 | open Format;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier print_string (which is later used) File "printer.ml", line 128, characters 8-28: 128 | let rec print_component_type = function ^^^^^^^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "printer.ml", line 134, characters 8-27: 134 | let rec print_fullcomponent = function ^^^^^^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "printer.ml", line 147, characters 8-23: 147 | let rec print_component = function ^^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "printer.ml", line 158, characters 8-26: 158 | let rec print_parser_arity = function ^^^^^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "printer.ml", line 162, characters 8-22: 162 | let rec print_type_def = function ^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "printer.ml", line 180, characters 8-25: 180 | let rec print_module_type = function ^^^^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "printer.ml", line 184, characters 8-24: 184 | let rec print_module_def = function ^^^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "printer.ml", line 83, characters 15-16: 83 | let print_poly x = print_string "";; ^ Warning 27 [unused-var-strict]: unused variable x. /usr/bin/ocamllex lexer.mll 45 states, 921 transitions, table size 3954 bytes /usr/bin/ocamlyacc -v -v parser.mly 3 shift/reduce conflicts. /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support parser.mli /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support lexer.ml File "lexer.mll", line 20, characters 0-14: Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "lexer.mll", line 20, characters 0-14: Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Bytes (which is later used) File "lexer.mll", line 77, characters 10-26: Warning 6 [labels-omitted]: labels pos, len were omitted in the application of this function. /usr/bin/ocamllex pplex.mll 44 states, 754 transitions, table size 3280 bytes /usr/bin/ocamlyacc -v -v ppyac.mly /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support code.mli /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support ppyac.mli /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support pplex.mli /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support pplex.ml /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support ppyac.ml /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support ppexec.ml File "ppexec.ml", lines 23-31, characters 14-11: 23 | ..............function 24 | | Line _ -> incr linenum 25 | | Ifdef (_, _, c1, c2o) -> 26 | List.iter nop c1; 27 | begin match c2o with 28 | | Some c2 -> List.iter nop c2 29 | | None -> () 30 | end 31 | | _ -> () Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Code.code. /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support ppparse.ml /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support parser.ml /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support compile.ml File "compile.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "compile.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "compile.ml", line 71, characters 11-19: 71 | if List.mem s forbidden then ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "compile.ml", lines 62-76, characters 2-37: 62 | ..match fc.template with 63 | ListArg( StringArg s :: _ ) -> 64 | let s = small s in 65 | if s = "" then s else 66 | let s = ... 73 | with Not_found -> small fc.var_name 74 | else s 75 | end 76 | | _ -> raise (Failure "gettklabel") Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", lines 220-222, characters 22-21: 220 | ......................function 221 | ListArg l -> String.concat ~sep:" " (List.map ~f:ppTemplate l) 222 | | t -> ppTemplate t Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", line 229, characters 25-59: 229 | let write_constructor ~w {ml_name = mlconstr; template = t} = ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: component, var_name, result, safe Either bind these labels explicitly or add '; _' to the pattern. File "compile.ml", line 251, characters 21-55: 251 | let write_variant ~w {var_name = varname; template = t} = ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: component, ml_name, result, safe Either bind these labels explicitly or add '; _' to the pattern. File "compile.ml", lines 334-366, characters 33-36: 334 | .................................function 335 | | Int -> "int_of_string " ^ arg 336 | | Float -> "float_of_string " ^ arg 337 | | Bool -> "(match " ^ arg ^ " with\n\ 338 | | \"1\" -> true\n\ ... 363 | | As (ty, _) -> converterTKtoCAML ~arg ty 364 | | t -> 365 | prerr_endline ("ERROR with " ^ arg ^ " " ^ ppMLtype t); 366 | fatal_error "converterTKtoCAML" Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 392-430, characters 6-9: 392 | ......begin match ty with 393 | Product tyl -> raise (Failure "Product -> record was done. ???") 394 | | Record tyl -> 395 | (* variables for each component of the product *) 396 | let vnames = varnames ~prefix:"a" (List.length tyl) in ... 427 | "let (v, _) = " ^ converterTKtoCAML ~arg:"args" ty ^ 428 | " in\n " ^ name ^ " v" 429 | end 430 | end...... Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 387-430, characters 2-15: 387 | ..match ty with 388 | Unit -> "(fun _ -> " ^ name ^ " ())" 389 | | As (ty, _) -> wrapper_code ~name ty 390 | | ty -> 391 | "(fun args ->\n " ^ ... 427 | "let (v, _) = " ^ converterTKtoCAML ~arg:"args" ty ^ 428 | " in\n " ^ name ^ " v" 429 | end 430 | end ^ ")" Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 458-468, characters 6-18: 458 | ......match c.template with 459 | ListArg [StringArg s] -> 460 | pp.zeroary <- (s, vname) :: 461 | pp.zeroary; true 462 | | ListArg [TypeArg(_, Int)] | ListArg[TypeArg(_, Float)] -> ... 465 | | ListArg [TypeArg(_, String)] -> 466 | if pp.stringpar <> [] then false 467 | else (pp.stringpar <- [vname]; true) 468 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", lines 458-468, characters 6-18: 458 | ......match c.template with 459 | ListArg [StringArg s] -> 460 | pp.zeroary <- (s, vname) :: 461 | pp.zeroary; true 462 | | ListArg [TypeArg(_, Int)] | ListArg[TypeArg(_, Float)] -> ... 465 | | ListArg [TypeArg(_, String)] -> 466 | if pp.stringpar <> [] then false 467 | else (pp.stringpar <- [vname]; true) 468 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 668-703, characters 20-38: 668 | ....................function 669 | StringArg s -> "TkToken \"" ^ s ^ "\"" 670 | | TypeArg (_, List (Subtype (sup, sub))) when not !Flags.camltk -> 671 | begin try 672 | let typdef = Hashtbl.find types_table sup in ... 700 | let defstr = String.concat ~sep:"; " (List.map ~f:coderec d) in 701 | "TkTokenList (match " ^ nv ^ " with\n" 702 | ^ " | Some " ^ nv ^ " -> [" ^ argstr ^ "]\n" 703 | ^ " | None -> [" ^ defstr ^ "])" Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 707-710, characters 4-41: 707 | ....match template with 708 | ListArg l -> 709 | "[|" ^ String.concat ~sep:";\n " (List.map ~f:coderec l) ^ "|]" 710 | | _ -> "[|" ^ coderec template ^ "|]" Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", lines 712-718, characters 4-27: 712 | ....match template with 713 | ListArg [x] -> coderec x 714 | | ListArg l -> 715 | "TkTokenList [" ^ 716 | String.concat ~sep:";\n " (List.map ~f:coderec l) ^ 717 | "]" 718 | | _ -> coderec template Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", lines 820-854, characters 34-72: 820 | ..................................function 821 | List String -> 822 | w "(splitlist res)" 823 | | List ty -> 824 | if !Flags.camltk then ... 851 | | ty -> 852 | match type_parser_arity ty with 853 | OneToken -> w (converterTKtoCAML ~arg:"res" ty) 854 | | MultipleToken -> w (converterTKtoCAML ~arg:"(splitlist res)" ty) Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 859-862, characters 23-16: 859 | .......................match def.template with 860 | ListArg (TypeArg(_, UserDefined("widget")) :: _) -> "v1" 861 | | ListArg (TypeArg(_, Subtype("widget", _)) :: _) -> "v1" 862 | | _ -> "dummy"... Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", lines 859-862, characters 23-16: 859 | .......................match def.template with 860 | ListArg (TypeArg(_, UserDefined("widget")) :: _) -> "v1" 861 | | ListArg (TypeArg(_, Subtype("widget", _)) :: _) -> "v1" 862 | | _ -> "dummy"... Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 896-901, characters 2-5: 896 | ..begin match def.result with 897 | | Unit | As (Unit, _) -> w "tkCommand "; w code 898 | | ty -> 899 | w "let res = tkEval "; w code ; w " in \n"; 900 | write_result_parsing ~w ty 901 | end. Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 908-911, characters 23-16: 908 | .......................match def.template with 909 | ListArg (TypeArg(_, UserDefined("widget")) :: _) -> "v1" 910 | | ListArg (TypeArg(_, Subtype("widget", _)) :: _) -> "v1" 911 | | _ -> "dummy"... Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", lines 908-911, characters 23-16: 908 | .......................match def.template with 909 | ListArg (TypeArg(_, UserDefined("widget")) :: _) -> "v1" 910 | | ListArg (TypeArg(_, Subtype("widget", _)) :: _) -> "v1" 911 | | _ -> "dummy"... Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", lines 936-941, characters 2-5: 936 | ..begin match def.result with 937 | | Unit | As (Unit, _) -> w "tkCommand "; w code 938 | | ty -> 939 | w "let res = tkEval "; w code ; w " in \n"; 940 | write_result_parsing ~w ty 941 | end. Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "compile.ml", line 1001, characters 40-57: 1001 | converterCAMLtoTK "w" "x" (Subtype("options",clas)) ^ ") options)\n"); ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label context_widget was omitted in the application of this function. File "compile.ml", line 1012, characters 40-57: 1012 | converterCAMLtoTK "w" "x" (Subtype("options",clas)) ^ ") options)\n"); ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label context_widget was omitted in the application of this function. File "compile.ml", line 1043, characters 10-19: 1043 | List.iter (Ppexec.exec (fun _ -> ()) w) ^^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "compile.ml", lines 1035-1054, characters 2-61: 1035 | ..match def.template with 1036 | | StringArg fname -> 1037 | begin try 1038 | let realname = find_in_path !search_path (fname ^ ".ml") in 1039 | let ic = open_in_bin realname in ... 1051 | | Not_found -> 1052 | raise (Compiler_Error ("can't find external file: " ^ fname)) 1053 | end 1054 | | _ -> raise (Compiler_Error "invalid external definition") Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "compile.ml", line 28, characters 5-6: 28 | | l, t -> raise (Failure ("labeloff: " ^ l ^ " at " ^ at)) ^ Warning 27 [unused-var-strict]: unused variable t. File "compile.ml", line 197, characters 22-25: 197 | | Function (Product tyl) -> ^^^ Warning 27 [unused-var-strict]: unused variable tyl. File "compile.ml", line 214, characters 13-14: 214 | | TypeArg (l, t) -> "<" ^ ppMLtype t ^ ">" ^ Warning 27 [unused-var-strict]: unused variable l. File "compile.ml", line 273, characters 36-38: 273 | let labltk_write_type ~intf:w ~impl:w' name ~def:typdef = ^^ Warning 27 [unused-var-strict]: unused variable w'. File "compile.ml", line 393, characters 18-21: 393 | Product tyl -> raise (Failure "Product -> record was done. ???") ^^^ Warning 27 [unused-var-strict]: unused variable tyl. File "compile.ml", line 400, characters 25-26: 400 | begin fun v (l, ty) -> ^ Warning 27 [unused-var-strict]: unused variable l. File "compile.ml", line 732, characters 23-33: 732 | let code, variables, variables2, (co, _) = ^^^^^^^^^^ Warning 27 [unused-var-strict]: unused variable variables2. File "compile.ml", line 757, characters 23-33: 757 | let code, variables, variables2, (co, _) = ^^^^^^^^^^ Warning 27 [unused-var-strict]: unused variable variables2. File "compile.ml", line 828, characters 12-15: 828 | | Product tyl -> raise (Failure "Product -> record was done. ???") ^^^ Warning 27 [unused-var-strict]: unused variable tyl. File "compile.ml", line 913, characters 36-38: 913 | let code, variables, variables2, (co, lbl) = ^^ Warning 27 [unused-var-strict]: unused variable co. File "compile.ml", line 913, characters 40-43: 913 | let code, variables, variables2, (co, lbl) = ^^^ Warning 27 [unused-var-strict]: unused variable lbl. /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support intf.ml File "intf.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "intf.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "intf.ml", lines 78-87, characters 36-41: 78 | ....................................function 79 | [] -> u, l, o 80 | | (_, List(Subtype _) as x)::ls -> 81 | replace_args ~u ~l ~o:(x::o) ls 82 | | ("", _ as x)::ls -> 83 | replace_args ~u:(x::u) ~l ~o ls 84 | | (p, _ as x)::ls when p.[0] = '?' -> 85 | replace_args ~u ~l ~o:(x::o) ls 86 | | x::ls -> 87 | replace_args ~u ~l:(x::l) ~o ls Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.mltype. File "intf.ml", line 178, characters 10-19: 178 | List.iter (Ppexec.exec (fun _ -> ()) w) ^^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "intf.ml", lines 169-191, characters 2-61: 169 | ..match def.template with 170 | | StringArg fname -> 171 | begin try 172 | let realname = find_in_path !search_path (fname ^ ".mli") in 173 | let ic = open_in_bin realname in ... 188 | | Not_found -> 189 | raise (Compiler_Error ("can't find external file: " ^ fname)) 190 | end 191 | | _ -> raise (Compiler_Error "invalid external definition") Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "intf.ml", line 57, characters 29-34: 57 | let camltk_write_create_p ~w wname = ^^^^^ Warning 27 [unused-var-strict]: unused variable wname. File "intf.ml", line 65, characters 35-40: 65 | let camltk_write_named_create_p ~w wname = ^^^^^ Warning 27 [unused-var-strict]: unused variable wname. /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support maincompile.ml File "maincompile.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "maincompile.ml", line 55, characters 6-15: 55 | List.iter (Ppexec.exec ^^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "maincompile.ml", lines 151-154, characters 17-20: 151 | .................begin match c.template with 152 | ListArg (x :: _) -> x 153 | | _ -> fatal_error "bogus hack" 154 | end. Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.template. File "maincompile.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "maincompile.ml", line 194, characters 7-15: 194 | if List.mem typname !types_returned then ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "maincompile.ml", line 201, characters 12-26: 201 | if not (List.mem_assoc typname !types_external) then ^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label map was omitted in the application of this function. File "maincompile.ml", lines 320-329, characters 6-15: 320 | ......match def.module_type with 321 | | Widget -> 322 | let name = caml_name name in 323 | output_string oc (Printf.sprintf 324 | "let %s (w : any widget) =\n" name); 325 | output_string oc (Printf.sprintf 326 | " Rawwidget.check_class w widget_%s_table;\n" name); 327 | output_string oc (Printf.sprintf 328 | " (Obj.magic w : %s widget);;\n\n" name); 329 | | _ -> ()................ Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Tables.module_type. File "maincompile.ml", line 112, characters 19-25: 112 | let code1, vars11, vars12, opts1 = ^^^^^^ Warning 27 [unused-var-strict]: unused variable vars11. File "maincompile.ml", line 112, characters 27-33: 112 | let code1, vars11, vars12, opts1 = ^^^^^^ Warning 27 [unused-var-strict]: unused variable vars12. File "maincompile.ml", line 112, characters 35-40: 112 | let code1, vars11, vars12, opts1 = ^^^^^ Warning 27 [unused-var-strict]: unused variable opts1. File "maincompile.ml", line 114, characters 19-25: 114 | let code2, vars12, vars22, opts2 = ^^^^^^ Warning 27 [unused-var-strict]: unused variable vars12. File "maincompile.ml", line 114, characters 27-33: 114 | let code2, vars12, vars22, opts2 = ^^^^^^ Warning 27 [unused-var-strict]: unused variable vars22. File "maincompile.ml", line 114, characters 35-40: 114 | let code2, vars12, vars22, opts2 = ^^^^^ Warning 27 [unused-var-strict]: unused variable opts2. /usr/bin/ocamlc.opt -g -o tkcompiler ../support/support.cmo flags.cmo copyright.cmo tsort.cmo tables.cmo printer.cmo lexer.cmo pplex.cmo ppyac.cmo ppexec.cmo ppparse.cmo parser.cmo compile.cmo intf.cmo maincompile.cmo /usr/bin/ocamlc.opt -c -w A-3 -g -I ../support pp.ml /usr/bin/ocamlc.opt -g -o pp pplex.cmo ppyac.cmo ppexec.cmo ppparse.cmo pp.cmo cd labltk; make --no-print-directory -f Makefile.gen cd ..; /usr/bin/ocamlrun compiler/tkcompiler -outdir labltk (echo 'open StdLabels'; \ echo 'open Widget'; \ echo 'open Protocol'; \ echo 'open Support'; \ echo 'open Textvariable'; \ cat ../builtin/report.ml; \ cat ../builtin/builtin_*.ml; \ cat _tkgen.ml; \ echo ; \ echo ; \ echo 'module Tkintf = struct'; \ cat ../builtin/builtini_*.ml; \ cat _tkigen.ml; \ echo 'end (* module Tkintf *)'; \ echo ; \ echo ; \ echo 'open Tkintf' ;\ echo ; \ echo ; \ cat ../builtin/builtinf_*.ml; \ cat _tkfgen.ml; \ echo ; \ ) > _tk.ml /usr/bin/ocamlrun ../compiler/pp < _tk.ml > tk.ml rm -f _tk.ml /usr/bin/ocamldep -slash -I ../support [a-z]*.mli [a-z]*.ml > .depend cd labltk; make --no-print-directory /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps tk.ml File "tk.ml", line 1, characters 0-14: 1 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "tk.ml", line 35, characters 26-34: 35 | TkQuote (TkTokenList (List.map (fun x -> TkToken x) fp.extensions)) in ^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "tk.ml", line 40, characters 34-42: 40 | | _ -> [TkQuote (TkTokenList (List.map (fun x -> TkToken x) fp.mactypes))] ^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "tk.ml", line 120, characters 0-11: 120 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier widget (which is later used) File "tk.ml", line 120, characters 0-11: 120 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier any (which is later used) File "tk.ml", line 120, characters 0-11: 120 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier forget_type (which is later used) File "tk.ml", line 120, characters 0-11: 120 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier default_toplevel (which is later used) File "tk.ml", line 1, characters 0-14: 1 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "tk.ml", line 930, characters 33-46: 930 | | l -> raise (Invalid_argument (String.concat " " ("TKtoCAMLscrollValue"::l))) ^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label sep was omitted in the application of this function. File "tk.ml", lines 1103-1106, characters 4-23: 1103 | ....match cCAMLtoTKtext_index base with 1104 | TkToken ppbase -> 1105 | String.concat ~sep:"" (ppbase :: List.map ~f:ppTextModifier ml) 1106 | | _ -> assert false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Protocol.tkArgs. File "tk.ml", line 120, characters 0-11: 120 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier dummy (which is later used) File "tk.ml", line 120, characters 0-11: 120 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier menu (which is later used) File "tk.ml", line 120, characters 0-11: 120 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier coe (which is later used) File "tk.ml", line 2, characters 0-11: 2 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "tk.ml", line 4, characters 0-12: 4 | open Support ^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Support. File "tk.ml", line 1453, characters 17-21: 1453 | let (a1, args) = cTKtoCAMLscrollValue args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "tk.ml", line 1573, characters 17-21: 1573 | let (a2, args) = (Obj.magic (cTKtoCAMLwidget (List.hd args) ) : any widget), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "tk.ml", line 1905, characters 17-21: 1905 | let (a2, args) = float_of_string (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "tk.ml", line 1912, characters 17-21: 1912 | let (a2, args) = float_of_string (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "tk.ml", line 3927, characters 17-21: 3927 | let (a3, args) = (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps bell.mli File "bell.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "bell.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "bell.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps bell.ml File "bell.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "bell.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "bell.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "bell.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps scale.mli File "scale.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "scale.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps scale.ml File "scale.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "scale.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "scale.ml", line 53, characters 12-13: 53 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps winfo.mli File "winfo.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "winfo.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "winfo.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps winfo.ml File "winfo.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "winfo.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "winfo.ml", line 183, characters 12-13: 183 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "winfo.ml", line 214, characters 12-13: 214 | let r3, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps scrollbar.mli File "scrollbar.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "scrollbar.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "scrollbar.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps scrollbar.ml File "scrollbar.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "scrollbar.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "scrollbar.ml", line 74, characters 12-13: 74 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "scrollbar.ml", line 93, characters 12-13: 93 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps entry.mli File "entry.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "entry.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "entry.mli", line 114, characters 0-45: 114 | val xview_get : entry widget -> float * float ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 32 [unused-value-declaration]: unused value xview_get. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps entry.ml File "entry.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "entry.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "entry.ml", line 42, characters 12-13: 42 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "entry.ml", line 145, characters 4-13: 145 | let xview_get v1 = ^^^^^^^^^ Warning 32 [unused-value-declaration]: unused value xview_get. File "entry.ml", line 152, characters 12-13: 152 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "entry.ml", line 162, characters 12-13: 162 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps listbox.mli File "listbox.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "listbox.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "listbox.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps listbox.ml File "listbox.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "listbox.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "listbox.ml", line 47, characters 12-13: 47 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "listbox.ml", line 169, characters 12-13: 169 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "listbox.ml", line 189, characters 12-13: 189 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps wm.mli File "wm.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "wm.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "wm.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps wm.ml File "wm.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "wm.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "wm.ml", line 33, characters 12-13: 33 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "wm.ml", line 141, characters 12-13: 141 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "wm.ml", line 239, characters 12-13: 239 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "wm.ml", line 275, characters 12-13: 275 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "wm.ml", line 293, characters 12-13: 293 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "wm.ml", line 367, characters 12-13: 367 | let r2, l = (match (List.hd l) with ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps tkwait.mli File "tkwait.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "tkwait.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps tkwait.ml File "tkwait.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "tkwait.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "tkwait.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps grab.mli File "grab.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "grab.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "grab.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps grab.ml File "grab.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "grab.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "grab.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps font.mli File "font.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "font.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "font.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps font.ml File "font.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "font.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "font.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps canvas.mli File "canvas.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "canvas.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "canvas.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps canvas.ml File "canvas.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "canvas.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "canvas.ml", line 48, characters 12-13: 48 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "canvas.ml", line 423, characters 12-13: 423 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "canvas.ml", line 438, characters 12-13: 438 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps image.mli File "image.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "image.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "image.mli", line 20, characters 0-11: 20 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "image.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps image.ml File "image.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "image.ml", line 36, characters 2-10: 36 | List.map cTKtoCAMLimage names ^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "image.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "image.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "image.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps clipboard.mli File "clipboard.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "clipboard.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "clipboard.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps clipboard.ml File "clipboard.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "clipboard.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "clipboard.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps label.mli File "label.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "label.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps label.ml File "label.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "label.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps message.mli File "message.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "message.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps message.ml File "message.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "message.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps text.mli File "text.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "text.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "text.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps text.ml File "text.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "text.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "text.ml", line 42, characters 12-13: 42 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "text.ml", line 94, characters 12-13: 94 | let r5, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "text.ml", line 308, characters 12-13: 308 | let r2, l = cTKtoCAMLtext_index (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "text.ml", line 324, characters 12-13: 324 | let r2, l = cTKtoCAMLtext_index (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "text.ml", line 392, characters 12-13: 392 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "text.ml", line 407, characters 12-13: 407 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps imagephoto.mli File "imagephoto.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "imagephoto.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "imagephoto.mli", line 20, characters 0-11: 20 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "imagephoto.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps imagephoto.ml File "imagephoto.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "imagephoto.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "imagephoto.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "imagephoto.ml", line 71, characters 12-13: 71 | let r3, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps option.mli File "option.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "option.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "option.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps option.ml File "option.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "option.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "option.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps frame.mli File "frame.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "frame.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "frame.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps frame.ml File "frame.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "frame.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps selection.mli File "selection.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "selection.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "selection.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps selection.ml File "selection.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "selection.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "selection.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps dialog.mli File "dialog.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "dialog.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "dialog.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps dialog.ml File "dialog.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "dialog.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "dialog.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps place.mli File "place.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "place.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "place.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps place.ml File "place.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "place.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "place.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps pixmap.mli File "pixmap.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "pixmap.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "pixmap.mli", line 20, characters 0-11: 20 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "pixmap.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps pixmap.ml File "pixmap.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Bytes (which is later used) File "pixmap.ml", line 58, characters 2-19: 58 | Bytes.unsafe_blit pix_from.pixmap_data 0 ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: labels src, src_pos, dst, dst_pos, len were omitted in the application of this function. File "pixmap.ml", line 73, characters 2-18: 73 | Bytes.sub_string pixmap.pixmap_data pos 3 ^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: labels pos, len were omitted in the application of this function. File "pixmap.ml", line 77, characters 2-19: 77 | Bytes.unsafe_blit (Bytes.unsafe_of_string pixel) 0 pixmap.pixmap_data pos 3 ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: labels src, src_pos, dst, dst_pos, len were omitted in the application of this function. File "pixmap.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "pixmap.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "pixmap.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "pixmap.ml", line 22, characters 0-13: 22 | open Protocol ^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Protocol. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps menubutton.mli File "menubutton.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "menubutton.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps menubutton.ml File "menubutton.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "menubutton.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps radiobutton.mli File "radiobutton.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "radiobutton.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps radiobutton.ml File "radiobutton.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "radiobutton.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps focus.mli File "focus.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "focus.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "focus.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps focus.ml File "focus.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "focus.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "focus.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "focus.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps pack.mli File "pack.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "pack.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "pack.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps pack.ml File "pack.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "pack.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "pack.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps imagebitmap.mli File "imagebitmap.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "imagebitmap.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "imagebitmap.mli", line 20, characters 0-11: 20 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "imagebitmap.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps imagebitmap.ml File "imagebitmap.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "imagebitmap.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "imagebitmap.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps encoding.mli File "encoding.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "encoding.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "encoding.mli", line 20, characters 0-11: 20 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "encoding.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps encoding.ml File "encoding.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "encoding.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "encoding.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "encoding.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps optionmenu.mli File "optionmenu.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "optionmenu.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps optionmenu.ml File "optionmenu.ml", line 25, characters 0-13: 25 | open Protocol;; ^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier tkEval (which is later used) File "optionmenu.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "optionmenu.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "optionmenu.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "optionmenu.ml", line 22, characters 0-13: 22 | open Protocol ^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Protocol. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps checkbutton.mli File "checkbutton.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "checkbutton.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps checkbutton.ml File "checkbutton.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "checkbutton.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps tkvars.mli File "tkvars.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "tkvars.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "tkvars.mli", line 20, characters 0-11: 20 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "tkvars.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps tkvars.ml File "tkvars.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "tkvars.ml", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "tkvars.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "tkvars.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps palette.mli File "palette.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "palette.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "palette.mli", line 20, characters 0-11: 20 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "palette.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps palette.ml File "palette.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "palette.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "palette.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps menu.mli File "menu.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "menu.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps menu.ml File "menu.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "menu.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps button.mli File "button.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "button.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps button.ml File "button.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "button.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps toplevel.mli File "toplevel.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "toplevel.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "toplevel.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps toplevel.ml File "toplevel.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "toplevel.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps grid.mli File "grid.mli", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. File "grid.mli", line 19, characters 0-11: 19 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Tk.Tkintf. File "grid.mli", line 21, characters 0-17: 21 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps grid.ml File "grid.ml", line 16, characters 0-14: 16 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "grid.ml", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "grid.ml", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Textvariable. File "grid.ml", line 33, characters 12-13: 33 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "grid.ml", line 48, characters 12-13: 48 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "grid.ml", line 65, characters 12-13: 65 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "grid.ml", line 111, characters 12-13: 111 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "grid.ml", line 152, characters 12-13: 152 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps labltk.ml cd camltk; make --no-print-directory -f Makefile.gen cd ..; /usr/bin/ocamlrun compiler/tkcompiler -camltk -outdir camltk (echo '##define CAMLTK'; \ echo 'include Camltkwrap'; \ echo 'open Widget'; \ echo 'open Protocol'; \ echo 'open Textvariable'; \ echo ; \ cat ../builtin/report.ml; \ echo ; \ cat ../builtin/builtin_*.ml; \ echo ; \ cat _tkgen.ml; \ echo ; \ echo ; \ echo 'module Tkintf = struct'; \ cat ../builtin/builtini_*.ml; \ cat _tkigen.ml; \ echo 'end (* module Tkintf *)'; \ echo ; \ echo ; \ echo 'open Tkintf' ;\ echo ; \ echo ; \ cat ../builtin/builtinf_*.ml; \ cat _tkfgen.ml; \ echo ; \ ) > _cTk.ml /usr/bin/ocamlrun ../compiler/pp < _cTk.ml > cTk.ml rm -f _cTk.ml /usr/bin/ocamldep -slash -I ../support [a-z]*.mli [a-z]*.ml > .depend cd camltk; make --no-print-directory /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cTk.ml File "cTk.ml", line 116, characters 0-11: 116 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier widget (which is later used) File "cTk.ml", lines 1372-1378, characters 2-34: 1372 | ..match xe with 1373 | | Virtual s -> 1374 | if ml = [] then "<<"^s^">>" 1375 | else raise IllegalVirtualEvent 1376 | | _ -> 1377 | "<" ^ (String.concat " " (List.map cCAMLtoTKmodifier ml)) 1378 | ^ (cCAMLtoTKxEvent xe) ^ ">" Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type xEvent. File "cTk.ml", line 116, characters 0-11: 116 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier widget_any_table (which is later used) File "cTk.ml", line 116, characters 0-11: 116 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier chk_sub (which is later used) File "cTk.ml", lines 1535-1537, characters 5-24: 1535 | .....match cCAMLtoTKindex index_text_table base with 1536 | | TkToken ppbase -> List.fold_left (^) ppbase (List.map ppTextModifier ml) 1537 | | _ -> assert false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Camltkwrap.Protocol.tkArgs. File "cTk.ml", line 116, characters 0-11: 116 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier widget_menu_table (which is later used) File "cTk.ml", line 116, characters 0-11: 116 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier default_toplevel (which is later used) File "cTk.ml", line 2768, characters 30-47: 2768 | let cbId = register_callback widget (wrapeventInfo f what) ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cTk.ml", line 2772, characters 30-47: 2772 | let cbId = register_callback widget (wrapeventInfo f what) ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cTk.ml", line 2777, characters 30-47: 2777 | let cbId = register_callback widget (wrapeventInfo f what) ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cTk.ml", line 2797, characters 30-47: 2797 | let cbId = register_callback Widget.dummy ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cTk.ml", line 2801, characters 30-47: 2801 | let cbId = register_callback Widget.dummy ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cTk.ml", line 2806, characters 30-47: 2806 | let cbId = register_callback Widget.dummy ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cTk.ml", line 116, characters 0-11: 116 | open Widget;; ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier dummy (which is later used) File "cTk.ml", line 3, characters 0-11: 3 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "cTk.ml", line 1900, characters 17-21: 1900 | let (a1, args) = cTKtoCAMLscrollValue args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "cTk.ml", line 1962, characters 17-21: 1962 | let (a2, args) = cTKtoCAMLwidget (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "cTk.ml", line 2130, characters 17-21: 2130 | let (a2, args) = float_of_string (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "cTk.ml", line 2135, characters 17-21: 2135 | let (a2, args) = float_of_string (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. File "cTk.ml", line 2351, characters 4-23: 2351 | let tkPalette_any_table = [CPaletteActiveBackground; CPaletteActiveForeground; CPaletteBackground; CPaletteDisabledForeground; CPaletteForeground; CPaletteForegroundselectColor; CPaletteHighlightBackground; CPaletteHighlightColor; CPaletteInsertBackground; CPaletteSelectBackground; CPaletteSelectColor; CPaletteTroughColor] ^^^^^^^^^^^^^^^^^^^ Warning 32 [unused-value-declaration]: unused value tkPalette_any_table. File "cTk.ml", line 2505, characters 17-21: 2505 | let (a3, args) = (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cBell.mli File "cBell.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cBell.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cBell.ml File "cBell.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cBell.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cScale.mli File "cScale.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cScale.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cScale.ml File "cScale.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cScale.ml", line 55, characters 12-13: 55 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cScale.ml", line 66, characters 12-13: 66 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cWinfo.mli File "cWinfo.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cWinfo.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cWinfo.ml File "cWinfo.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cWinfo.ml", line 222, characters 12-13: 222 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cWinfo.ml", line 253, characters 12-13: 253 | let r3, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cScrollbar.mli File "cScrollbar.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cScrollbar.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cScrollbar.ml File "cScrollbar.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cScrollbar.ml", line 79, characters 12-13: 79 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cScrollbar.ml", line 98, characters 12-13: 98 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cEntry.mli File "cEntry.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cEntry.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cEntry.mli", line 69, characters 0-51: 69 | val xview_get : (* entry *) widget -> float * float ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 32 [unused-value-declaration]: unused value xview_get. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cEntry.ml File "cEntry.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cEntry.ml", line 48, characters 12-13: 48 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cEntry.ml", line 150, characters 4-13: 150 | let xview_get v1 = ^^^^^^^^^ Warning 32 [unused-value-declaration]: unused value xview_get. File "cEntry.ml", line 157, characters 12-13: 157 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cEntry.ml", line 167, characters 12-13: 167 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cListbox.mli File "cListbox.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cListbox.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cListbox.ml File "cListbox.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cListbox.ml", line 53, characters 12-13: 53 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cListbox.ml", line 174, characters 12-13: 174 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cListbox.ml", line 194, characters 12-13: 194 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cWm.mli File "cWm.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cWm.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cWm.ml File "cWm.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cWm.ml", line 32, characters 12-13: 32 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cWm.ml", line 140, characters 12-13: 140 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cWm.ml", line 238, characters 12-13: 238 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cWm.ml", line 274, characters 12-13: 274 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cWm.ml", line 292, characters 12-13: 292 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cWm.ml", line 366, characters 12-13: 366 | let r2, l = (match (List.hd l) with ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cTkwait.mli File "cTkwait.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cTkwait.ml File "cTkwait.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cGrab.mli File "cGrab.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cGrab.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cGrab.ml File "cGrab.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cFont.mli File "cFont.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cFont.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cFont.ml File "cFont.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cCanvas.mli File "cCanvas.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cCanvas.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cCanvas.ml File "cCanvas.ml", line 474, characters 19-36: 474 | let cbId = register_callback widget (wrapeventInfo f what) in ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cCanvas.ml", line 477, characters 19-36: 477 | let cbId = register_callback widget (wrapeventInfo f what) in ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cCanvas.ml", line 482, characters 19-36: 482 | let cbId = register_callback widget (wrapeventInfo f what) in ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cCanvas.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cCanvas.ml", line 54, characters 12-13: 54 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cCanvas.ml", line 445, characters 12-13: 445 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cCanvas.ml", line 460, characters 12-13: 460 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cImage.mli File "cImage.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cImage.mli", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cImage.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cImage.ml File "cImage.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cImage.ml", line 18, characters 0-11: 18 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cImage.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cClipboard.mli File "cClipboard.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cClipboard.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cClipboard.ml File "cClipboard.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cLabel.mli File "cLabel.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cLabel.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cLabel.ml File "cLabel.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cResource.mli File "cResource.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cResource.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cResource.ml File "cResource.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cMessage.mli File "cMessage.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cMessage.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cMessage.ml File "cMessage.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cText.mli File "cText.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cText.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cText.ml File "cText.ml", line 470, characters 19-36: 470 | let cbId = register_callback widget (wrapeventInfo f what) in ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cText.ml", line 473, characters 19-36: 473 | let cbId = register_callback widget (wrapeventInfo f what) in ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cText.ml", line 478, characters 19-36: 478 | let cbId = register_callback widget (wrapeventInfo f what) in ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cText.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cText.ml", line 48, characters 12-13: 48 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cText.ml", line 99, characters 12-13: 99 | let r5, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cText.ml", line 330, characters 12-13: 330 | let r2, l = cTKtoCAMLindex (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cText.ml", line 344, characters 12-13: 344 | let r2, l = cTKtoCAMLindex (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cText.ml", line 423, characters 12-13: 423 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cText.ml", line 438, characters 12-13: 438 | let r2, l = float_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cImagephoto.mli File "cImagephoto.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cImagephoto.mli", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cImagephoto.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cImagephoto.ml File "cImagephoto.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cImagephoto.ml", line 75, characters 12-13: 75 | let r3, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cOption.mli File "cOption.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cOption.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cOption.ml File "cOption.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cFrame.mli File "cFrame.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cFrame.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cFrame.ml File "cFrame.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cSelection.mli File "cSelection.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cSelection.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cSelection.ml File "cSelection.ml", line 51, characters 13-30: 51 | let id = register_callback w (function args -> ^^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label callback was omitted in the application of this function. File "cSelection.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cSelection.ml", line 53, characters 14-18: 53 | let (a2,args) = int_of_string (List.hd args), List.tl args in ^^^^ Warning 27 [unused-var-strict]: unused variable args. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cDialog.mli File "cDialog.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cDialog.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cDialog.ml File "cDialog.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPlace.mli File "cPlace.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cPlace.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPlace.ml File "cPlace.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPixmap.mli File "cPixmap.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cPixmap.mli", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cPixmap.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPixmap.ml File "cPixmap.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cPixmap.ml", line 18, characters 0-11: 18 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cPixmap.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cPixmap.ml", line 21, characters 0-13: 21 | open Protocol ^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Protocol. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cMenubutton.mli File "cMenubutton.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cMenubutton.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cMenubutton.ml File "cMenubutton.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cRadiobutton.mli File "cRadiobutton.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cRadiobutton.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cRadiobutton.ml File "cRadiobutton.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cFocus.mli File "cFocus.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cFocus.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cFocus.ml File "cFocus.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cFocus.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPack.mli File "cPack.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cPack.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPack.ml File "cPack.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cImagebitmap.mli File "cImagebitmap.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cImagebitmap.mli", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cImagebitmap.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cImagebitmap.ml File "cImagebitmap.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cEncoding.mli File "cEncoding.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cEncoding.mli", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cEncoding.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cEncoding.ml File "cEncoding.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cEncoding.ml", line 18, characters 0-11: 18 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cEncoding.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cOptionmenu.mli File "cOptionmenu.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cOptionmenu.ml File "cOptionmenu.ml", line 24, characters 0-13: 24 | open Protocol;; ^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier tkEval (which is later used) File "cOptionmenu.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cOptionmenu.ml", line 18, characters 0-11: 18 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cOptionmenu.ml", line 21, characters 0-13: 21 | open Protocol ^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Protocol. File "cOptionmenu.ml", line 41, characters 4-16: 41 | let create_named parent name variable values = ^^^^^^^^^^^^ Warning 32 [unused-value-declaration]: unused value create_named. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cCheckbutton.mli File "cCheckbutton.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cCheckbutton.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cCheckbutton.ml File "cCheckbutton.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cTkvars.mli File "cTkvars.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cTkvars.mli", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cTkvars.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cTkvars.ml File "cTkvars.ml", line 17, characters 0-11: 17 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cTkvars.ml", line 18, characters 0-11: 18 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cTkvars.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPalette.mli File "cPalette.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cPalette.mli", line 19, characters 0-11: 19 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cPalette.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cPalette.ml File "cPalette.ml", line 18, characters 0-11: 18 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Widget. File "cPalette.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cMenu.mli File "cMenu.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cMenu.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cMenu.ml File "cMenu.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cButton.mli File "cButton.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cButton.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cButton.ml File "cButton.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cToplevel.mli File "cToplevel.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cToplevel.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cToplevel.ml File "cToplevel.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cGrid.mli File "cGrid.mli", line 18, characters 0-11: 18 | open Tkintf ^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Tkintf. File "cGrid.mli", line 20, characters 0-17: 20 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps cGrid.ml File "cGrid.ml", line 19, characters 0-17: 19 | open Textvariable ^^^^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open CTk.Textvariable. File "cGrid.ml", line 32, characters 12-13: 32 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cGrid.ml", line 47, characters 12-13: 47 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cGrid.ml", line 64, characters 12-13: 64 | let r4, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cGrid.ml", line 116, characters 12-13: 116 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. File "cGrid.ml", line 164, characters 12-13: 164 | let r2, l = int_of_string (List.hd l), List.tl l in ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../support -no-alias-deps camltk.ml cd lib; make --no-print-directory make --no-print-directory superclean if test -f tk.cmo; then \ echo We have changes... Now lib directory has no .cmo files; \ rm -f *.cm* *.o; \ fi cd ../labltk; make --no-print-directory make[2]: Nothing to be done for 'all'. cd ../camltk; make --no-print-directory make[2]: Nothing to be done for 'all'. /usr/bin/ocamlmklib -ocamlc '/usr/bin/ocamlc' -o labltk \ -I ../labltk -I ../camltk ../support/support.cmo ../support/rawwidget.cmo ../support/widget.cmo ../support/protocol.cmo ../support/textvariable.cmo ../support/timer.cmo ../support/fileevent.cmo ../support/camltkwrap.cmo tk.cmo bell.cmo scale.cmo winfo.cmo scrollbar.cmo entry.cmo listbox.cmo wm.cmo tkwait.cmo grab.cmo font.cmo canvas.cmo image.cmo clipboard.cmo label.cmo message.cmo text.cmo imagephoto.cmo option.cmo frame.cmo selection.cmo dialog.cmo place.cmo pixmap.cmo menubutton.cmo radiobutton.cmo focus.cmo pack.cmo imagebitmap.cmo encoding.cmo optionmenu.cmo checkbutton.cmo tkvars.cmo palette.cmo menu.cmo button.cmo toplevel.cmo grid.cmo cTk.cmo cBell.cmo cScale.cmo cWinfo.cmo cScrollbar.cmo cEntry.cmo cListbox.cmo cWm.cmo cTkwait.cmo cGrab.cmo cFont.cmo cCanvas.cmo cImage.cmo cClipboard.cmo cLabel.cmo cResource.cmo cMessage.cmo cText.cmo cImagephoto.cmo cOption.cmo cFrame.cmo cSelection.cmo cDialog.cmo cPlace.cmo cPixmap.cmo cMenubutton.cmo cRadiobutton.cmo cFocus.cmo cPack.cmo cImagebitmap.cmo cEncoding.cmo cOptionmenu.cmo cCheckbutton.cmo cTkvars.cmo cPalette.cmo cMenu.cmo cButton.cmo cToplevel.cmo cGrid.cmo labltk.cmo camltk.cmo \ -cclib "\"-ltk8.6 -ltcl8.6 \"" /usr/bin/ocamlc.opt -verbose -linkall -o labltktop -I ../support \ ocamlcommon.cma ocamlbytecomp.cma ocamltoplevel.cma \ -I +compiler-libs unix.cma \ -I ../labltk -I ../camltk labltk.cma \ str.cma \ topstart.cmo Generate labltk cd jpf; make --no-print-directory /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support fileselect.mli File "fileselect.mli", line 22, characters 0-12: 22 | open Support ^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Support. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support fileselect.ml File "fileselect.ml", line 29, characters 0-7: 29 | open Tk ^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier bind (which is later used) File "fileselect.ml", line 58, characters 20-24: 58 | 0 -> close r; dup2 w stdout; ^^^^ Warning 6 [labels-omitted]: labels src, dst were omitted in the application of this function. File "fileselect.ml", line 25, characters 0-15: 25 | open UnixLabels ^^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier stdout (which is later used) File "fileselect.ml", line 24, characters 0-14: 24 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "fileselect.ml", line 121, characters 8-32: 121 | let rec get_directories_in_files path = ^^^^^^^^^^^^^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "fileselect.ml", line 30, characters 0-11: 30 | open Widget ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier coe (which is later used) File "fileselect.ml", line 27, characters 0-13: 27 | open Filename ^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.Filename. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support balloon.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support balloon.ml File "balloon.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "balloon.ml", line 26, characters 0-12: 26 | open Support ^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Support. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support shell.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support shell.ml File "shell.ml", line 16, characters 0-9: 16 | open Unix ^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier stdout (which is later used) File "shell.ml", line 16, characters 0-9: 16 | open Unix ^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier stderr (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support jpf_font.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../support jpf_font.ml /usr/bin/ocamlc.opt -a -o jpflib.cma fileselect.cmo balloon.cmo shell.cmo jpf_font.cmo cd frx; make --no-print-directory /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_misc.mli File "frx_misc.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Camltk. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_misc.ml File "frx_misc.ml", line 27, characters 0-11: 27 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Protocol (which is later used) File "frx_misc.ml", lines 33-44, characters 12-14: 33 | ............(function 34 | Data s -> 35 | begin match !hasopt with 36 | None -> hasopt := Some (Data s) 37 | | Some _ -> raise (Protocol.TkError "two data sources in options") ... 41 | None -> hasopt := Some (File f) 42 | | Some _ -> raise (Protocol.TkError "two data sources in options") 43 | end 44 | | o -> ()) Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type CTk.options. File "frx_misc.ml", lines 55-57, characters 19-21: 55 | ...................(function 56 | | Data s -> File tmpfile 57 | | o -> o) Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type CTk.options. File "frx_misc.ml", lines 46-69, characters 2-21: 46 | ..match !hasopt with 47 | None -> raise (Protocol.TkError "no data source in options") 48 | | Some (Data s) -> 49 | begin 50 | let tmpfile = Filename.temp_file "img" "" in ... 66 | raise e 67 | end 68 | | Some (File s) -> Imagephoto.create options 69 | | _ -> assert false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type CTk.options. File "frx_misc.ml", line 44, characters 6-7: 44 | | o -> ()) ^ Warning 27 [unused-var-strict]: unused variable o. File "frx_misc.ml", line 56, characters 19-20: 56 | | Data s -> File tmpfile ^ Warning 27 [unused-var-strict]: unused variable s. File "frx_misc.ml", line 68, characters 15-16: 68 | | Some (File s) -> Imagephoto.create options ^ Warning 27 [unused-var-strict]: unused variable s. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_widget.mli File "frx_widget.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_widget.ml File "frx_widget.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_widget.ml", line 17, characters 0-11: 17 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Camltk.Widget. File "frx_widget.ml", line 19, characters 4-11: 19 | let version = "$Id$" ^^^^^^^ Warning 32 [unused-value-declaration]: unused value version. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_font.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_font.ml File "frx_font.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_font.ml", line 17, characters 0-11: 17 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Camltk.Widget. File "frx_font.ml", line 19, characters 4-11: 19 | let version = "$Id$" ^^^^^^^ Warning 32 [unused-value-declaration]: unused value version. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_entry.mli File "frx_entry.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_entry.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Textvariable (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_entry.ml File "frx_entry.ml", line 18, characters 4-11: 18 | let version = "$Id$" ^^^^^^^ Warning 32 [unused-value-declaration]: unused value version. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_text.mli File "frx_text.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_text.ml File "frx_text.ml", lines 60-63, characters 4-13: 60 | ....match tags with 61 | (WidgetBindings t)::l when t = tx -> 62 | bindtags tx ((WidgetBindings tx) :: (TagBindings "TEXT_RO") :: l) 63 | | _ -> () Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type CTk.bindings. File "frx_text.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Textvariable (which is later used) File "frx_text.ml", line 79, characters 32-51: 79 | let patternv = Frx_misc.autodef Textvariable.create ^^^^^^^^^^^^^^^^^^^ Warning 48 [eliminated-optional-arguments]: implicit elimination of optional argument ?on File "frx_text.ml", line 80, characters 29-48: 80 | and casev = Frx_misc.autodef Textvariable.create ^^^^^^^^^^^^^^^^^^^ Warning 48 [eliminated-optional-arguments]: implicit elimination of optional argument ?on File "frx_text.ml", lines 160-163, characters 4-13: 160 | ....match tags with 161 | (WidgetBindings t)::l when t = tx -> 162 | bindtags tx ((WidgetBindings tx) :: (TagBindings "SEARCH") :: l) 163 | | _ -> () Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type CTk.bindings. File "frx_text.ml", line 18, characters 4-11: 18 | let version = "$Id$" ^^^^^^^ Warning 32 [unused-value-declaration]: unused value version. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_listbox.mli File "frx_listbox.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_listbox.ml File "frx_listbox.ml", line 18, characters 4-11: 18 | let version = "$Id$" ^^^^^^^ Warning 32 [unused-value-declaration]: unused value version. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_req.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_req.ml File "frx_req.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_req.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Textvariable (which is later used) File "frx_req.ml", line 23, characters 4-11: 23 | let version = "$Id$" ^^^^^^^ Warning 32 [unused-value-declaration]: unused value version. File "frx_req.ml", line 166, characters 58-59: 166 | and fu,eu = Frx_entry.new_label_entry t "Username" (fun s -> ()) ^ Warning 27 [unused-var-strict]: unused variable s. File "frx_req.ml", line 167, characters 58-59: 167 | and fp,ep = Frx_entry.new_label_entry t "Password" (fun s -> ()) ^ Warning 27 [unused-var-strict]: unused variable s. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_fillbox.mli File "frx_fillbox.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_fillbox.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_focus.mli File "frx_focus.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_focus.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_dialog.mli File "frx_dialog.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_dialog.ml File "frx_dialog.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Protocol (which is later used) File "frx_dialog.ml", lines 45-51, characters 2-5: 45 | ..begin match bitmap with 46 | Predefined "" -> () 47 | | _ -> 48 | let b = 49 | Label.create_named ftop "bitmap" [Bitmap bitmap] in 50 | pack [b][Side Side_Left; PadX (Millimeters 3.0); PadY (Millimeters 3.0)] 51 | end. Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type CTk.bitmap. File "frx_dialog.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Textvariable (which is later used) File "frx_dialog.ml", lines 109-111, characters 8-25: 109 | ........match !grabstatus with 110 | Some(GrabGlobal) -> Grab.set_global x 111 | | _ -> Grab.set x Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type CTk.grabStatus. File "frx_dialog.ml", line 91, characters 9-10: 91 | | x::l -> grabstatus := Some(Grab.status x) ^ Warning 27 [unused-var-strict]: unused variable l. File "frx_dialog.ml", line 107, characters 8-9: 107 | | x::l -> ^ Warning 27 [unused-var-strict]: unused variable l. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_mem.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_mem.ml File "frx_mem.ml", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_mem.ml", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Timer (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_rpc.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_rpc.ml File "frx_rpc.ml", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Protocol (which is later used) File "frx_rpc.ml", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Textvariable (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_synth.mli File "frx_synth.mli", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_synth.ml File "frx_synth.ml", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_synth.ml", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Protocol (which is later used) File "frx_synth.ml", line 17, characters 0-11: 17 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Textvariable (which is later used) File "frx_synth.ml", line 18, characters 0-11: 18 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Camltk.Widget. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_selection.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_selection.ml File "frx_selection.ml", line 19, characters 0-11: 19 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_selection.ml", line 17, characters 0-11: 17 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. File "frx_selection.ml", line 43, characters 9-10: 43 | | Some f -> () ^ Warning 27 [unused-var-strict]: unused variable f. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_after.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_after.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_fit.mli File "frx_fit.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_fit.ml File "frx_fit.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) File "frx_fit.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Timer (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_ctext.mli File "frx_ctext.mli", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_ctext.ml File "frx_ctext.ml", line 47, characters 16-21: 47 | let scroll, check = Frx_fit.vert t in ^^^^^ Warning 27 [unused-var-strict]: unused variable check. /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_color.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../camltk -I ../support frx_color.ml File "frx_color.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Protocol (which is later used) File "frx_color.ml", line 16, characters 0-11: 16 | open Camltk ^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Widget (which is later used) /usr/bin/ocamlc.opt -a -o frxlib.cma frx_misc.cmo frx_widget.cmo frx_font.cmo frx_entry.cmo frx_text.cmo frx_listbox.cmo frx_req.cmo frx_fillbox.cmo frx_focus.cmo frx_dialog.cmo frx_mem.cmo frx_rpc.cmo frx_synth.cmo frx_selection.cmo frx_after.cmo frx_fit.cmo frx_ctext.cmo frx_color.cmo cd browser; make --no-print-directory /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_tk.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_config.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_config.ml File "jg_config.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_bind.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_bind.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_completion.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_completion.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_box.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_button.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_toplevel.ml File "jg_toplevel.ml", line 17, characters 0-7: 17 | open Tk ^^^^^^^ Warning 33 [unused-open]: unused open Tk. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_text.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_text.ml File "jg_text.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_message.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_message.ml File "jg_message.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.StdLabels. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_menu.ml File "jg_menu.ml", line 19, characters 46-52: 19 | class c ~parent ?(underline=0) label = object (self) ^^^^^^ Warning 27 [unused-var-strict]: unused variable self. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_entry.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_multibox.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_multibox.ml File "jg_multibox.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "jg_multibox.ml", line 103, characters 15-19: 103 | let (first,last) = Listbox.yview_get box in ^^^^ Warning 27 [unused-var-strict]: unused variable last. File "jg_multibox.ml", line 171, characters 21-26: 171 | ~action:(fun ev ~index -> ^^^^^ Warning 27 [unused-var-strict]: unused variable index. File "jg_multibox.ml", line 179, characters 21-23: 179 | ~action:(fun ev ~index -> action (box#current)); ^^ Warning 27 [unused-var-strict]: unused variable ev. File "jg_multibox.ml", line 179, characters 25-30: 179 | ~action:(fun ev ~index -> action (box#current)); ^^^^^ Warning 27 [unused-var-strict]: unused variable index. File "jg_multibox.ml", line 181, characters 21-23: 181 | ~action:(fun ev ~index -> action (box#current)); ^^ Warning 27 [unused-var-strict]: unused variable ev. File "jg_multibox.ml", line 181, characters 25-30: 181 | ~action:(fun ev ~index -> action (box#current)); ^^^^^ Warning 27 [unused-var-strict]: unused variable index. File "jg_multibox.ml", line 183, characters 21-23: 183 | ~action:(fun ev ~index -> ^^ Warning 27 [unused-var-strict]: unused variable ev. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_memo.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs jg_memo.ml /usr/bin/ocamlc.opt -a -o jglib.cma jg_tk.cmo jg_config.cmo jg_bind.cmo jg_completion.cmo jg_box.cmo jg_button.cmo jg_toplevel.cmo jg_text.cmo jg_message.cmo jg_menu.cmo jg_entry.cmo jg_multibox.cmo jg_memo.cmo /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs list2.ml File "list2.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs useunix.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs useunix.ml File "useunix.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "useunix.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs setpath.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs setpath.ml File "setpath.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "setpath.ml", line 53, characters 33-36: 53 | let add_to_path ~dirs ?(base="") box = ^^^ Warning 27 [unused-var-strict]: unused variable box. File "setpath.ml", line 68, characters 16-19: 68 | let remove_path box ~dirs = ^^^ Warning 27 [unused-var-strict]: unused variable box. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs lexical.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs lexical.ml File "lexical.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "lexical.ml", lines 123-126, characters 10-13: 123 | ..........begin match !last with 124 | (QUESTION | TILDE), _, _ -> "label" 125 | | _ -> "" 126 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parser.token. File "lexical.ml", lines 128-135, characters 10-13: 128 | ..........begin match !last with 129 | LIDENT _, lstart, lstop -> 130 | if lstop = start then 131 | Text.tag_add tw ~tag:"label" 132 | ~start:(tpos lstart) ~stop:(tpos stop); 133 | "" 134 | | _ -> "" 135 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parser.token. File "lexical.ml", lines 53-137, characters 6-15: 53 | ......match token with 54 | AMPERAMPER 55 | | AMPERSAND 56 | | BARBAR 57 | | DO | DONE ... 134 | | _ -> "" 135 | end 136 | | EOF -> raise End_of_file 137 | | _ -> "" Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parser.token. File "lexical.ml", line 18, characters 0-7: 18 | open Tk ^^^^^^^ Warning 33 [unused-open]: unused open Tk. File "lexical.ml", line 145, characters 17-20: 145 | | Lexer.Error (err, loc) -> () ^^^ Warning 27 [unused-var-strict]: unused variable err. File "lexical.ml", line 145, characters 22-25: 145 | | Lexer.Error (err, loc) -> () ^^^ Warning 27 [unused-var-strict]: unused variable loc. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs fileselect.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs fileselect.ml File "fileselect.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "fileselect.ml", line 19, characters 0-14: 19 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "fileselect.ml", line 24, characters 0-12: 24 | open Useunix ^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier concat (which is later used) File "fileselect.ml", line 135, characters 8-18: 135 | List.merge compare files ^^^^^^^^^^ Warning 6 [labels-omitted]: label cmp was omitted in the application of this function. File "fileselect.ml", line 21, characters 0-13: 21 | open Filename ^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Stdlib.Filename. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs searchid.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs searchid.ml File "searchid.ml", lines 59-62, characters 2-24: 59 | ..match lid with 60 | Ldot (Lident s1, s2) when s1 = name -> Lident s2 61 | | Ldot (l, s) -> Ldot (remove_hd ~name l, s) 62 | | _ -> raise Not_found Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Longident.t. File "searchid.ml", line 18, characters 0-14: 18 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "searchid.ml", line 26, characters 0-10: 26 | open Ctype ^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the value identifier repr (which is later used) File "searchid.ml", lines 99-101, characters 2-17: 99 | ..match ty.desc with 100 | Tarrow(l, ty1, ty2, _) -> let (tl,ty) = all_args ty2 in ((l,ty1)::tl, ty) 101 | | _ -> ([], ty) Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "searchid.ml", lines 115-121, characters 13-25: 115 | .............match row_field_repr f1, row_field_repr f2 with 116 | Rpresent None, Rpresent None -> true 117 | | Rpresent(Some t1), Rpresent (Some t2) -> equal t1 t2 ~prefix 118 | | Reither(c1, tl1, _, _), Reither(c2, tl2, _, _) -> 119 | c1 = c2 && List.length tl1 = List.length tl2 && 120 | List.for_all2 tl1 tl2 ~f:(equal ~prefix) 121 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.row_field. File "searchid.ml", lines 104-141, characters 2-14: 104 | ..match (repr t1).desc, (repr t2).desc with 105 | Tvar _, Tvar _ -> true 106 | | Tvariant row1, Tvariant row2 -> 107 | let row1 = row_repr row1 and row2 = row_repr row2 in 108 | let fields1 = filter_row_fields false row1.row_fields ... 138 | remove_prefix ~prefix (longident_of_path p1) = (longident_of_path p2) 139 | && List.length l1 = List.length l2 140 | && List.for_all2 l1 l2 ~f:(equal ~prefix) 141 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "searchid.ml", lines 157-163, characters 13-25: 157 | .............match row_field_repr f1, row_field_repr f2 with 158 | Rpresent None, Rpresent None -> true 159 | | Rpresent(Some t1), Rpresent (Some t2) -> included t1 t2 ~prefix 160 | | Reither(c1, tl1, _, _), Reither(c2, tl2, _, _) -> 161 | c1 = c2 && List.length tl1 = List.length tl2 && 162 | List.for_all2 tl1 tl2 ~f:(included ~prefix) 163 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.row_field. File "searchid.ml", line 172, characters 50-58: 172 | ~f:(fun (l,_) -> not (is_optional l) || List.mem l ll1) ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "searchid.ml", lines 146-194, characters 2-14: 146 | ..match (repr t1).desc, (repr t2).desc with 147 | Tvar _, _ -> true 148 | | Tvariant row1, Tvariant row2 -> 149 | let row1 = row_repr row1 and row2 = row_repr row2 in 150 | let fields1 = filter_row_fields false row1.row_fields ... 191 | remove_prefix ~prefix (longident_of_path p1) = (longident_of_path p2) 192 | && List.length l1 = List.length l2 193 | && List.for_all2 l1 l2 ~f:(included ~prefix) 194 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "searchid.ml", lines 210-213, characters 2-11: 210 | ..match (expand_head env self).desc with 211 | Tobject (ty_obj, _) -> 212 | let l,_ = flatten_fields ty_obj in l 213 | | _ -> [] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "searchid.ml", line 222, characters 6-17: 222 | | Cstr_record l -> List.exists l ~f:(fun d -> matches d.Types.ld_type) ^^^^^^^^^^^ Warning 42 [disambiguated-name]: this use of Cstr_record relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchid.ml", line 252, characters 28-35: 252 | | Sig_module (id, _, {md_type=Mty_signature sign}, _, _) -> ^^^^^^^ Warning 42 [disambiguated-name]: this use of md_type relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchid.ml", line 252, characters 27-55: 252 | | Sig_module (id, _, {md_type=Mty_signature sign}, _, _) -> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: md_attributes, md_loc, md_uid Either bind these labels explicitly or add '; _' to the pattern. File "searchid.ml", line 240, characters 22-52: 240 | begin fun {Types.cd_args=args; cd_res=r} -> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: cd_id, cd_loc, cd_attributes, cd_uid Either bind these labels explicitly or add '; _' to the pattern. File "searchid.ml", line 245, characters 34-51: 245 | List.exists l ~f:(fun {Types.ld_type=t} -> matches t) ^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: ld_id, ld_mutable, ld_loc, ld_attributes, ld_uid Either bind these labels explicitly or add '; _' to the pattern. File "searchid.ml", lines 225-269, characters 20-45: 225 | ....................match item with 226 | Sig_value (id, vd, _) -> 227 | if matches vd.val_type then [lid_of_id id, Pvalue] else [] 228 | | Sig_type (id, td, _, _) -> 229 | if ... 266 | if matches self 267 | (* || List.exists (get_fields ~prefix ~sign self) 268 | ~f:(fun (_,_,ty_field) -> matches ty_field) *) 269 | then [lid_of_id id, Pclass] else [] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.module_type. File "searchid.ml", lines 273-278, characters 11-48: 273 | ...........match mode, t.desc with 274 | `Exact, _ -> [t] 275 | | `Included, Tarrow _ -> [t] 276 | | `Included, _ -> 277 | [t; newty(Tarrow(Nolabel,t,newvar(),Cok)); 278 | newty(Tarrow(Nolabel,newvar(),t,Cok))] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "searchid.ml", line 283, characters 13-20: 283 | with _, {md_type=Mty_signature sign} -> ^^^^^^^ Warning 42 [disambiguated-name]: this use of md_type relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchid.ml", line 283, characters 12-40: 283 | with _, {md_type=Mty_signature sign} -> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: md_attributes, md_loc, md_uid Either bind these labels explicitly or add '; _' to the pattern. File "searchid.ml", lines 282-286, characters 8-13: 282 | ........match Env.find_module_by_name mlid !start_env 283 | with _, {md_type=Mty_signature sign} -> 284 | List2.flat_map tl 285 | ~f:(search_type_in_signature ~sign ~prefix:[modname] ~mode) 286 | | _ -> [] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.module_type. File "searchid.ml", line 301, characters 12-17: 301 | | Error _ -> acc ^^^^^ Warning 42 [disambiguated-name]: this use of Error relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchid.ml", lines 314-317, characters 7-15: 314 | .......match sign with 315 | [ Sig_value (_, vd, _) ] -> 316 | search_all_types vd.val_type ~mode 317 | | _ -> [] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.signature_item. File "searchid.ml", line 18, characters 0-14: 18 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "searchid.ml", line 368, characters 10-17: 368 | | _, {md_type=Mty_signature sign} -> ^^^^^^^ Warning 42 [disambiguated-name]: this use of md_type relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchid.ml", line 368, characters 9-37: 368 | | _, {md_type=Mty_signature sign} -> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: md_attributes, md_loc, md_uid Either bind these labels explicitly or add '; _' to the pattern. File "searchid.ml", lines 370-387, characters 10-13: 370 | ..........begin function 371 | Sig_value (i, _, _) when check i -> [i, Pvalue] 372 | | Sig_type (i, _, _, _) when check i -> [i, Ptype] 373 | | Sig_typext (i, _, _, _) when check i -> [i, Pconstructor] 374 | | Sig_module (i, _, _, _, _) when check i -> [i, Pmodule] ... 384 | ~f:(fun (name,_,_) -> check_match ~pattern (explode name)) 385 | -> [i, Pcltype] 386 | | _ -> [] 387 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.signature_item. File "searchid.ml", lines 367-388, characters 8-13: 367 | ........match find_module_by_name (Lident modname) !start_env with 368 | | _, {md_type=Mty_signature sign} -> 369 | List2.flat_map sign ~f: 370 | begin function 371 | Sig_value (i, _, _) when check i -> [i, Pvalue] ... 385 | -> [i, Pcltype] 386 | | _ -> [] 387 | end 388 | | _ -> [] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.module_type. File "searchid.ml", lines 456-459, characters 18-21: 456 | ..................begin match x.pmb_expr.pmod_desc with 457 | Pmod_structure str -> str 458 | | _ -> [] 459 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.module_expr_desc. File "searchid.ml", lines 453-460, characters 14-24: 453 | ..............match item.pstr_desc with 454 | Pstr_module x when x.pmb_name.txt = Some modu -> 455 | loc := x.pmb_expr.pmod_loc.loc_start.Lexing.pos_cnum; 456 | begin match x.pmb_expr.pmod_desc with 457 | Pmod_structure str -> str 458 | | _ -> [] 459 | end 460 | | _ -> acc Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.structure_item_desc. File "searchid.ml", line 469, characters 22-35: 469 | begin fun {pvb_pat=pat} -> ^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: pvb_expr, pvb_attributes, pvb_loc Either bind these labels explicitly or add '; _' to the pattern. File "searchid.ml", line 470, characters 17-25: 470 | if List.mem name (bound_variables pat) ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "searchid.ml", lines 466-507, characters 9-18: 466 | .........match item.pstr_desc with 467 | Pstr_value (_, l) when kind = Pvalue -> 468 | List.iter l ~f: 469 | begin fun {pvb_pat=pat} -> 470 | if List.mem name (bound_variables pat) ... 504 | then loc := c.pci_loc.loc_start.Lexing.pos_cnum 505 | end; 506 | false 507 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.structure_item_desc. File "searchid.ml", lines 525-528, characters 18-21: 525 | ..................begin match pmd.pmd_type.pmty_desc with 526 | Pmty_signature sign -> sign 527 | | _ -> [] 528 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.module_type_desc. File "searchid.ml", lines 522-529, characters 14-24: 522 | ..............match item.psig_desc with 523 | Psig_module pmd when pmd.pmd_name.txt = Some modu -> 524 | loc := pmd.pmd_type.pmty_loc.loc_start.Lexing.pos_cnum; 525 | begin match pmd.pmd_type.pmty_desc with 526 | Pmty_signature sign -> sign 527 | | _ -> [] 528 | end 529 | | _ -> acc Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.signature_item_desc. File "searchid.ml", lines 535-569, characters 9-18: 535 | .........match item.psig_desc with 536 | Psig_value vd when kind = Pvalue -> name = vd.pval_name.txt 537 | | Psig_type (_, l) when kind = Ptype -> 538 | List.iter l ~f: 539 | begin fun td -> ... 566 | then loc := c.pci_loc.loc_start.Lexing.pos_cnum 567 | end; 568 | false 569 | | _ -> false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.signature_item_desc. File "searchid.ml", line 153, characters 14-16: 153 | let r1, r2, pairs = merge_row_fields fields1 fields2 in ^^ Warning 27 [unused-var-strict]: unused variable r2. File "searchid.ml", line 201, characters 4-10: 201 | let mkpath = function ^^^^^^ Warning 32 [unused-value-declaration]: unused value mkpath. File "searchid.ml", line 207, characters 16-22: 207 | let get_fields ~prefix ~sign self = ^^^^^^ Warning 27 [unused-var-strict]: unused variable prefix. File "searchid.ml", line 244, characters 27-30: 244 | | Type_record(l, rep) -> ^^^ Warning 27 [unused-var-strict]: unused variable rep. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs searchpos.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs searchpos.ml File "searchpos.ml", line 18, characters 0-14: 18 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "searchpos.ml", line 18, characters 0-14: 18 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "searchpos.ml", line 181, characters 12-24: 181 | let rec search_tkind = function ^^^^^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "searchpos.ml", line 207, characters 16-51: 207 | Psig_open {popen_override=ovf; popen_expr=id} -> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: popen_loc, popen_attributes Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 211, characters 10-15: 211 | | Error _ -> env ^^^^^ Warning 42 [disambiguated-name]: this use of Error relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchpos.ml", lines 206-216, characters 14-53: 206 | ..............match pt.psig_desc with 207 | Psig_open {popen_override=ovf; popen_expr=id} -> 208 | let path, mt = lookup_module ~loc:Location.none id.txt env in 209 | begin match open_signature ovf path env with 210 | Ok env -> env ... 213 | | sign_item -> 214 | try add_signature (Typemod.transl_signature env [pt]).sig_type env 215 | with Typemod.Error _ | Typeclass.Error _ 216 | | Typetexp.Error _ | Typedecl.Error _ -> env Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.signature_item_desc. File "searchpos.ml", line 234, characters 21-39: 234 | | Psig_modtype {pmtd_type=Some t} -> ^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: pmtd_name, pmtd_attributes, pmtd_loc Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 244, characters 18-34: 244 | | Psig_open {popen_expr=lid} -> ^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: popen_override, popen_loc, popen_attributes Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 246, characters 21-34: 246 | | Psig_include {pincl_mod=t} -> search_pos_module t ~pos ~env ^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: pincl_loc, pincl_attributes Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 261, characters 10-14: 261 | | Unit -> () ^^^^ Warning 42 [disambiguated-name]: this use of Unit relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchpos.ml", line 262, characters 10-15: 262 | | Named (_, m1) -> search_pos_module ~pos ~env m1 ^^^^^ Warning 42 [disambiguated-name]: this use of Named relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchpos.ml", lines 268-271, characters 10-13: 268 | ..........begin function 269 | Pwith_type (_, t) -> search_pos_type_decl t ~pos ~env 270 | | _ -> () 271 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parsetree.with_constraint. File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label mtd_type (which is later used) File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label mtd_attributes (which is later used) File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label mtd_loc (which is later used) File "searchpos.ml", line 370, characters 10-15: 370 | | Error _ -> env ^^^^^ Warning 42 [disambiguated-name]: this use of Error relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "searchpos.ml", line 379, characters 18-39: 379 | None, Some ({mw_title=Some label} as mw) when not detach -> ^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: mw_frame, mw_detach, mw_edit, mw_intf Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label md_type (which is later used) File "searchpos.ml", lines 490-496, characters 2-70: 490 | ..match scrape_alias env modtype.md_type with 491 | Mty_signature sign -> 492 | !view_defined_ref (Searchid.longident_of_path path) ~env 493 | | _ -> 494 | let id = ident_of_path path ~default:"M" in 495 | view_signature_item [Sig_module (id, Mp_present, modtype, 496 | Trec_not, Exported)] ~path ~env Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.module_type. File "searchpos.ml", line 512, characters 18-37: 512 | | Tvariant ({row_name = Some _} as row) -> ^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: row_fields, row_more, row_bound, row_closed, row_fixed Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", lines 505-518, characters 17-28: 505 | .................match (Ctype.repr ty).desc with 506 | Tobject _ -> 507 | let clt = find_cltype path env in 508 | view_signature_item ~path ~env 509 | [Sig_class_type(ident_of_path path ~default:"ct", clt, Trec_first, ... 515 | view_signature_item ~path ~env 516 | [Sig_type(ident_of_path path ~default:"t", td, Trec_first, 517 | Exported)] 518 | | _ -> raise Not_found Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label val_attributes (which is later used) File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label val_loc (which is later used) File "searchpos.ml", lines 578-584, characters 2-5: 578 | ..begin match path with 579 | Pident _ -> 580 | Menu.add_command menu ~label ~state:`Disabled 581 | | _ -> 582 | Menu.add_command menu ~label 583 | ~command:(fun () -> view_decl lid ~kind ~env); 584 | end. Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Path.t. File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier class_type (which is later used) File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier module_type (which is later used) File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label md_attributes (which is later used) File "searchpos.ml", line 24, characters 0-10: 24 | open Types ^^^^^^^^^^ Warning 45 [open-shadow-label-constructor]: this open statement shadows the label md_loc (which is later used) File "searchpos.ml", lines 662-670, characters 6-48: 662 | ......match mty with 663 | Mty_signature sign -> view_signature sign ~path ~env 664 | | modtype -> 665 | let md = 666 | {md_type = mty; md_attributes = []; md_loc = Location.none; 667 | md_uid = Uid.internal_not_actually_unique} in 668 | view_signature_item ~path ~env 669 | [Sig_module(ident_of_path path ~default:"M", Mp_present, 670 | md, Trec_not, Exported)] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.module_type. File "searchpos.ml", lines 685-691, characters 2-5: 685 | ..begin match kind with 686 | `Exp((`Expr | `Pat | `Const | `Val (Pident _)),_) -> 687 | Menu.add_command menu ~label:title ~state:`Disabled 688 | | `Exp _ | `Class _ | `Module _ -> 689 | Menu.add_command menu ~label:title 690 | ~command:(fun () -> view_type kind ~env) 691 | end. Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Path.t. File "searchpos.ml", line 719, characters 19-46: 719 | | Tvariant {row_name = Some (path, _)} -> ^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: row_fields, row_more, row_bound, row_closed, row_fixed Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", lines 715-723, characters 27-63: 715 | ...........................match (Ctype.repr ty).desc with 716 | Tconstr (path,_,_) -> 717 | Menu.add_command menu ~label ~font 718 | ~command:(fun () -> view_type_decl path ~env) 719 | | Tvariant {row_name = Some (path, _)} -> 720 | Menu.add_command menu ~label ~font 721 | ~command:(fun () -> view_type_decl path ~env) 722 | | _ -> 723 | Menu.add_command menu ~label ~font ~state:`Disabled Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "searchpos.ml", line 23, characters 0-14: 23 | open Typedtree ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier case (which is later used) File "searchpos.ml", line 748, characters 17-29: 748 | | Tstr_include {incl_mod=m} -> search_pos_module_expr m ~pos ^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: incl_type, incl_loc, incl_attributes Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 737, characters 16-40: 737 | begin fun {vb_pat=pat;vb_expr=exp} -> ^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: vb_attributes, vb_loc Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", lines 762-772, characters 25-13: 762 | .........................match cf.cf_desc with 763 | Tcf_inherit (_, cl, _, _, _) -> 764 | search_pos_class_expr cl ~pos 765 | | Tcf_val (_, _, _, Tcfk_concrete (_, exp), _) -> search_pos_expr exp ~pos 766 | | Tcf_val _ -> () ... 769 | | Tcf_constraint _ 770 | | Tcf_attribute _ 771 | | Tcf_method _ 772 | -> ()............................. Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Typedtree.class_field_kind. File "searchpos.ml", line 793, characters 20-45: 793 | begin fun {vb_pat=pat; vb_expr=exp} -> ^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: vb_attributes, vb_loc Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 848, characters 16-51: 848 | | Texp_record {fields=l; extended_expression=opt} -> ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: representation Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 827, characters 16-42: 827 | begin fun {vb_pat=pat; vb_expr=exp'} -> ^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 9 [missing-record-field-pattern]: the following labels are not bound in this record pattern: vb_attributes, vb_loc Either bind these labels explicitly or add '; _' to the pattern. File "searchpos.ml", line 18, characters 0-14: 18 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Array (which is later used) File "searchpos.ml", line 850, characters 8-78: 850 | (function (_,Overridden(_,exp)) -> search_pos_expr exp ~pos | _ -> ()); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Typedtree.record_label_definition. File "searchpos.ml", line 23, characters 0-14: 23 | open Typedtree ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier pattern (which is later used) File "searchpos.ml", line 23, characters 0-14: 23 | open Typedtree ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the type identifier module_expr (which is later used) File "searchpos.ml", lines 959-964, characters 25-11: 959 | .........................function 960 | Ti_pat (_, p) -> search_pos_pat ~pos ~env:p.pat_env p 961 | | Ti_expr e -> search_pos_expr ~pos e 962 | | Ti_class c -> search_pos_class_expr ~pos c 963 | | Ti_mod m -> search_pos_module_expr ~pos m 964 | | _ -> () Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Stypes.annotation. File "searchpos.ml", line 19, characters 0-12: 19 | open Support ^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Support. File "searchpos.ml", line 208, characters 18-20: 208 | let path, mt = lookup_module ~loc:Location.none id.txt env in ^^ Warning 27 [unused-var-strict]: unused variable mt. File "searchpos.ml", line 213, characters 6-15: 213 | | sign_item -> ^^^^^^^^^ Warning 27 [unused-var-strict]: unused variable sign_item. File "searchpos.ml", line 272, characters 18-20: 272 | | Pmty_typeof md -> ^^ Warning 27 [unused-var-strict]: unused variable md. File "searchpos.ml", line 292, characters 27-31: 292 | let set_path = ref (fun _ ~sign -> assert false) ^^^^ Warning 27 [unused-var-strict]: unused variable sign. File "searchpos.ml", line 317, characters 32-35: 317 | let view_defined_ref = ref (fun lid ~env -> ()) ^^^ Warning 27 [unused-var-strict]: unused variable lid. File "searchpos.ml", line 317, characters 37-40: 317 | let view_defined_ref = ref (fun lid ~env -> ()) ^^^ Warning 27 [unused-var-strict]: unused variable env. File "searchpos.ml", line 318, characters 27-31: 318 | let editor_ref = ref (fun ?file ?pos ?opendialog () -> ()) ^^^^ Warning 27 [unused-var-strict]: unused variable file. File "searchpos.ml", line 318, characters 33-36: 318 | let editor_ref = ref (fun ?file ?pos ?opendialog () -> ()) ^^^ Warning 27 [unused-var-strict]: unused variable pos. File "searchpos.ml", line 318, characters 38-48: 318 | let editor_ref = ref (fun ?file ?pos ?opendialog () -> ()) ^^^^^^^^^^ Warning 27 [unused-var-strict]: unused variable opendialog. File "searchpos.ml", line 377, characters 6-8: 377 | let tl, tw, finish = ^^ Warning 27 [unused-var-strict]: unused variable tl. File "searchpos.ml", line 467, characters 29-32: 467 | | ((kind, lid), env, loc) :: _ -> view_decl lid ~kind ~env ^^^ Warning 27 [unused-var-strict]: unused variable loc. File "searchpos.ml", line 478, characters 29-32: 478 | | ((kind, lid), env, loc) :: _ -> ^^^ Warning 27 [unused-var-strict]: unused variable loc. File "searchpos.ml", line 491, characters 18-22: 491 | Mty_signature sign -> ^^^^ Warning 27 [unused-var-strict]: unused variable sign. File "searchpos.ml", line 664, characters 8-15: 664 | | modtype -> ^^^^^^^ Warning 27 [unused-var-strict]: unused variable modtype. File "searchpos.ml", line 822, characters 18-19: 822 | | Texp_constant v -> ^ Warning 27 [unused-var-strict]: unused variable v. File "searchpos.ml", line 880, characters 20-22: 880 | | Texp_letmodule (id, _, _, modexp, exp) -> ^^ Warning 27 [unused-var-strict]: unused variable id. cp dummyUnix.ml dummy.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs dummy.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs shell.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs shell.ml File "shell.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "shell.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Array (which is later used) File "shell.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Bytes (which is later used) File "shell.ml", line 175, characters 12-20: 175 | let rec bindings = ^^^^^^^^ Warning 39 [unused-rec-flag]: unused rec flag. File "shell.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "shell.ml", line 304, characters 7-15: 304 | if List.mem "-w" progargs || !warnings = "Al" then [] ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "shell.ml", line 20, characters 0-10: 20 | open Jg_tk ^^^^^^^^^^ Warning 33 [unused-open]: unused open Jg_tk. echo 'let text = "\\' > help.ml sed -e 's/^ /\\032/' -e 's/$/\\n\\/' help.txt >> help.ml echo '";;' >> help.ml /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs help.ml File "help.ml", line 1, characters 14-15: | let text = "\\ ^ Warning 29 [eol-in-string]: unescaped end-of-line in a string constant (non-portable code) /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs mytypes.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs viewer.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs viewer.ml File "viewer.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "viewer.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "viewer.ml", line 42, characters 13-21: 42 | if List.mem item modules then modules else item :: modules) ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "viewer.ml", line 47, characters 17-26: 47 | module_list := List.sort (Jg_completion.compare_string ~nocase:true) ^^^^^^^^^ Warning 6 [labels-omitted]: label cmp was omitted in the application of this function. File "viewer.ml", line 59, characters 11-68: 59 | | _ -> match kind with Pvalue | Ptype | Plabel -> "z" | _ -> "Z" ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Searchid.pkind. File "viewer.ml", lines 56-59, characters 13-68: 56 | .............match id with 57 | Lident x -> x 58 | | Ldot (_, x) -> x 59 | | _ -> match kind with Pvalue | Ptype | Plabel -> "z" | _ -> "Z" Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Longident.t. File "viewer.ml", lines 68-71, characters 6-9: 68 | ......begin match ld.lbl_res.desc with 69 | Tconstr (path, _, _) -> view_type_decl path ~env 70 | | _ -> () 71 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "viewer.ml", line 80, characters 16-26: 80 | ext_args = Cstr_tuple cd.cstr_args; ^^^^^^^^^^ Warning 42 [disambiguated-name]: this use of Cstr_tuple relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "viewer.ml", lines 74-94, characters 6-9: 74 | ......begin match cd.cstr_tag, cd.cstr_res.desc with 75 | Cstr_extension _, Tconstr (cpath, args, _) -> 76 | view_signature ~title:(string_of_longident id) ~env ?path 77 | [Sig_typext (Ident.create_local name, 78 | {Types.ext_type_path = cpath; ... 91 | | _, Tconstr (cpath, _, _) -> 92 | view_type_decl cpath ~env 93 | | _ -> () 94 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.constructor_tag. File "viewer.ml", lines 74-94, characters 6-9: 74 | ......begin match cd.cstr_tag, cd.cstr_res.desc with 75 | Cstr_extension _, Tconstr (cpath, args, _) -> 76 | view_signature ~title:(string_of_longident id) ~env ?path 77 | [Sig_typext (Ident.create_local name, 78 | {Types.ext_type_path = cpath; ... 91 | | _, Tconstr (cpath, _, _) -> 92 | view_type_decl cpath ~env 93 | | _ -> () 94 | end Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.type_desc. File "viewer.ml", lines 133-139, characters 8-19: 133 | ........match path, li with 134 | None, Ldot (lip, _) -> 135 | begin try 136 | Some (fst (find_module_by_name lip env)) 137 | with Not_found -> None 138 | end 139 | | _ -> path Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Longident.t. File "viewer.ml", line 249, characters 33-40: 249 | match scrape_alias env modtype.md_type with ^^^^^^^ Warning 42 [disambiguated-name]: this use of md_type relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "viewer.ml", lines 255-258, characters 20-25: 255 | ....................match decl, rem with 256 | Sig_class _, cty :: ty1 :: ty2 :: rem -> rem 257 | | Sig_class_type _, ty1 :: ty2 :: rem -> rem 258 | | _, rem -> rem Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.signature_item. File "viewer.ml", line 265, characters 8-13: 265 | Error _ -> env ^^^^^ Warning 42 [disambiguated-name]: this use of Error relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "viewer.ml", lines 249-270, characters 2-11: 249 | ..match scrape_alias env modtype.md_type with 250 | Mty_signature sign -> 251 | let rec iter_sign sign idents = 252 | match sign with 253 | [] -> List.rev idents ... 267 | in 268 | !choose_symbol_ref l ~title ~signature:sign ~env ~path; 269 | if show_all then view_signature sign ~title ~env ~path 270 | | _ -> () Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Types.module_type. File "viewer.ml", line 308, characters 8-16: 308 | while List.mem (shell_name ()) names do ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "viewer.ml", line 313, characters 14-22: 313 | if not (List.mem (Entry.get e2) names) then begin ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "viewer.ml", lines 544-553, characters 6-11: 544 | ......match path with 545 | Path.Pdot (path', _) -> 546 | let n = self#get_box ~path:path' in 547 | shown_paths <- shown_paths @ [path]; 548 | if n + 1 >= List.length boxes then ignore self#create_box; 549 | n+1 550 | | _ -> 551 | self#hide_after 2; 552 | shown_paths <- [path]; 553 | 1 Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Path.t. File "viewer.ml", lines 557-559, characters 6-15: 557 | ......match path with 558 | Path.Pdot (path, _) -> path_elems (path::l) path 559 | | _ -> [] Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Path.t. File "viewer.ml", lines 562-564, characters 6-31: 562 | ......match path with 563 | | Path.Pident _ -> [path] 564 | | _ -> path_elems [] path Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Path.t. File "viewer.ml", lines 575-578, characters 10-29: 575 | ..........match path with 576 | Path.Pdot (p, s) -> longident_of_path p, s 577 | | Path.Pident i -> Longident.Lident "M", Ident.name i 578 | | _ -> assert false Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Path.t. File "viewer.ml", line 587, characters 8-19: 587 | Listbox.see box (`Num n); ^^^^^^^^^^^ Warning 6 [labels-omitted]: label index was omitted in the application of this function. File "viewer.ml", line 588, characters 8-24: 588 | Listbox.activate box (`Num n) ^^^^^^^^^^^^^^^^ Warning 6 [labels-omitted]: label index was omitted in the application of this function. File "viewer.ml", line 595, characters 18-26: 595 | if not (List.mem path shown_paths) then ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "viewer.ml", line 598, characters 18-30: 598 | let n = self#get_box path - 1 in ^^^^^^^^^^^^ Warning 6 [labels-omitted]: label path was omitted in the application of this function. File "viewer.ml", line 601, characters 26-38: 601 | see_path path ~box:(self#get_box path) ~sign ^^^^^^^^^^^^ Warning 6 [labels-omitted]: label path was omitted in the application of this function. File "viewer.ml", lines 626-632, characters 10-21: 626 | ..........match path, li with 627 | None, Ldot (lip, _) -> 628 | begin try 629 | Some (fst (find_module_by_name lip env)) 630 | with Not_found -> None 631 | end 632 | | _ -> path Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Longident.t. File "viewer.ml", line 20, characters 0-12: 20 | open Mytypes ^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Mytypes. File "viewer.ml", line 23, characters 0-14: 23 | open Typedtree ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Typedtree. File "viewer.ml", line 127, characters 20-25: 127 | ~action:(fun _ ~index -> destroy tl; break ()); ^^^^^ Warning 27 [unused-var-strict]: unused variable index. File "viewer.ml", line 194, characters 25-26: 194 | with Searchid.Error (s,e) -> ^ Warning 27 [unused-var-strict]: unused variable e. File "viewer.ml", line 242, characters 6-8: 242 | let tl, tw, finish = Jg_message.formatted ~title:"Error!" () in ^^ Warning 27 [unused-var-strict]: unused variable tl. File "viewer.ml", line 242, characters 10-12: 242 | let tl, tw, finish = Jg_message.formatted ~title:"Error!" () in ^^ Warning 27 [unused-var-strict]: unused variable tw. File "viewer.ml", line 256, characters 25-28: 256 | Sig_class _, cty :: ty1 :: ty2 :: rem -> rem ^^^ Warning 27 [unused-var-strict]: unused variable cty. File "viewer.ml", line 256, characters 32-35: 256 | Sig_class _, cty :: ty1 :: ty2 :: rem -> rem ^^^ Warning 27 [unused-var-strict]: unused variable ty1. File "viewer.ml", line 256, characters 39-42: 256 | Sig_class _, cty :: ty1 :: ty2 :: rem -> rem ^^^ Warning 27 [unused-var-strict]: unused variable ty2. File "viewer.ml", line 257, characters 30-33: 257 | | Sig_class_type _, ty1 :: ty2 :: rem -> rem ^^^ Warning 27 [unused-var-strict]: unused variable ty1. File "viewer.ml", line 257, characters 37-40: 257 | | Sig_class_type _, ty1 :: ty2 :: rem -> rem ^^^ Warning 27 [unused-var-strict]: unused variable ty2. File "viewer.ml", line 454, characters 23-28: 454 | let search_button ?value text = ^^^^^ Warning 27 [unused-var-strict]: unused variable value. File "viewer.ml", line 468, characters 8-13: 468 | let fmbox, mbox = self#create_box in ^^^^^ Warning 27 [unused-var-strict]: unused variable fmbox. File "viewer.ml", line 640, characters 19-21: 640 | ~action:(fun ev -> display `Active); ^^ Warning 27 [unused-var-strict]: unused variable ev. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs typecheck.mli /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs typecheck.ml File "typecheck.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "typecheck.ml", line 68, characters 22-32: 68 | end else if String.sub buffer 0 9 = String.sub ast_magic 0 9 then ^^^^^^^^^^ Warning 6 [labels-omitted]: labels pos, len were omitted in the application of this function. File "typecheck.ml", line 68, characters 46-56: 68 | end else if String.sub buffer 0 9 = String.sub ast_magic 0 9 then ^^^^^^^^^^ Warning 6 [labels-omitted]: labels pos, len were omitted in the application of this function. File "typecheck.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "typecheck.ml", line 127, characters 4-13: 127 | List.iter (binary_part iter) (Cmt_format.get_saved_types ()); ^^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "typecheck.ml", line 148, characters 19-33: 148 | | Env.Error (Missing_module (l, _, _) | Illegal_value_name (l, _) | ^^^^^^^^^^^^^^ Warning 40 [name-out-of-scope]: Missing_module was selected from type Env.error. It is not visible in the current scope, and will not be selected if the type becomes unknown. File "typecheck.ml", line 148, characters 19-33: 148 | | Env.Error (Missing_module (l, _, _) | Illegal_value_name (l, _) | ^^^^^^^^^^^^^^ Warning 42 [disambiguated-name]: this use of Missing_module relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "typecheck.ml", line 148, characters 46-64: 148 | | Env.Error (Missing_module (l, _, _) | Illegal_value_name (l, _) | ^^^^^^^^^^^^^^^^^^ Warning 40 [name-out-of-scope]: Illegal_value_name was selected from type Env.error. It is not visible in the current scope, and will not be selected if the type becomes unknown. File "typecheck.ml", line 148, characters 46-64: 148 | | Env.Error (Missing_module (l, _, _) | Illegal_value_name (l, _) | ^^^^^^^^^^^^^^^^^^ Warning 42 [disambiguated-name]: this use of Illegal_value_name relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "typecheck.ml", line 149, characters 19-31: 149 | Lookup_error (l, _, _)) -> l ^^^^^^^^^^^^ Warning 40 [name-out-of-scope]: Lookup_error was selected from type Env.error. It is not visible in the current scope, and will not be selected if the type becomes unknown. File "typecheck.ml", line 149, characters 19-31: 149 | Lookup_error (l, _, _)) -> l ^^^^^^^^^^^^ Warning 42 [disambiguated-name]: this use of Lookup_error relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "typecheck.ml", lines 140-150, characters 18-26: 140 | ..................match exn with 141 | Lexer.Error (err, l) -> l 142 | | Syntaxerr.Error err -> Syntaxerr.location_of_error err 143 | | Typecore.Error (l, env, err) -> l 144 | | Typeclass.Error (l, env, err) -> l ... 147 | | Typetexp.Error (l, env, err) -> l 148 | | Env.Error (Missing_module (l, _, _) | Illegal_value_name (l, _) | 149 | Lookup_error (l, _, _)) -> l 150 | | _ -> Location.none Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Env.error. File "typecheck.ml", line 138, characters 14-16: 138 | let et, ew, end_message = Jg_message.formatted ~title:"Error !" () in ^^ Warning 27 [unused-var-strict]: unused variable ew. File "typecheck.ml", line 141, characters 21-24: 141 | Lexer.Error (err, l) -> l ^^^ Warning 27 [unused-var-strict]: unused variable err. File "typecheck.ml", line 143, characters 27-30: 143 | | Typecore.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable env. File "typecheck.ml", line 143, characters 32-35: 143 | | Typecore.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable err. File "typecheck.ml", line 144, characters 28-31: 144 | | Typeclass.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable env. File "typecheck.ml", line 144, characters 33-36: 144 | | Typeclass.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable err. File "typecheck.ml", line 145, characters 27-30: 145 | | Typedecl.Error (l, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable err. File "typecheck.ml", line 146, characters 26-29: 146 | | Typemod.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable env. File "typecheck.ml", line 146, characters 31-34: 146 | | Typemod.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable err. File "typecheck.ml", line 147, characters 27-30: 147 | | Typetexp.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable env. File "typecheck.ml", line 147, characters 32-35: 147 | | Typetexp.Error (l, env, err) -> l ^^^ Warning 27 [unused-var-strict]: unused variable err. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs editor.mli File "editor.mli", line 17, characters 0-11: 17 | open Widget ^^^^^^^^^^^ Warning 33 [unused-open]: unused open Widget. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs editor.ml File "editor.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "editor.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier String (which is later used) File "editor.ml", lines 185-207, characters 10-16: 185 | ..........match token with 186 | CLASS | EXTERNAL | EXCEPTION | FUNCTOR 187 | | LET | MODULE | OPEN | TYPE | VAL | HASH when bol -> 188 | if !block_start = [] then 189 | if !after then pend := pos else start := pos ... 204 | | EOF -> 205 | pend := pos 206 | | _ -> 207 | () Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Parser.token. File "editor.ml", line 351, characters 11-19: 351 | List.mem ev.ev_Char.[0] ^^^^^^^^ Warning 6 [labels-omitted]: label set was omitted in the application of this function. File "editor.ml", line 403, characters 9-56: 403 | ~f:(Toplevel.configure ~cursor:(`Xcursor "watch")); ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 48 [eliminated-optional-arguments]: implicit elimination of optional arguments ?background, ?borderwidth, ?clas, ?colormap, ?container, ?height, ?highlightbackground, ?highlightcolor, ?highlightthickness, ?menu, ?relief, ?screen, ?takefocus, ?use, ?visual, ?width File "editor.ml", line 411, characters 13-55: 411 | ~f:(Toplevel.configure ~cursor:(`Xcursor "")) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 48 [eliminated-optional-arguments]: implicit elimination of optional arguments ?background, ?borderwidth, ?clas, ?colormap, ?container, ?height, ?highlightbackground, ?highlightcolor, ?highlightthickness, ?menu, ?relief, ?screen, ?takefocus, ?use, ?visual, ?width File "editor.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Bytes (which is later used) File "editor.ml", line 587, characters 50-59: 587 | file_menu#add_command "Close Window" ~command:self#quit ~underline:6; ^^^^^^^^^ Warning 48 [eliminated-optional-arguments]: implicit elimination of optional argument ?cancel File "editor.ml", line 620, characters 56-66: 620 | Env.add_module (Ident.create_local modname) Mp_present ^^^^^^^^^^ Warning 40 [name-out-of-scope]: Mp_present was selected from type Types.module_presence. It is not visible in the current scope, and will not be selected if the type becomes unknown. File "editor.ml", line 620, characters 56-66: 620 | Env.add_module (Ident.create_local modname) Mp_present ^^^^^^^^^^ Warning 42 [disambiguated-name]: this use of Mp_present relies on type-directed disambiguation, it will not compile with OCaml 4.00 or earlier. File "editor.ml", line 19, characters 0-14: 19 | open Parsetree ^^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Parsetree. File "editor.ml", line 20, characters 0-13: 20 | open Location ^^^^^^^^^^^^^ Warning 33 [unused-open]: unused open Location. File "editor.ml", line 151, characters 6-7: 151 | | l -> select_shell txt ^ Warning 27 [unused-var-strict]: unused variable l. File "editor.ml", line 221, characters 16-19: 221 | | (kind, env, loc) :: _ -> Searchpos.view_type kind ~env ^^^ Warning 27 [unused-var-strict]: unused variable loc. File "editor.ml", line 225, characters 23-26: 225 | | ((kind, lid), env, loc) :: _ -> ^^^ Warning 27 [unused-var-strict]: unused variable loc. File "editor.ml", line 238, characters 16-19: 238 | | (kind, env, loc) :: _ -> ^^^ Warning 27 [unused-var-strict]: unused variable loc. File "editor.ml", line 245, characters 23-26: 245 | | ((kind, lid), env, loc) :: _ -> ^^^ Warning 27 [unused-var-strict]: unused variable loc. File "editor.ml", line 641, characters 28-33: 641 | let editor ?file ?(pos=0) ?(reuse=false) () = ^^^^^ Warning 27 [unused-var-strict]: unused variable reuse. /usr/bin/ocamlc.opt -c -w A-3 -I ../labltk -I ../lib -I ../support -I +compiler-libs main.ml File "main.ml", line 35, characters 8-78: 35 | match c with Arg.Set _ | Arg.Clear _ | Arg.Unit _ -> false | _ -> true ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Warning 4 [fragile-match]: this pattern-matching is fragile. It will remain exhaustive when constructors are added to type Stdlib__arg.spec. File "main.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier Array (which is later used) File "main.ml", line 17, characters 0-14: 17 | open StdLabels ^^^^^^^^^^^^^^ Warning 44 [open-shadow-identifier]: this open statement shadows the module identifier List (which is later used) File "main.ml", line 64, characters 2-11: 64 | List.iter (function (key, _, doc) -> bprintf b " %s %s\n" key doc) spec; ^^^^^^^^^ Warning 6 [labels-omitted]: label f was omitted in the application of this function. File "main.ml", line 33, characters 11-12: 33 | | (k, c, d) :: rem -> ^ Warning 27 [unused-var-strict]: unused variable d. /usr/bin/ocamlc.opt -o ocamlbrowser -I ../labltk -I ../lib -I ../support -I +compiler-libs \ ocamlcommon.cma \ unix.cma str.cma labltk.cma jglib.cma \ list2.cmo useunix.cmo setpath.cmo lexical.cmo fileselect.cmo searchid.cmo searchpos.cmo dummy.cmo shell.cmo help.cmo viewer.cmo typecheck.cmo editor.cmo main.cmo make: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' + make opt make: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' cd support; make --no-print-directory opt /usr/bin/ocamlopt.opt -c support.ml /usr/bin/ocamlopt.opt -c rawwidget.ml /usr/bin/ocamlopt.opt -c widget.ml /usr/bin/ocamlopt.opt -c protocol.ml /usr/bin/ocamlopt.opt -c textvariable.ml /usr/bin/ocamlopt.opt -c timer.ml /usr/bin/ocamlopt.opt -c fileevent.ml /usr/bin/ocamlopt.opt -c camltkwrap.ml if test -f /usr/lib/ocaml/systhreads/threads.cmxa; then \ /usr/bin/ocamlopt.opt -c -I +threads -I vmthreads tkthread.ml ; \ fi cd labltk; make --no-print-directory -f Makefile.gen make[1]: Nothing to be done for 'all'. cd labltk; make --no-print-directory opt /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps tk.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps bell.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps scale.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps winfo.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps scrollbar.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps entry.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps listbox.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps wm.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps tkwait.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps grab.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps font.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps canvas.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps image.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps clipboard.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps label.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps message.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps text.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps imagephoto.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps option.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps frame.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps selection.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps dialog.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps place.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps pixmap.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps menubutton.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps radiobutton.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps focus.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps pack.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps imagebitmap.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps encoding.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps optionmenu.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps checkbutton.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps tkvars.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps palette.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps menu.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps button.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps toplevel.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps grid.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps labltk.ml cd camltk; make --no-print-directory -f Makefile.gen make[1]: Nothing to be done for 'all'. cd camltk; make --no-print-directory opt /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cTk.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cBell.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cScale.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cWinfo.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cScrollbar.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cEntry.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cListbox.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cWm.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cTkwait.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cGrab.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cFont.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cCanvas.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cImage.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cClipboard.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cLabel.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cResource.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cMessage.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cText.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cImagephoto.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cOption.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cFrame.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cSelection.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cDialog.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cPlace.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cPixmap.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cMenubutton.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cRadiobutton.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cFocus.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cPack.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cImagebitmap.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cEncoding.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cOptionmenu.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cCheckbutton.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cTkvars.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cPalette.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cMenu.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cButton.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cToplevel.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps cGrid.ml /usr/bin/ocamlopt.opt -c -I ../support -no-alias-deps camltk.ml cd lib; make --no-print-directory opt make --no-print-directory superclean if test -f tk.cmo; then \ echo We have changes... Now lib directory has no .cmo files; \ rm -f *.cm* *.o; \ fi cd ../labltk; make --no-print-directory opt make[2]: Nothing to be done for 'opt'. cd ../camltk; make --no-print-directory opt make[2]: Nothing to be done for 'opt'. /usr/bin/ocamlmklib -ocamlopt '/usr/bin/ocamlopt' -o labltk -oc labltk \ -I ../labltk -I ../camltk ../support/support.cmx ../support/rawwidget.cmx ../support/widget.cmx ../support/protocol.cmx ../support/textvariable.cmx ../support/timer.cmx ../support/fileevent.cmx ../support/camltkwrap.cmx tk.cmx bell.cmx scale.cmx winfo.cmx scrollbar.cmx entry.cmx listbox.cmx wm.cmx tkwait.cmx grab.cmx font.cmx canvas.cmx image.cmx clipboard.cmx label.cmx message.cmx text.cmx imagephoto.cmx option.cmx frame.cmx selection.cmx dialog.cmx place.cmx pixmap.cmx menubutton.cmx radiobutton.cmx focus.cmx pack.cmx imagebitmap.cmx encoding.cmx optionmenu.cmx checkbutton.cmx tkvars.cmx palette.cmx menu.cmx button.cmx toplevel.cmx grid.cmx cTk.cmx cBell.cmx cScale.cmx cWinfo.cmx cScrollbar.cmx cEntry.cmx cListbox.cmx cWm.cmx cTkwait.cmx cGrab.cmx cFont.cmx cCanvas.cmx cImage.cmx cClipboard.cmx cLabel.cmx cResource.cmx cMessage.cmx cText.cmx cImagephoto.cmx cOption.cmx cFrame.cmx cSelection.cmx cDialog.cmx cPlace.cmx cPixmap.cmx cMenubutton.cmx cRadiobutton.cmx cFocus.cmx cPack.cmx cImagebitmap.cmx cEncoding.cmx cOptionmenu.cmx cCheckbutton.cmx cTkvars.cmx cPalette.cmx cMenu.cmx cButton.cmx cToplevel.cmx cGrid.cmx labltk.cmx camltk.cmx \ -cclib "\"-ltk8.6 -ltcl8.6 \"" cd jpf; make --no-print-directory opt /usr/bin/ocamlopt.opt -c -I ../labltk -I ../support fileselect.ml /usr/bin/ocamlopt.opt -c -I ../labltk -I ../support balloon.ml /usr/bin/ocamlopt.opt -c -I ../labltk -I ../support shell.ml /usr/bin/ocamlopt.opt -c -I ../labltk -I ../support jpf_font.ml /usr/bin/ocamlopt.opt -a -o jpflib.cmxa fileselect.cmx balloon.cmx shell.cmx jpf_font.cmx cd frx; make --no-print-directory opt /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_misc.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_widget.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_font.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_entry.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_text.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_listbox.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_req.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_fillbox.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_focus.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_dialog.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_mem.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_rpc.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_synth.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_selection.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_after.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_fit.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_ctext.ml /usr/bin/ocamlopt.opt -c -I ../camltk -I ../support frx_color.ml /usr/bin/ocamlopt.opt -a -o frxlib.cmxa frx_misc.cmx frx_widget.cmx frx_font.cmx frx_entry.cmx frx_text.cmx frx_listbox.cmx frx_req.cmx frx_fillbox.cmx frx_focus.cmx frx_dialog.cmx frx_mem.cmx frx_rpc.cmx frx_synth.cmx frx_selection.cmx frx_after.cmx frx_fit.cmx frx_ctext.cmx frx_color.cmx make: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' + exit 0 Executing(%install): /bin/sh -e /usr/src/tmp/rpm-tmp.51958 + umask 022 + /bin/mkdir -p /usr/src/RPM/BUILD + cd /usr/src/RPM/BUILD + /bin/chmod -Rf u+rwX -- /usr/src/tmp/ocaml-labltk-buildroot + : + /bin/rm -rf -- /usr/src/tmp/ocaml-labltk-buildroot + PATH=/usr/libexec/rpm-build:/usr/src/bin:/bin:/usr/bin:/usr/X11R6/bin:/usr/games + cd ocaml-labltk-8.06.10 + mkdir -p /usr/src/tmp/ocaml-labltk-buildroot/usr/bin + mkdir -p /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk + mkdir -p /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/stublibs + make install BINDIR=/usr/src/tmp/ocaml-labltk-buildroot/usr/bin INSTALLDIR=/usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk STUBLIBDIR=/usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/stublibs make: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' cd support; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/support' if test -d /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; then : ; else mkdir /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; fi cp fileevent.mli protocol.mli textvariable.mli timer.mli rawwidget.mli widget.mli fileevent.cmi protocol.cmi textvariable.cmi timer.cmi rawwidget.cmi widget.cmi tkthread.mli tkthread.cmi tkthread.cmo camltkwrap.cmi liblabltk.a /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk cd /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; ranlib liblabltk.a cd /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; chmod 644 fileevent.mli protocol.mli textvariable.mli timer.mli rawwidget.mli widget.mli fileevent.cmi protocol.cmi textvariable.cmi timer.cmi rawwidget.cmi widget.cmi tkthread.mli tkthread.cmi tkthread.cmo camltkwrap.cmi liblabltk.a if test -f dlllabltk.so; then \ cp dlllabltk.so /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/stublibs/; fi make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/support' cd lib; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/lib' if test -d /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; then : ; else mkdir /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; fi cp labltk.cma labltktop /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/labltk.cma chmod 755 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/labltktop make[2]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/lib' cp labltk /usr/src/tmp/ocaml-labltk-buildroot/usr/bin chmod 755 /usr/src/tmp/ocaml-labltk-buildroot/usr/bin/labltk make[2]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/lib' make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/lib' cd labltk; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/labltk' if test -d /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; then : ; else mkdir /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; fi cp bell.cmi scale.cmi winfo.cmi scrollbar.cmi entry.cmi listbox.cmi wm.cmi tkwait.cmi grab.cmi font.cmi canvas.cmi image.cmi clipboard.cmi label.cmi message.cmi text.cmi imagephoto.cmi option.cmi frame.cmi selection.cmi dialog.cmi place.cmi pixmap.cmi menubutton.cmi radiobutton.cmi focus.cmi pack.cmi imagebitmap.cmi encoding.cmi optionmenu.cmi checkbutton.cmi tkvars.cmi palette.cmi menu.cmi button.cmi toplevel.cmi grid.cmi tk.cmi labltk.cmi bell.mli scale.mli winfo.mli scrollbar.mli entry.mli listbox.mli wm.mli tkwait.mli grab.mli font.mli canvas.mli image.mli clipboard.mli label.mli message.mli text.mli imagephoto.mli option.mli frame.mli selection.mli dialog.mli place.mli pixmap.mli menubutton.mli radiobutton.mli focus.mli pack.mli imagebitmap.mli encoding.mli optionmenu.mli checkbutton.mli tkvars.mli palette.mli menu.mli button.mli toplevel.mli grid.mli /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/*.cmi make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/labltk' cd camltk; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/camltk' if test -d /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; then : ; else mkdir /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; fi cp cBell.cmi cScale.cmi cWinfo.cmi cScrollbar.cmi cEntry.cmi cListbox.cmi cWm.cmi cTkwait.cmi cGrab.cmi cFont.cmi cCanvas.cmi cImage.cmi cClipboard.cmi cLabel.cmi cResource.cmi cMessage.cmi cText.cmi cImagephoto.cmi cOption.cmi cFrame.cmi cSelection.cmi cDialog.cmi cPlace.cmi cPixmap.cmi cMenubutton.cmi cRadiobutton.cmi cFocus.cmi cPack.cmi cImagebitmap.cmi cEncoding.cmi cOptionmenu.cmi cCheckbutton.cmi cTkvars.cmi cPalette.cmi cMenu.cmi cButton.cmi cToplevel.cmi cGrid.cmi cTk.cmi camltk.cmi /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk cp cBell.mli cScale.mli cWinfo.mli cScrollbar.mli cEntry.mli cListbox.mli cWm.mli cTkwait.mli cGrab.mli cFont.mli cCanvas.mli cImage.mli cClipboard.mli cLabel.mli cResource.mli cMessage.mli cText.mli cImagephoto.mli cOption.mli cFrame.mli cSelection.mli cDialog.mli cPlace.mli cPixmap.mli cMenubutton.mli cRadiobutton.mli cFocus.mli cPack.mli cImagebitmap.mli cEncoding.mli cOptionmenu.mli cCheckbutton.mli cTkvars.mli cPalette.mli cMenu.mli cButton.mli cToplevel.mli cGrid.mli /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/*.cmi make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/camltk' cd compiler; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/compiler' cp tkcompiler /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk cp pp /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/compiler' cd jpf; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/jpf' cp fileselect.cmi balloon.cmi shell.cmi jpf_font.cmi fileselect.mli balloon.mli shell.mli jpf_font.mli jpflib.cma /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/jpf' cd frx; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/frx' cp *.cmi *.mli frxlib.cma /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/frx' cd browser; make install make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/browser' if test -f ocamlbrowser; then \ cp ocamlbrowser /usr/src/tmp/ocaml-labltk-buildroot/usr/bin; fi make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/browser' if test -f lib/labltk.cmxa; then make installopt; else :; fi make[1]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' cd support; make installopt make[2]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/support' cp fileevent.cmx protocol.cmx textvariable.cmx timer.cmx rawwidget.cmx widget.cmx camltkwrap.cmx /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk if test -f tkthread.o; then \ cp tkthread.cmx tkthread.o /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; \ chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/tkthread.cmx /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/tkthread.o; \ fi make[2]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/support' cd lib; make installopt make[2]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/lib' cp labltk.cmxa labltk.a /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk cd /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; ranlib labltk.a chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/labltk.cmxa chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/labltk.a make[2]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/lib' cd labltk; make installopt make[2]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/labltk' cp bell.cmx scale.cmx winfo.cmx scrollbar.cmx entry.cmx listbox.cmx wm.cmx tkwait.cmx grab.cmx font.cmx canvas.cmx image.cmx clipboard.cmx label.cmx message.cmx text.cmx imagephoto.cmx option.cmx frame.cmx selection.cmx dialog.cmx place.cmx pixmap.cmx menubutton.cmx radiobutton.cmx focus.cmx pack.cmx imagebitmap.cmx encoding.cmx optionmenu.cmx checkbutton.cmx tkvars.cmx palette.cmx menu.cmx button.cmx toplevel.cmx grid.cmx tk.cmx labltk.cmx /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/*.cmx make[2]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/labltk' cd camltk; make installopt make[2]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/camltk' cp cBell.cmx cScale.cmx cWinfo.cmx cScrollbar.cmx cEntry.cmx cListbox.cmx cWm.cmx cTkwait.cmx cGrab.cmx cFont.cmx cCanvas.cmx cImage.cmx cClipboard.cmx cLabel.cmx cResource.cmx cMessage.cmx cText.cmx cImagephoto.cmx cOption.cmx cFrame.cmx cSelection.cmx cDialog.cmx cPlace.cmx cPixmap.cmx cMenubutton.cmx cRadiobutton.cmx cFocus.cmx cPack.cmx cImagebitmap.cmx cEncoding.cmx cOptionmenu.cmx cCheckbutton.cmx cTkvars.cmx cPalette.cmx cMenu.cmx cButton.cmx cToplevel.cmx cGrid.cmx cTk.cmx camltk.cmx /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk chmod 644 /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk/*.cmx make[2]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/camltk' cd jpf; make installopt make[2]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/jpf' cp jpflib.cmxa jpflib.a fileselect.cmx balloon.cmx shell.cmx jpf_font.cmx /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk cd /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; ranlib jpflib.a make[2]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/jpf' cd frx; make installopt make[2]: Entering directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/frx' cp frxlib.cmxa frxlib.a *.cmx /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk cd /usr/src/tmp/ocaml-labltk-buildroot/usr/lib/ocaml/labltk; ranlib frxlib.a make[2]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10/frx' make[1]: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' make: Leaving directory '/usr/src/RPM/BUILD/ocaml-labltk-8.06.10' + /usr/lib/rpm/brp-alt Cleaning files in /usr/src/tmp/ocaml-labltk-buildroot (auto) mode of './usr/lib/ocaml/stublibs/dlllabltk.so' changed from 0755 (rwxr-xr-x) to 0644 (rw-r--r--) Verifying and fixing files in /usr/src/tmp/ocaml-labltk-buildroot (binconfig,pkgconfig,libtool,desktop,gnuconfig) Checking contents of files in /usr/src/tmp/ocaml-labltk-buildroot/ (default) Compressing files in /usr/src/tmp/ocaml-labltk-buildroot (auto) Adjusting library links in /usr/src/tmp/ocaml-labltk-buildroot ./usr/lib: (from :0) /usr/bin/strip: ./usr/lib/ocaml/labltk/stq6wiwg/cltkCaml.o: plugin needed to handle lto object process-lto: ERROR: ./usr/lib/ocaml/labltk/liblabltk.a: contains __gnu_lto_slim only. 061-brp-strip-lto.brp: Most likely this file contains GIMPLE bytecode that should NOT be packaged 061-brp-strip-lto.brp: since its format can change between GCC versions. 061-brp-strip-lto.brp: Use -ffat-lto-objects option to package machine code in static libraries, e.g. 061-brp-strip-lto.brp: %{?optflags_lto:%global optflags_lto %optflags_lto -ffat-lto-objects} 061-brp-strip-lto.brp: Alternatively, you might want to stop packaging static libraries 061-brp-strip-lto.brp: or disable link-time optimization for this package. error: Bad exit status from /usr/src/tmp/rpm-tmp.51958 (%install) RPM build errors: Bad exit status from /usr/src/tmp/rpm-tmp.51958 (%install) Command exited with non-zero status 1 9.63user 2.64system 0:12.24elapsed 100%CPU (0avgtext+0avgdata 25704maxresident)k 0inputs+0outputs (0major+1044249minor)pagefaults 0swaps hsh-rebuild: rebuild of `ocaml-labltk-8.06.10-alt1.src.rpm' failed. Command exited with non-zero status 1 25.95user 5.38system 0:37.57elapsed 83%CPU (0avgtext+0avgdata 101400maxresident)k 3064inputs+0outputs (0major+1286620minor)pagefaults 0swaps