Commit 0418f2cf authored by bernd's avatar bernd
Browse files

Made some tests work on 32 bit again

parent 24168deb

client-tests.fs

+2 −2
Original line number Diff line number Diff line
@@ -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

net2o-cmd.fs

+1 −1
Original line number Diff line number Diff line
@@ -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 ;

net2o.fs

+3 −3
Original line number Diff line number Diff line
@@ -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