diff options
| author | dgp <dgp@noemail.net> | 2013-08-07 16:44:03 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2013-08-07 16:44:03 (GMT) |
| commit | cfa5619e0c2991fcf0a9252d69e5e7cfc53f292c (patch) | |
| tree | 6dd95e7a7c57369f8574ab36587462ac92da53b7 /generic/tclCompile.c | |
| parent | f95b4bdb03e1e6029c8c3086480cb97dcdb1eef9 (diff) | |
| download | tcl-cfa5619e0c2991fcf0a9252d69e5e7cfc53f292c.zip tcl-cfa5619e0c2991fcf0a9252d69e5e7cfc53f292c.tar.gz tcl-cfa5619e0c2991fcf0a9252d69e5e7cfc53f292c.tar.bz2 | |
Remove Tcl_Preserve support for ContLineLoc values. It's not needed.
This allows the clLoc field of CompileEnv struct to go away too.
FossilOrigin-Name: 08cfa769ecc7eb2f92519229ce5eb36d96fc479b
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 19 |
1 files changed, 2 insertions, 17 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 618b6fa..f5c8d41 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -713,9 +713,7 @@ TclSetByteCodeFromAny( clLocPtr = TclContinuationsGet(objPtr); if (clLocPtr) { - compEnv.clLoc = clLocPtr; - compEnv.clNext = &compEnv.clLoc->loc[0]; - Tcl_Preserve(compEnv.clLoc); + compEnv.clNext = &clLocPtr->loc[0]; } TclCompileScript(interp, stringPtr, length, &compEnv); @@ -742,9 +740,7 @@ TclSetByteCodeFromAny( TclInitCompileEnv(interp, &compEnv, stringPtr, length, iPtr->invokeCmdFramePtr, iPtr->invokeWord); if (clLocPtr) { - compEnv.clLoc = clLocPtr; - compEnv.clNext = &compEnv.clLoc->loc[0]; - Tcl_Preserve(compEnv.clLoc); + compEnv.clNext = &clLocPtr->loc[0]; } compEnv.atCmdStart = 2; /* The disabling magic. */ TclCompileScript(interp, stringPtr, length, &compEnv); @@ -1489,7 +1485,6 @@ TclInitCompileEnv( * data is available. */ - envPtr->clLoc = NULL; envPtr->clNext = NULL; envPtr->auxDataArrayPtr = envPtr->staticAuxDataArraySpace; @@ -1574,16 +1569,6 @@ TclFreeCompileEnv( ReleaseCmdWordData(envPtr->extCmdMapPtr); envPtr->extCmdMapPtr = NULL; } - - /* - * If we used data about invisible continuation lines, then now is the - * time to release on our hold on it. The lock was set in function - * TclSetByteCodeFromAny(), found in this file. - */ - - if (envPtr->clLoc) { - Tcl_Release(envPtr->clLoc); - } } /* |