64bit-warning-plugin.tcl


1
2
3
4
5
6
7
8
9
10
11

# This plugin is only to print a warning about the beta status of 64-bit
# builds on various platforms

if {$tcl_platform(machine) eq "x86_64"} {
    set msg "WARNING: 64-bit builds are still beta, some libraries are known to have serious issues, like "
    if {$tcl_platform(os) eq "Darwin"} {
        append msg "Gem, tclpd, "
    }
    append msg "pdp, maxlib, moonlib, moocow, bsaylor, etc."
    ::pdwindow::error "$msg\n"
}