summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.h
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r--generic/tclCompile.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index 500d8eb..695de76 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -1453,7 +1453,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)))