Code: Select all
Procedure myproc(bbb.l)
CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
!push rbx
CompilerElse
!push ebx
CompilerEndIf
;bbb + 1
!mov ebx, dword [p.v_bbb]
!inc ebx
!mov dword [p.v_bbb], ebx
CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
!pop rbx
CompilerElse
!pop ebx
CompilerEndIf
ProcedureReturn bbb
EndProcedure
n = myproc(5) ;should return 6
Debug n