Commit 0418f2cf authored by bernd's avatar bernd

Made some tests work on 32 bit again

parent 24168deb
......@@ -114,8 +114,8 @@ previous
[: .time ." Download test: 1 text file and 2 photos" cr ;] $err
net2o-code
expect-reply
!time .time s" Download test " $, type 1 lit, . pi float, f. cr
( see-me ) get-ip 0 lit,
!time .time s" Download test " $, type 1 ulit, . pi float, f. cr
( see-me ) get-ip 0 ulit,
$400 blocksize! $400 blockalign! stat( request-stats )
"net2o.fs" "net2o.fs" >cache n2o:copy
"data/2011-05-13_11-26-57-small.jpg" "photo000s.jpg" >cache n2o:copy
......
......@@ -603,7 +603,7 @@ net2o-base
THEN ;
: cookie, ( -- ) add-cookie lit, set-rtdelay ;
: request, ( -- ) next-request lit, request-done ;
: request, ( -- ) next-request ulit, request-done ;
: gen-punch ( -- )
my-ip$ [: $, punch ;] $[]map ;
......
......@@ -1609,7 +1609,7 @@ Variable fs-table
Sema file-sema
\ careful: must follow exactpy the same loic as slurp (see below)
: n2o:spit ( -- )
: n2o:spit ( -- ) fstates 0= ?EXIT
[: +calc fstates 0 { states fails }
BEGIN rdata-back? WHILE
write-file# @ n2o:save-block
......@@ -1667,7 +1667,7 @@ User file-reg#
\ careful: must follow exactpy the same loic as n2o:spit (see above)
: 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 }
0 BEGIN data-head? WHILE
read-file# @ n2o:slurp-block
......@@ -1688,7 +1688,7 @@ User file-reg#
LOOP drop ;
: 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
fs-seekto 64@ 64dup fs-seek 64! o>
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