PureBasic Forums - English

>It is a simple variable overflow

Where? ' if a*b ' uses no external (Result-)variables. And inside PB... sorry, this does not interest me.

A little Bug in the Mathlib. Run this prog and look.

OpenConsole()


For a=1 To 500000
For b=a+1 To 500000
If a*b=1000000
Nr+1
PrintN(Str(Nr)+": "+Str(a)+"*"+Str(b)+"="+Str(a*b))
EndIf
Next
Next

CloseConsole()

The Result is:
1: 2*500000=1000000
2: 4*250000=1000000
3: 5*200000=1000000
4 ...

With each PureBasic-Update some superfluous orders disappear. When
does "DataSection/EndDataSection" disappear finally ? The Statement
"Data" should suffice however to the absolute identification of data !


And to it still a request:

In my projects i note them used PB-Version and hold them ready ...

My little wish: a Command like FreeID()

Result=FreeID() ;Result' contains the next free logical #ID

I manage me momentary with following routine:
Global FreeID$

Procedure.l FreeID(Nr)
; Gives the next free (1-65536) logical ID (for Files etc.) back
; Managed become the ID's in the GLOBAL ...