Figuring out where a function is called

Karbon · **Posted:** Tue Apr 01, 2008 9:09 pm

From inside a procedure at runtime is it possible to somehow output the line of code that called the procedure?

Example :

Code:

Line 147 : testme()

Procedure testme()

    debug "testme() is called on line " + str(exe_line)

EndProcedure

Would output "147"..

Reason being - I'm seeing calls to a function and just can't seem to figure out where it's being called (and why!).

Rook Zimbabwe · **Posted:** Tue Apr 01, 2008 11:54 pm

Karbon

Simple... make the line that called the procedure part of the call to that procedure.

Code:

Procedure Something(Line$)
Debug "Called from line: "+Line$
; other stuff
Endprocedure

And then if you didn't tell whatever pointer to call that procedure... you will get a bad call at line...

OR

Use the Edit Menu to search for where you call the procedure...

OR

Use a combo of those two ideas to edit the procedure calls by finding the lines and then editing the call...

freak · **Posted:** Wed Apr 02, 2008 12:05 am

Place a breakpoint in the procedure and open the 'Callstack' debugger tool once it is reached.
There you can see it all.

NicTheQuick · **Posted:** Wed Apr 02, 2008 12:14 am

If you don't use Threads and you procedure has no result, use this:

Code:

;add a global value for the line
Global exe_line.l

;rename the procedure
Procedure testme_renamed(a.l, b.l)
  Debug "testme() is called on line " + Str(exe_line)
  Debug a
  Debug b
EndProcedure

;create a original named macro
Macro testme
  exe_line = #PB_Compiler_Line : testme_renamed
EndMacro

testme(1, 2)

testme(3, 4)

Karbon · **Posted:** Wed Apr 02, 2008 3:19 am

Thanks guys!

#NULL · **Posted:** Wed Apr 02, 2008 12:11 pm

Code:

Procedure.s foo_proc(param1, param2opt, called_at=-1)
  ; procedure-code
  Debug "called at line "+Str(called_at)
  Debug param1
  Debug param2opt
  ProcedureReturn "returnvalue"
  ; [..]
  
  
  ; call-wrapper
  Macro foo(p1,p2=123)
    foo_proc(p1,p2,#PB_Compiler_Line)
  EndMacro
EndProcedure


Debug foo(8,5)
Debug ""
Debug foo(44)

..but notice that you have to define optional parameters in the macro instead.

PureBasic Forum

Figuring out where a function is called

Who is online