diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-07-15 11:17:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-07-15 11:17:12 (GMT) |
commit | bc9648f913a629f7845e64a802b2519bb5a729a7 (patch) | |
tree | 9d409ee7e8ffe0438cb59bb04e9f3c8d2ea58455 /win/tclWinPipe.c | |
parent | 2785816f6adac764ff1a93a100bc8cae1464227f (diff) | |
parent | b4b28f993fd2ed7a128731d3d5cc73a1fec73e33 (diff) | |
download | tcl-bc9648f913a629f7845e64a802b2519bb5a729a7.zip tcl-bc9648f913a629f7845e64a802b2519bb5a729a7.tar.gz tcl-bc9648f913a629f7845e64a802b2519bb5a729a7.tar.bz2 |
merge trunkbug_57945b574a_without_stub
Diffstat (limited to 'win/tclWinPipe.c')
-rw-r--r-- | win/tclWinPipe.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c index a9eec6d..aff8836 100644 --- a/win/tclWinPipe.c +++ b/win/tclWinPipe.c @@ -50,7 +50,7 @@ TCL_DECLARE_MUTEX(pipeMutex) * used in a pipeline. */ -typedef struct WinFile { +typedef struct { int type; /* One of the file types defined above. */ HANDLE handle; /* Open file handle. */ } WinFile; @@ -148,7 +148,7 @@ typedef struct PipeInfo { * synchronized with the readable object. */ } PipeInfo; -typedef struct ThreadSpecificData { +typedef struct { /* * The following pointer refers to the head of the list of pipes that are * being watched for file events. @@ -164,7 +164,7 @@ static Tcl_ThreadDataKey dataKey; * events are generated. */ -typedef struct PipeEvent { +typedef struct { Tcl_Event header; /* Information that is standard for all * events. */ PipeInfo *infoPtr; /* Pointer to pipe info structure. Note that @@ -2653,7 +2653,7 @@ Tcl_PidObjCmd( if (objc == 1) { Tcl_SetObjResult(interp, Tcl_NewWideIntObj((unsigned) getpid())); } else { - chan = Tcl_GetChannel(interp, Tcl_GetStringFromObj(objv[1], NULL), + chan = Tcl_GetChannel(interp, Tcl_GetString(objv[1]), NULL); if (chan == (Tcl_Channel) NULL) { return TCL_ERROR; @@ -3106,9 +3106,9 @@ TclpOpenTemporaryFile( } namePtr += length * sizeof(TCHAR); if (basenameObj) { - const char *string = Tcl_GetStringFromObj(basenameObj, &length); + const char *string = Tcl_GetString(basenameObj); - Tcl_WinUtfToTChar(string, length, &buf); + Tcl_WinUtfToTChar(string, basenameObj->length, &buf); memcpy(namePtr, Tcl_DStringValue(&buf), Tcl_DStringLength(&buf)); namePtr += Tcl_DStringLength(&buf); Tcl_DStringFree(&buf); |