Minor irritation

[FFMan]

Consider this bit of code:-

Code: Select all

Function SetPedal() as boolean

	dim b1 as byte,b2 as byte,b3 as byte,b4 as byte

	Call Menu(3)
	
	Call Engage(true)
		
	
	do
		b1=GetPin(But1)
		b2=GetPin(But2)
		b3=GetPin(But3)
		b4=GetPin(But4)
		
		'Abort
		if b1=0 then
			Call Engage(false)
			call DeBounce(But1)
			SetPedal=false
			exit function
		end if
		
		'OK
		if b2=0 then
			Call DeBounce(but2)
			SetPedal=true
			exit function
		end if
		
		'down (only)
		if b3=1 and b4=1 then
			Call PedalStop
		elseif b4=0 and b3=1 then
			Call PedalMove("A",true)
		elseif b3=0 and b4=1 then
			Call PedalMove("D",false)
		end if
	loop
	
	SetPedal=false
	
end function

if I compile it as it is I get a warning correctly saying the last statement but 1 will never execute. If I remove that line of code I get a warning saying not all returns set an exit code.

its only irritating as the editor jumps to that spot and I have to keep scrolling back to the point I was working on.

[mikep]

The following line in your PJT file or on the command line will suppress the warning:

Code: Select all

--warn=no-never-returns

Be careful because it suppresses it for every routine.

[FFMan]

thanks

seems like a small anomaly in the compiler. it seems not to realise the do/loop will never complete

[dkinzer]

its only irritating as the editor jumps to that spot and I have to keep scrolling back to the point I was working on.

The simplest way to fix the issue is to move the statement from after the loop to some place before it.

In general, however, a warning that can't be eliminated can be addressed using pragma warning. See Section 10.3.1 Controlling Warnings.

You can also set the IDE to not jump to warnings:

Code: Select all

next.message.ignore.warnings=0