nsf

Clone
Gustaf A. Neumann <neumann@gustaf-neumanns-imac.local>
committed
ed83018
on 11 Aug 09
- pass call stack content explicityl to XOTclNextMethod, which is used on one occurance outside the tcl callstack scope, such that CallSt… Show more
- pass call stack content explicityl to XOTclNextMethod, which is used on one occurance    outside the tcl callstack scope, such that CallStackGetTopFrame() gets the previous stack entry - implemented CallStackGetTopFrame() for tcl85stack - implemented CallStackGetObjectFrame() for tcl85stack

Show less

2-1-0-rc + 65 more
generic/nsfStack.c (+1 -1)
280 280               cscPtr->frameType,
281 281               cscPtr->flags,
282 282               ObjectName(cscPtr->self),
283 283               (void *)cscPtr->cmdPtr,
284 284               Tcl_GetCommandName(interp, cscPtr->cmdPtr));
285 285     } else {
286 286       fprintf(stderr, " no csc");
287 287       if (frameFlags & FRAME_IS_NSF_OBJECT) {
288 288         NsfObject *object = (NsfObject *)Tcl_CallFrame_clientData(framePtr);
289 289         fprintf(stderr, " obj %p %s", (void *)object, ObjectName(object));
290 290       }
291 291       fprintf(stderr, "\n");
292 292     }
293 293   }
294 294 }
295 295
296 296 /*
297 297  * Push and pop operations.
298 298  *
299 299  * Note that it is possible that between push and pop
300    * a object->nsPtr can be created (e.g. during a read trace)
  300  * an object->nsPtr can be created (e.g. during a read trace)
301 301  */
302 302
303 303 /*
304 304  *----------------------------------------------------------------------
305 305  * Nsf_PushFrameObj, Nsf_PopFrameObj --
306 306  *
307 307  *    Push or pop a frame with a call-stack content as an OBJECT
308 308  *    frame.
309 309  *
310 310  * Results:
311 311  *    None.
312 312  *
313 313  * Side effects:
314 314  *    None.
315 315  *
316 316  *----------------------------------------------------------------------
317 317  */
318 318 static void Nsf_PushFrameObj(Tcl_Interp *interp, NsfObject *object, const CallFrame *framePtr) {
319 319
320 320   nonnull_assert(interp != NULL);