Code: Select all
Procedure Test()
ProcedureReturn 1
EndProcedure
Procedure Test_Unicode()
ProcedureReturn 2
EndProcedure
Procedure Test_MMX()
ProcedureReturn 3
EndProcedure
Debug Test()
Code: Select all
Procedure Test()
ProcedureReturn 1
EndProcedure
Procedure Test_Unicode()
ProcedureReturn 2
EndProcedure
Procedure Test_MMX()
ProcedureReturn 3
EndProcedure
Debug Test()

Code: Select all
Prototype Test()
global Test.Test
if IsMMX()
Test = @Test_MMX()
else
Test = @Test()
Endif