Commit 0418f2cf authored by bernd's avatar bernd

Made some tests work on 32 bit again

parent 24168deb
...@@ -114,8 +114,8 @@ previous ...@@ -114,8 +114,8 @@ previous
[: .time ." Download test: 1 text file and 2 photos" cr ;] $err [: .time ." Download test: 1 text file and 2 photos" cr ;] $err
net2o-code net2o-code
expect-reply expect-reply
!time .time s" Download test " $, type 1 lit, . pi float, f. cr !time .time s" Download test " $, type 1 ulit, . pi float, f. cr
( see-me ) get-ip 0 lit, ( see-me ) get-ip 0 ulit,
$400 blocksize! $400 blockalign! stat( request-stats ) $400 blocksize! $400 blockalign! stat( request-stats )
"net2o.fs" "net2o.fs" >cache n2o:copy "net2o.fs" "net2o.fs" >cache n2o:copy
"data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy "data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy
......
...@@ -603,7 +603,7 @@ net2o-base ...@@ -603,7 +603,7 @@ net2o-base
THEN ; THEN ;
: cookie, ( -- ) add-cookie lit, set-rtdelay ; : cookie, ( -- ) add-cookie lit, set-rtdelay ;
: request, ( -- ) next-request lit, request-done ; : request, ( -- ) next-request ulit, request-done ;
: gen-punch ( -- ) : gen-punch ( -- )
my-ip$ [: $, punch ;] $[]map ; my-ip$ [: $, punch ;] $[]map ;
......
...@@ -1609,7 +1609,7 @@ Variable fs-table ...@@ -1609,7 +1609,7 @@ Variable fs-table
Sema file-sema Sema file-sema
\ careful: must follow exactpy the same loic as slurp (see below) \ careful: must follow exactpy the same loic as slurp (see below)
: n2o:spit ( -- ) : n2o:spit ( -- ) fstates 0= ?EXIT
[: +calc fstates 0 { states fails } [: +calc fstates 0 { states fails }
BEGIN rdata-back? WHILE BEGIN rdata-back? WHILE
write-file# @ n2o:save-block write-file# @ n2o:save-block
...@@ -1667,7 +1667,7 @@ User file-reg# ...@@ -1667,7 +1667,7 @@ User file-reg#
\ careful: must follow exactpy the same loic as n2o:spit (see above) \ careful: must follow exactpy the same loic as n2o:spit (see above)
: n2o:slurp ( -- head end-flag ) : n2o:slurp ( -- head end-flag )
data-head? 0= IF head@ 0 EXIT THEN data-head? 0= fstates 0= or IF head@ 0 EXIT THEN
[: +calc fstates 0 { states fails } [: +calc fstates 0 { states fails }
0 BEGIN data-head? WHILE 0 BEGIN data-head? WHILE
read-file# @ n2o:slurp-block read-file# @ n2o:slurp-block
...@@ -1688,7 +1688,7 @@ User file-reg# ...@@ -1688,7 +1688,7 @@ User file-reg#
LOOP drop ; LOOP drop ;
: n2o:track-all-seeks ( xt -- ) { xt } ( i seeklen -- ) : n2o:track-all-seeks ( xt -- ) { xt } ( i seeklen -- )
fstates 0 DO fstates 0 ?DO
I dup id>addr? >o fs-seek 64@ fs-seekto 64@ 64<> IF I dup id>addr? >o fs-seek 64@ fs-seekto 64@ 64<> IF
fs-seekto 64@ 64dup fs-seek 64! o> fs-seekto 64@ 64dup fs-seek 64! o>
xt execute ELSE drop o> THEN xt execute ELSE drop o> THEN
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment