Optimiser level 3 bug found (*solved*)

Optimiser level 3 bug found (*solved*) - Printable Version

+- Boriel Basic Forum (https://forum.boriel.com)
+-- Forum: Compilers and Computer Languages (https://forum.boriel.com/forumdisplay.php?fid=12)
+--- Forum: ZX Basic Compiler (https://forum.boriel.com/forumdisplay.php?fid=11)
+---- Forum: Bug Reports (https://forum.boriel.com/forumdisplay.php?fid=15)
+---- Thread: Optimiser level 3 bug found (*solved*) (/showthread.php?tid=511)

Optimiser level 3 bug found (*solved*) - LCD - 2012-11-28

Hi Boriel!
I just ran into a bug with this code:

Code:
paper 7:ink 0:border 7:cls

Function code2level() as ubyte
	dim adr as uinteger
	dim count as ubyte
	adr=@buffer
	count=0
	do
		if not (peek(Uinteger,adr)-peek(Uinteger,@inpstring+3)+peek(Uinteger,adr+2)-peek(Uinteger,@inpstring+5)+peek(Uinteger,adr+4)-peek(Uinteger,@inpstring+7))
			goto passok
		Else
			count=count+1:adr=adr+6
		end if
	loop until count=32
	count=255
	passok:
	return count
end function

print code2level()

End
inpstring:
asm
	defb 1,1,56
	defm "Leveld"
end asm

buffer:
asm
	defm "Level1"
	defm "Level2"
	defm "Level3"
	defm "Level4"
	defm "Level5"
	defm "Level6"
	defm "Level7"
	defm "Level8"
	defm "Level9"
	defm "Level0"
	defm "Levela"
	defm "Levelb"
	defm "Levelc"
	defm "Leveld"
	defm "Levele"
	defm "Levelf"
	defm "Levelg"
	defm "Levelh"
	defm "Leveli"
	defm "Levelj"
	defm "Levelk"
	defm "Levell"
	defm "Levelm"
	defm "Leveln"
	defm "Levelo"
	defm "Levelp"
	defm "Levelq"
	defm "Levelr"
	defm "Levels"
	defm "Levelt"
	defm "Levelu"
	defm "Levelv"
end asm

Without Optimiser or at level 1 or 2 it displays the correct value (13), but with Optimiser level 3 it runs through all the strings aot finding the correct one, so the output is 255 which here means "code not found".

Re: Optimiser level 3 bug found - boriel - 2012-12-14

I've been rather busy. :oops: Sorry.
I've fixed that bug in the latest version 1.3.0 s947, but now other code is suboptimal. :x So still needs some work, I guess.

Re: Optimiser level 3 bug found - LCD - 2012-12-15

boriel Wrote:I've been rather busy. :oops: Sorry.
I've fixed that bug in the latest version 1.3.0 s947, but now other code is suboptimal. :x So still needs some work, I guess.

Thanks! Don't worry, I reduced my retro activity after my father died. Hope to get up soon. Will check the new version tomorrow.

Re: Optimiser level 3 bug found - boriel - 2012-12-17

Oh, I'm very sorry to hear that :!: Sad

My condolences in these sad moments.

Hope you get up and back here soon.

Re: Optimiser level 3 bug found - LCD - 2012-12-17

boriel Wrote:Oh, I'm very sorry to hear that :!:
My condolences in these sad moments.

Hope you get up and back here soon.

Thanks. I hope this too...

Re: Optimiser level 3 bug found - JBGV - 2012-12-26

I had not seen these posts, I'm sorry to read this .

My condolences LCD.

Re: Optimiser level 3 bug found - LCD - 2012-12-27

JBGV Wrote:I had not seen these posts, I'm sorry to read this .

My condolences LCD.

Thank you.

Re: Optimiser level 3 bug found - boriel - 2013-02-12

BTW, is this bug fixed?

Re: Optimiser level 3 bug found - LCD - 2013-02-12

boriel Wrote:BTW, is this bug fixed?

Oops, I forgot to answer: yes, thamks, it was fixed.