Return division problem

[Charles Pegge]

I found a bug which shows up when using unprototyped procedures:

return (te-ts) / freq

Due to an uncleared flag,This affects the return type of the next function - turning it into a float.

Code: OxygenBasic

1.   function TimeLapse(quad *ts,*te) as double
2.   return (te-ts)/freq 'SECONDS
3.  end function
4.   '
5. '...
6.  
7.   function ShiftKey() as sys
8.   return 0xffff and GetAsyncKeyState(VK_SHIFT)
9.   end function
10.  

Charles

Problem fixed below: