[49220] trunk/base/src/tclobjc1.0/tclobjc.m

[toby at macports.org]

Revision: 49220
          http://trac.macports.org/changeset/49220
Author:   toby at macports.org
Date:     2009-04-05 13:38:23 -0700 (Sun, 05 Apr 2009)
Log Message:
-----------
jmr pointed out that i fail

Modified Paths:
--------------
    trunk/base/src/tclobjc1.0/tclobjc.m

Modified: trunk/base/src/tclobjc1.0/tclobjc.m
===================================================================
--- trunk/base/src/tclobjc1.0/tclobjc.m	2009-04-05 19:58:35 UTC (rev 49219)
+++ trunk/base/src/tclobjc1.0/tclobjc.m	2009-04-05 20:38:23 UTC (rev 49220)
@@ -115,7 +115,7 @@
 		} else if (arg_type[0] == _C_UINT) {
             long value;
             if (Tcl_GetLongFromObj(interp, objv[i], &value) == TCL_OK) {
-                if ((unsigned int)value > UINT_MAX || value < 0) {
+                if ((unsigned long)value > UINT_MAX || value < 0) {
                     NSString *str = [NSString stringWithFormat:@"Unsigned integer argument invalid: %ld", value];
                     Tcl_Obj *tcl_result = Tcl_NewStringObj([str UTF8String], -1);
                     Tcl_SetObjResult(interp, tcl_result);
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090405/5fd9e5ee/attachment-0001.html>