[Info-vax] Python for x86?
Johnny Billquist
bqt at softjar.se
Wed May 10 09:18:57 EDT 2023
On 2023-05-10 00:38, Chris Townley wrote:
> My changes:
>
> sub testint(integer xscale)
>
> declare integer constant NINT = 10000%
> declare integer constant N = 1000000%
> declare integer i, j, nintscale, sum
> declare quad t1, t2
> external sub printres(quad, quad, integer, integer, string)
> external long function sys$gettim(quad)
>
> nintscale = NINT / xscale
> call sys$gettim(t1)
> for i = 1% to nintscale
> sum = i - 1%
> for j = 1 to N
Here is still an untyped 1...
> sum = ((sum + 1%) * 2% + 1%) / 2%
> next j
> if sum <> (i - 1% + N) then
> print "Integer test error"
> stop
> end if
> next i
> call sys$gettim(t2)
> call printres(t1, t2, nintscale, N, "integer operations")
>
> end sub
But yeah, classic BASIC issue. Default all values are FP.
Johnny
More information about the Info-vax
mailing list