diff options
-rw-r--r-- | 64bit-warning-plugin.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/64bit-warning-plugin.tcl b/64bit-warning-plugin.tcl new file mode 100644 index 0000000..cafb44f --- /dev/null +++ b/64bit-warning-plugin.tcl @@ -0,0 +1,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" +} |