PureBasic Forums - English

Posted: **Wed Feb 24, 2016 3:12 pm**

Procedure MY()
 
  i=1
  
  b=2
 
EndProcedure

GetprocodeSIZE(@my());??vHow To write

Gets the size Proced re code

Posted: **Thu Feb 25, 2016 1:58 am**

Code: Select all

FnLambdaStart:
Procedure FnLambda()
;
EndProcedure
FnLambdaEnd:

FnLambdaSize = ?FnLambdaEnd - ?FnLambdaEnd

Fn = FuNction
"FnLambda" = Function name example
Function = Same as "procedure" (convention)

Posted: **Thu Feb 25, 2016 2:07 am**

Olliv wrote:
Code: Select all
FnLambdaStart:
Procedure FnLambda()
;
EndProcedure
FnLambdaEnd:

FnLambdaSize = ?FnLambdaEnd - ?FnLambdaEnd
Fn = FuNction
"FnLambda" = Function name example
Function = Same as "procedure" (convention)

debug FnLambdaSize =0 ?????

Posted: **Thu Feb 25, 2016 2:48 am**

come on...

end - end = 0

Just correct the typo.

Posted: **Thu Feb 25, 2016 3:13 am**

You can't do that anyway, the procedure's size isn't contained between the two labels. Correct the typo and it's still 0.

Posted: **Thu Feb 25, 2016 11:35 am**

The following works on Winx86. Not sure I'd rely on it though.

Code: Select all

Procedure MY1()
  i=1
  b=2
EndProcedure

Procedure MY2()
EndProcedure

sizeMY1 = @MY2() - @MY1()

Debug sizeMY1

Posted: **Thu Feb 25, 2016 11:52 am**

netmaestro wrote:Correct the typo and it's still 0.

Unusual way to generate the code but true, but now it's at least the right 0

Maybe it's possible to get the address of the desired procedure and then move upwards along the code until you reach one of the possible opcodes for the RET instruction (and consider its optional parameter).

Then subtract the two addresses.

But since the same number can be found in other instructions or operands along the way, you may have to use a runtime disassembler, like the one coming with pb, or Bea Engine. Then you can get the "real" RET instruction.

The returned size would change between debug and release builds I imagine.

Just a quick try to show the idea, I've not verified if the results are right.

Code: Select all

DisableDebugger 

Procedure fun1()
a = a + 1
EndProcedure

Procedure.s fun2(a, b, c)
 a$ = "hello"
 For k = 1 To 10
    a$ + Str(k) 
 Next
 ProcedureReturn a$
EndProcedure

Procedure.i GetFunSize(*entry)
 If ExamineAssembly(*entry)
    While NextInstruction()      
        i$ = Trim(InstructionString())
        *addr = InstructionAddress()
                     
        If Left(i$,3) = "ret"
            NextInstruction() 
            *addr = InstructionAddress()            
            Break
        EndIf
    Wend
    ProcedureReturn *addr - *entry
 EndIf

 ProcedureReturn 0
EndProcedure

MessageRequester("fun1()", Str(GetFunSize(@fun1())))
MessageRequester("fun2()", Str(GetFunSize(@fun2())))

This supposing the bundled disassembler works (I don't think it does it reliably enough and I would use another one).

Posted: **Thu Feb 25, 2016 7:58 pm**

Nice

Posted: **Sat Feb 27, 2016 6:51 am**

Please apologize my problem of parallelism between my both eyes.

Just swap the four lines, two as two, near like that:

Code: Select all

Procedure FunTest()
FunStart:
; Fun code
FunEnd:
EndProcedure

Normally, should be lightly better than first suggesting.

Also... A little bit late to wish you a good year?

Edit: A reason of null value when label names are outside the function could be the same effect as a macro.

Code: Select all

McStart:
Macro McTest()
;McCode
EndMacro
McEnd:

Here "?McEnd - ?McStart" = 0

Posted: **Sat Feb 27, 2016 11:22 am**

Funstart: and Funend: do not capture the entire functions' contents if you take a look at the generated ASM.

Posted: **Sat Feb 27, 2016 3:55 pm**

+1 (if no function argument only)
+3 (if one or any arguments are present)
+x (in the way I m wrong)

PureBasic Forums - English

Gets the size function

Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function

Re: Gets the size function