nsf

Clone
Gustaf Neumann <neumann@wu-wien.ac.at>
committed
9f2bb39
on 31 Jul 22
minor polishing
define-incrementals + 2 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);