PureBoard

Code: Alles auswählen

Procedure MyFunction(Parent.s = "")
  
  If Parent
    Debug "Calling from " + Parent
  Else
    Debug "Calling from MainScope"
  EndIf
  
EndProcedure

Procedure Prog1()
  
  MyFunction(#PB_Compiler_Procedure)
  
EndProcedure

Procedure Prog2()
  
  MyFunction(#PB_Compiler_Procedure)
  
EndProcedure

Prog1()
Prog2()
MyFunction()

Code: Alles auswählen

Procedure myProc_(param1, param2, callerInfo.s)
  Debug callerInfo
EndProcedure

Macro myProc(p1, p2)
  myProc_(p1, p2, #PB_Compiler_Filename + ", " + #PB_Compiler_Line + ", " + #PB_Compiler_Procedure)
EndMacro

; ----------------------

Procedure otherProc()
  myProc(11, 22)
EndProcedure

myProc(11, 22)
otherProc()
myProc(11, 22)

; ----------------------
; output:
; 
; PB_EditorOutput.pb, 16, 
; PB_EditorOutput.pb, 13, otherProc
; PB_EditorOutput.pb, 18, 

Code: Alles auswählen

Global DebuggerErrorText.s
Procedure DebuggerErrorText(Text.s)
	DebuggerErrorText = Text
EndProcedure
Procedure.f DebuggerReturnFloat(Void.i, Function.f)
	ProcedureReturn Function
EndProcedure



CompilerIf #PB_Compiler_Debugger
Procedure.f CustomRoundFunction(Value.f, Round.f)
CompilerElse
Procedure.f CustomRound(Value.f, Round.f)
CompilerEndIf
	
	CompilerIf #PB_Compiler_Debugger
		If Round <= 0.0
			DebuggerErrorText("Round must be greater than 0.0")
			ProcedureReturn 0.0
		EndIf
	CompilerEndIf
	
	ProcedureReturn Round(Value/Round, #PB_Round_Nearest)*Round
	
EndProcedure

CompilerIf #PB_Compiler_Debugger
	Macro CustomRound(Parameter1, Parameter2)
		DebuggerReturnFloat(Bool(DebuggerErrorText="" Or DebuggerWarning(DebuggerErrorText)), CustomRoundFunction(Parameter1, Parameter2))
	EndMacro
CompilerEndIf

;- Example

Debug CustomRound(1.23, 0.25)

Debug CustomRound(12.3, 10)

Debug CustomRound(123, 0)

Code: Alles auswählen

EnableExplicit

;x64 GET RETURN ADDRESS
;CHECK WITH EXTERNAL DEBUGGER!

Procedure.i Proc1(a.i,b.i)
  Protected ret.i
  !mov rax,[rsp + 0x38]
  !mov [p.v_ret],rax
  PrintN("RETURN1: 0x" + Hex(ret))
  ProcedureReturn
EndProcedure

Procedure.i Proc2(a.i,b.i,c.i,d.i,e.i,f.i,g.i,h.i)
  Protected ret.i
  !mov rax,[rsp + 0x38]
  !mov [p.v_ret],rax
  PrintN("RETURN2: 0x" + Hex(ret))
  ProcedureReturn
EndProcedure

Procedure.i Main()
  Proc1(1,2)
  Proc2(1,2,3,4,5,6,7,8)
  PrintN("MAIN: 0x" + Hex(@Main()))
  PrintN("PROC1: 0x" + Hex(@Proc1()))
  PrintN("PROC2: 0x" + Hex(@Proc2()))
  ProcedureReturn
EndProcedure

If OpenConsole(#Null$)
  Main()
  Input()
  CloseConsole()
EndIf

End