diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-11 10:25:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-11 10:25:04 (GMT) |
| commit | 8085eb88ab1525a1b91106d59723e8c3fecdf9f8 (patch) | |
| tree | 40ab2efb7dd8b8b9f46d3e9a0b4ca526ac10b1bd /win/tclWinReg.c | |
| parent | c09aee52fbaeb3d3323d506b2ed648d06c21954f (diff) | |
| download | tcl-8085eb88ab1525a1b91106d59723e8c3fecdf9f8.zip tcl-8085eb88ab1525a1b91106d59723e8c3fecdf9f8.tar.gz tcl-8085eb88ab1525a1b91106d59723e8c3fecdf9f8.tar.bz2 | |
more Tcl_NewIntObj/Tcl_NewBooleanObj -> Tcl_NewLongObj conversions
Diffstat (limited to 'win/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 643bd06..15ca183 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -693,7 +693,7 @@ GetType( */ if (type > lastType) { - Tcl_SetObjResult(interp, Tcl_NewIntObj((int) type)); + Tcl_SetObjResult(interp, Tcl_NewLongObj((int) type)); } else { Tcl_SetObjResult(interp, Tcl_NewStringObj(typeNames[type], -1)); } @@ -791,7 +791,7 @@ GetValue( */ if (type == REG_DWORD || type == REG_DWORD_BIG_ENDIAN) { - Tcl_SetObjResult(interp, Tcl_NewIntObj((int) ConvertDWORD(type, + Tcl_SetObjResult(interp, Tcl_NewLongObj((long) ConvertDWORD(type, *((DWORD *) Tcl_DStringValue(&data))))); } else if (type == REG_MULTI_SZ) { char *p = Tcl_DStringValue(&data); |