Re: OPTIMIZE(*FULL) -- RPG400-L


On 09/01/2007, at 6:53 AM, albartell wrote:

Calling xyzProc when it is compiled with OPTIMIZE(*NONE) orOPTIMIZE(*BASIC)works just fine and all variables have values as expected. When Irecompileto OPTIMIZE(*FULL) I get the value of pParm3 in pParm2 (even thoughpParm2
is passed literally!!!!)

Looks like I am not the only one having the problem :-(
http://archive.midrange.com/rpg400-l/200112/msg00617.html
http://archive.midrange.com/rpg400-l/199711/msg00004.html

These appear to refer to debug differences. Your problem seems to bemore fundamental.


Anybody have a fix to this problem other than "don't use *FULL"?

I played about with this for 10 minutes. I modified your example toDSPLY the contents of pParm2 and pParm3 inside xyzProc.


Ran it with OPTIMIZE(*NONE) and worked as expected:
        DSPLY  yyyy
        DSPLY  0001

Then tried it with OPTIMZE(*FULL):
        DSPLY  0001
        DSPLY  0001

Oops!

I initially thought your problem might be due to not referencing pParm2so it gets "optimized away". Might look weird in debug but not really aproblem if it's never properly used. Nope.


Then I changed VALUE to CONST and ran with OPTIMIZE(*FULL)
        DSPLY  yyyy
        DSPLY  0001

Hmm, working as expected. I would never experience this problem becauseI only use VALUE when prototyping C functions. I don't use it in my owncode because I dislike that it allows the value of a variable to bechanged even though that change will not be reflected in the caller.CONST is more obvious.

However, even though you have a work-around by specifying CONST thisstill seems broken so an APAR is in order. Report it and either get itfixed or at least get an explanation why it's working as designed.

NOTE: There is a difference between running with OPTIMIZE(*FULL) anddebugging with OPTIMIZE(*FULL). Debug can show erroneous values in thiscase and that is expected and documented. However, running shouldproduce the same results even if the executed code path is somewhatdifferent.


Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------