From 3d5f129cb0f1208fab8b96b4a86777ea25744163 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Fri, 28 Sep 2018 18:45:34 +0000 Subject: Another patch contributed by Gustaf Neumann: shifting negative numbers is undefined behavior in the C standard https://stackoverflow.com/questions/8415895/is-left-and-right-shifting-negative-integers-defined-behavior --- generic/tclCompile.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 6aaa855..0466429 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1494,7 +1494,7 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, #endif #define TclGetInt4AtPtr(p) \ - (((int) TclGetInt1AtPtr(p) << 24) | \ + (((int) (TclGetUInt1AtPtr(p) << 24)) | \ (*((p)+1) << 16) | \ (*((p)+2) << 8) | \ (*((p)+3))) -- cgit v0.12