24683216 ocaml fails to build with studio 12.5
24683711 expect fails to build with studio 12.5
24683715 tk fails to build with studio 12.5
--- a/components/ocaml/Makefile Wed Oct 26 11:31:56 2016 +0200
+++ b/components/ocaml/Makefile Thu Oct 27 10:42:36 2016 -0700
@@ -65,7 +65,7 @@
CONFIGURE_OPTIONS += --x11lib $(CONFIGURE_LIBDIR.$(BITS))
CONFIGURE_OPTIONS += --x11include $(CONFIGURE_INCLUDEDIR)
CONFIGURE_OPTIONS += --mandir $(CONFIGURE_MANDIR)
-CONFIGURE_OPTIONS += -cc cc
+CONFIGURE_OPTIONS += -cc "cc $(CC_BITS)"
CONFIGURE_OPTIONS += -aspp "/usr/bin/as -P"
CONFIGURE_OPTIONS += -as "/usr/bin/as"
--- a/components/tcl/expect/Makefile Wed Oct 26 11:31:56 2016 +0200
+++ b/components/tcl/expect/Makefile Thu Oct 27 10:42:36 2016 -0700
@@ -55,10 +55,15 @@
CONFIGURE_OPTIONS.64 += -enable-64bit
CONFIGURE_OPTIONS.sparc.64 += --enable-64bit-vis
+CC += $(CC_BITS)
+
COMPONENT_TEST_MASTER = $(COMPONENT_TEST_RESULTS_DIR)/results-all.master
COMPONENT_TEST_TARGETS = test
COMPONENT_TEST_TRANSFORMS += \
'-e "s|$(WS_TOP)|\\$$(WS_TOP)|g"' \
+ '-e "/Nothing to be done/d"' \
+ '-e "/Leaving directory/d"' \
+ '-e "/Entering directory/d"' \
'-e "s|tcl/build/$(MACH$(BITS))|\\$$(TCLBUILD)|g"'
# special targets due to tcl internals dependencies
--- a/components/tcl/expect/test/results-all.master Wed Oct 26 11:31:56 2016 +0200
+++ b/components/tcl/expect/test/results-all.master Thu Oct 27 10:42:36 2016 -0700
@@ -1,4 +1,3 @@
-make[1]: Entering directory `$(@D)'
(echo 'if {![package vsatisfies [package provide Tcl] 8.5]} {return}' ; \
echo 'package ifneeded Expect 5.45 \
[list load [file join $dir libexpect5.45.so]]'\
@@ -9,47 +8,7 @@
logfile.test
via sendvia send_uservia send_stdoutpid.test
send.test
-
-
-==== send-1.1 basic send operation FAILED
-==== Contents of test case:
-
- spawn cat
- after 1000
- send "foo\r"
- expect foo
- after 1000
- send "\u0004"
- expect eof
- regexp "\r\nfoo\r\n" $expect_out(buffer)
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== send-1.1 FAILED
-
-
-
-==== send-1.2 send null FAILED
-==== Contents of test case:
-
- spawn od -c
- send "a\u0000b\r"
- after 1000
- send \u0004
- expect eof
- regexp "a \\\\0 b" $expect_out(buffer)
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== send-1.2 FAILED
-
spawn.test
stty.test
-all.tcl: Total 29 Passed 27 Skipped 0 Failed 2
+all.tcl: Total 29 Passed 29 Skipped 0 Failed 0
Sourced 0 Test Files.
-Files with failing tests: send.test
-make[1]: Leaving directory `$(@D)'
--- a/components/tcl/tk/Makefile Wed Oct 26 11:31:56 2016 +0200
+++ b/components/tcl/tk/Makefile Thu Oct 27 10:42:36 2016 -0700
@@ -49,6 +49,8 @@
CFLAGS.studio += -xstrconst $(XPG6MODE) $(studio_C99_ENABLE)
+CC += $(CC_BITS)
+
CONFIGURE_OPTIONS += --enable-shared
CONFIGURE_OPTIONS += --enable-man-symlinks
CONFIGURE_OPTIONS += --enable-threads
@@ -62,6 +64,10 @@
'-e "s|^.*tcl/build/$(MACH$(BITS)).*$$|XXX_CC_XXX|g"' \
'-e "s|^cc: Warning: -xarch=v9 is deprecated.*$$|XXX_CC_XXX|g"' \
'-e "s|^cc: Warning: illegal use of -x.* option, .*$$|XXX_CC_XXX|g"' \
+ '-e "/Nothing to be done/d"' \
+ '-e "/Leaving directory/d"' \
+ '-e "/Entering directory/d"' \
+ '-e "/tk.*Init.o/d"' \
'-e "/^XXX_CC_XXX$$/d"' \
'-e "/^Tests began at .*$$/d"' \
'-e "/^Tests ended at .*$$/d"'
--- a/components/tcl/tk/test/results-32.master Wed Oct 26 11:31:56 2016 +0200
+++ b/components/tcl/tk/test/results-32.master Thu Oct 27 10:42:36 2016 -0700
@@ -1,8 +1,3 @@
-make[1]: Entering directory `$(@D)'
-rm -f tkTestInit.o
-mv tkAppInit.o tkTestInit.o
-make[2]: Entering directory `$(@D)'
-make[2]: Leaving directory `$(@D)'
Tests running in interp: $(@D)/tktest
Tests located in: $(SOURCE_DIR)/tests
Tests running in: $(@D)
@@ -98,7 +93,7 @@
font actual {times -12} -size
---- Result was:
--12
+-2147483648
---- Result should have been (exact matching):
24
==== font-44.1 FAILED
@@ -225,77 +220,6 @@
0.505376 0.72043
==== spinbox-3.70 FAILED
-
-
-==== spinbox-21.1 spinbox button, out of range checking FAILED
-==== Contents of test case:
-
- destroy .e
- spinbox .e -from -10 -to 20 -increment 2
- set out {}
- lappend out [.e get]; # -10
- .e delete 0 end
- .e insert 0 25; # set outside of range
- .e invoke buttondown; # should constrain
- lappend out [.e get]; # 20
- .e delete 0 end
- .e insert 0 25; # set outside of range
- .e invoke buttonup; # should constrain
- lappend out [.e get]; # 20
- .e delete 0 end
- .e insert 0 -100; # set outside of range
- .e invoke buttonup; # should constrain
- lappend out [.e get]; # -10
- .e delete 0 end
- .e insert 0 -100; # set outside of range
- .e invoke buttondown; # should constrain
- lappend out [.e get]; # -10
- .e delete 0 end
- .e insert 0 bogus; # set to a bogus value
- .e invoke buttondown; # should use fromValue
- lappend out [.e get]; # -10
- .e delete 0 end
- .e insert 0 19; # set just inside of range
- .e invoke buttonup; # no wrap
- lappend out [.e get]; # 20
- .e invoke buttonup; # no wrap
- lappend out [.e get]; # 20
- .e invoke buttondown
- lappend out [.e get]; # 18
- .e delete 0 end
- .e insert 0 -9; # set just inside of range
- .e invoke buttondown; # no wrap
- lappend out [.e get]; # -10
- .e invoke buttondown; # no wrap
- lappend out [.e get]; # -10
- .e invoke buttonup; # no wrap
- lappend out [.e get]; # -8
-
- .e configure -wrap 1
- .e delete 0 end
- .e insert 0 19; # set just inside of range
- .e invoke buttonup; # wrap
- lappend out [.e get]; # -10
- .e invoke buttonup
- lappend out [.e get]; # -8
- .e invoke buttondown
- lappend out [.e get]; # -10
- .e delete 0 end
- .e insert 0 -9; # set just inside of range
- .e invoke buttondown; # wrap
- lappend out [.e get]; # 20
- .e invoke buttondown
- lappend out [.e get]; # 18
- .e invoke buttonup; # no wrap
- lappend out [.e get]; # 20
-
-
----- Result was:
-0 20 20 -10 -10 -10 20 20 18 -10 -10 -8 -10 -8 -10 20 18 20
----- Result should have been (exact matching):
--10 20 20 -10 -10 -10 20 20 18 -10 -10 -8 -10 -8 -10 20 18 20
-==== spinbox-21.1 FAILED
-
text.test
textBTree.test
textDisp.test
@@ -420,6 +344,56 @@
x-up up up y-up up
==== textTag-15.1 FAILED
+
+
+==== textTag-16.2 TkTextPickCurrent procedure FAILED
+==== Contents of test case:
+
+ event gen .t <ButtonRelease-1> -state 0x100 -x $x1 -y $y1
+ event gen .t <Motion> -x $x2 -y $y2
+ set x [.t index current]
+ .t tag add big 3.0
+ update
+ lappend x [.t index current]
+
+---- Result was:
+3.2 2.2
+---- Result should have been (exact matching):
+3.2 3.1
+==== textTag-16.2 FAILED
+
+
+
+==== textTag-18.1 TkTextPickCurrent tag bindings FAILED
+==== Contents of test case:
+
+ text .t -width 30 -height 4 -relief sunken -borderwidth 10 -highlightthickness 10 -pady 2
+ pack .t
+
+ .t insert end " Tag here " TAG " no tag here"
+ .t tag configure TAG -borderwidth 4 -relief raised
+ .t tag bind TAG <Enter> {lappend res "%x %y tag-Enter"}
+ .t tag bind TAG <Leave> {lappend res "%x %y tag-Leave"}
+ bind .t <Enter> {lappend res Enter}
+ bind .t <Leave> {lappend res Leave}
+
+ set res {}
+ # Bindings must not trigger on the widget border, only over
+ # the actual tagged characters themselves.
+ event gen .t <Motion> -warp 1 -x 0 -y 0 ; update
+ event gen .t <Motion> -warp 1 -x 10 -y 10 ; update
+ event gen .t <Motion> -warp 1 -x 25 -y 25 ; update
+ event gen .t <Motion> -warp 1 -x 20 -y 20 ; update
+ event gen .t <Motion> -warp 1 -x 10 -y 10 ; update
+ event gen .t <Motion> -warp 1 -x 25 -y 25 ; update
+ set res
+
+---- Result was:
+{25 25 tag-Enter} Enter {10 10 tag-Leave} {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
+---- Result should have been (exact matching):
+Enter {25 25 tag-Enter} {20 20 tag-Leave} {25 25 tag-Enter}
+==== textTag-18.1 FAILED
+
textWind.test
@@ -449,6 +423,38 @@
tk.test
unixButton.test
unixEmbed.test
+
+
+==== unixEmbed-9.2 EmbedWindowDeleted procedure, check embeddedPtr FAILED
+==== Contents of test case:
+
+ deleteWindows
+ frame .f1 -container 1 -width 200 -height 50
+ pack .f1
+ dobg "set w1 [winfo id .f1]"
+ dobg {
+ eval destroy [winfo child .]
+ toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken
+ set x {}
+ lappend x [testembed]
+ destroy .t1
+ lappend x [testembed]
+ }
+
+---- Test generated error; Return code was: 1
+---- Return code should have been one of: 0 2
+---- errorInfo: error flushing "file9": broken pipe
+ while executing
+"flush $fd"
+ (procedure "dobg" line 9)
+ invoked from within
+"dobg "set w1 [winfo id .f1]""
+ ("uplevel" body line 5)
+ invoked from within
+"uplevel 1 $script"
+---- errorCode: POSIX EPIPE {broken pipe}
+==== unixEmbed-9.2 FAILED
+
unixFont.test
@@ -530,26 +536,13 @@
set x
---- Result was:
-33
+29
---- Result should have been (exact matching):
78
==== unixfont-8.4 FAILED
-==== unixfont-8.5 AllocFont procedure: setup widths of normal chars FAILED
-==== Contents of test case:
-
- font metrics $courier -fixed
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== unixfont-8.5 FAILED
-
-
-
==== unixfont-8.6 AllocFont procedure: setup widths of special chars FAILED
==== Contents of test case:
@@ -560,7 +553,7 @@
set x
---- Result was:
-29
+21
---- Result should have been (exact matching):
60
==== unixfont-8.6 FAILED
@@ -600,7 +593,7 @@
lappend x [.b.c index $t @[expr $ax*5],0]
---- Result was:
-0 1 1 3 3 3
+0 1 2 3 3 3
---- Result should have been (exact matching):
0 1 1 1 1 2
==== unixfont-9.2 FAILED
@@ -610,6 +603,24 @@
unixWm.test
+==== unixWm-4.3 moving window while withdrawn FAILED
+==== Contents of test case:
+
+ wm withdraw .t
+ sleep 200
+ wm geom .t $geom
+ update
+ wm deiconify .t
+ wm geom .t
+
+---- Result was:
+100x150+0+29
+---- Result should have been (exact matching):
+100x150+0+0
+==== unixWm-4.3 FAILED
+
+
+
==== unixWm-45.2 UpdateSizeHints procedure FAILED
==== Contents of test case:
@@ -816,9 +827,9 @@
xmfbox.test
-all.tcl: Total 9101 Passed 7910 Skipped 1155 Failed 36
+all.tcl: Total 8865 Passed 7908 Skipped 919 Failed 38
Sourced 87 Test Files.
-Files with failing tests: focus.test font.test scrollbar.test spinbox.test textDisp.test textImage.test textTag.test textWind.test unixFont.test unixWm.test wm.test
+Files with failing tests: focus.test font.test scrollbar.test spinbox.test textDisp.test textImage.test textTag.test textWind.test unixEmbed.test unixFont.test unixWm.test wm.test
Number of tests skipped for each constraint:
14 altDisplay
1 aqua
@@ -833,7 +844,7 @@
1 havePseudocolorVisual
6 knownBug
1 memory
- 378 nonPortable
+ 142 nonPortable
33 nt
5 pseudocolor8
11 testmetrics
@@ -864,37 +875,17 @@
radiobutton.test
scrollbar.test
spinbox.test
-
-
-==== spinbox-1.8.4 -validate option: FAILED
-==== Contents of test case:
-
- .sb configure -validate all -validatecommand {lappend ::spinbox_test %P}
- pack .sb
- .sb set 50
- focus .sb
- after 100 {set ::spinbox_wait 1} ; vwait ::spinbox_wait
- set ::spinbox_test
-
----- Result was:
-
----- Result should have been (exact matching):
-50
-==== spinbox-1.8.4 FAILED
-
treetags.test
treeview.test
ttk.test
validate.test
vsapi.test
-all.tcl: Total 457 Passed 439 Skipped 17 Failed 1
+all.tcl: Total 457 Passed 440 Skipped 17 Failed 0
Sourced 17 Test Files.
-Files with failing tests: spinbox.test
Number of tests skipped for each constraint:
2 NA
4 coreEntry
3 coreScrollbar
5 nyi
3 xpnative
-make[1]: Leaving directory `$(@D)'
--- a/components/tcl/tk/test/results-64.master Wed Oct 26 11:31:56 2016 +0200
+++ b/components/tcl/tk/test/results-64.master Thu Oct 27 10:42:36 2016 -0700
@@ -1,8 +1,3 @@
-make[1]: Entering directory `$(@D)'
-rm -f tkTestInit.o
-mv tkAppInit.o tkTestInit.o
-make[2]: Entering directory `$(@D)'
-make[2]: Leaving directory `$(@D)'
Tests running in interp: $(@D)/tktest
Tests located in: $(SOURCE_DIR)/tests
Tests running in: $(@D)
@@ -98,7 +93,7 @@
font actual {times -12} -size
---- Result was:
--12
+0
---- Result should have been (exact matching):
24
==== font-44.1 FAILED
@@ -499,6 +494,38 @@
tk.test
unixButton.test
unixEmbed.test
+
+
+==== unixEmbed-9.2 EmbedWindowDeleted procedure, check embeddedPtr FAILED
+==== Contents of test case:
+
+ deleteWindows
+ frame .f1 -container 1 -width 200 -height 50
+ pack .f1
+ dobg "set w1 [winfo id .f1]"
+ dobg {
+ eval destroy [winfo child .]
+ toplevel .t1 -use $w1 -highlightthickness 2 -bd 2 -relief sunken
+ set x {}
+ lappend x [testembed]
+ destroy .t1
+ lappend x [testembed]
+ }
+
+---- Test generated error; Return code was: 1
+---- Return code should have been one of: 0 2
+---- errorInfo: error flushing "file9": broken pipe
+ while executing
+"flush $fd"
+ (procedure "dobg" line 9)
+ invoked from within
+"dobg "set w1 [winfo id .f1]""
+ ("uplevel" body line 5)
+ invoked from within
+"uplevel 1 $script"
+---- errorCode: POSIX EPIPE {broken pipe}
+==== unixEmbed-9.2 FAILED
+
unixFont.test
@@ -580,26 +607,13 @@
set x
---- Result was:
-33
+29
---- Result should have been (exact matching):
78
==== unixfont-8.4 FAILED
-==== unixfont-8.5 AllocFont procedure: setup widths of normal chars FAILED
-==== Contents of test case:
-
- font metrics $courier -fixed
-
----- Result was:
-0
----- Result should have been (exact matching):
-1
-==== unixfont-8.5 FAILED
-
-
-
==== unixfont-8.6 AllocFont procedure: setup widths of special chars FAILED
==== Contents of test case:
@@ -610,7 +624,7 @@
set x
---- Result was:
-29
+21
---- Result should have been (exact matching):
60
==== unixfont-8.6 FAILED
@@ -650,7 +664,7 @@
lappend x [.b.c index $t @[expr $ax*5],0]
---- Result was:
-0 1 1 3 3 3
+0 1 2 3 3 3
---- Result should have been (exact matching):
0 1 1 1 1 2
==== unixfont-9.2 FAILED
@@ -660,6 +674,24 @@
unixWm.test
+==== unixWm-4.3 moving window while withdrawn FAILED
+==== Contents of test case:
+
+ wm withdraw .t
+ sleep 200
+ wm geom .t $geom
+ update
+ wm deiconify .t
+ wm geom .t
+
+---- Result was:
+100x150+0+29
+---- Result should have been (exact matching):
+100x150+0+0
+==== unixWm-4.3 FAILED
+
+
+
==== unixWm-45.2 UpdateSizeHints procedure FAILED
==== Contents of test case:
@@ -866,9 +898,9 @@
xmfbox.test
-all.tcl: Total 9101 Passed 7908 Skipped 1155 Failed 38
+all.tcl: Total 8865 Passed 7907 Skipped 919 Failed 39
Sourced 87 Test Files.
-Files with failing tests: focus.test font.test scrollbar.test spinbox.test textDisp.test textImage.test textTag.test textWind.test unixFont.test unixWm.test wm.test
+Files with failing tests: focus.test font.test scrollbar.test spinbox.test textDisp.test textImage.test textTag.test textWind.test unixEmbed.test unixFont.test unixWm.test wm.test
Number of tests skipped for each constraint:
14 altDisplay
1 aqua
@@ -883,7 +915,7 @@
1 havePseudocolorVisual
6 knownBug
1 memory
- 378 nonPortable
+ 142 nonPortable
33 nt
5 pseudocolor8
11 testmetrics
@@ -914,37 +946,17 @@
radiobutton.test
scrollbar.test
spinbox.test
-
-
-==== spinbox-1.8.4 -validate option: FAILED
-==== Contents of test case:
-
- .sb configure -validate all -validatecommand {lappend ::spinbox_test %P}
- pack .sb
- .sb set 50
- focus .sb
- after 100 {set ::spinbox_wait 1} ; vwait ::spinbox_wait
- set ::spinbox_test
-
----- Result was:
-
----- Result should have been (exact matching):
-50
-==== spinbox-1.8.4 FAILED
-
treetags.test
treeview.test
ttk.test
validate.test
vsapi.test
-all.tcl: Total 457 Passed 439 Skipped 17 Failed 1
+all.tcl: Total 457 Passed 440 Skipped 17 Failed 0
Sourced 17 Test Files.
-Files with failing tests: spinbox.test
Number of tests skipped for each constraint:
2 NA
4 coreEntry
3 coreScrollbar
5 nyi
3 xpnative
-make[1]: Leaving directory `$(@D)'