fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-05-21 12:41 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* include/harbour.hbx
  * src/rtl/hbrandom.c
    * HB_RANDOMMAX() -> HB_RANDOMINTMAX()
    ; TOFIX: now broken under mingw in all places where HB_RANDOMINT()
             is potentially called with larger than HB_RANDOMINTMAX()
             value. This will be impossible f.e. in RANDOM() CT function.

  * src/rtl/hbrandom.c
  * src/rtl/hbrand.c
    + hb_random_block() changed to use ARC4 backend.

  * examples/httpsrv/modules/showcounter.prg
    % hb_ntos()
This commit is contained in:
Viktor Szakats
2011-05-21 10:42:24 +00:00
parent 7fbc9044fe
commit 5553c16493
5 changed files with 23 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/examples/httpsrv/modules/showcounter.prg
View File

@@ -80,7 +80,7 @@ FUNCTION HRBMAIN()
IF !Empty( cHtml )
uhttpd_SetHeader( "Content-Type", "image/gif" )
uhttpd_SetHeader( "Pragma", "no-cache" )
uhttpd_SetHeader( "Content-Disposition", "inline; filename=counter" + LTrim( Str( hb_randomint( 100 ) ) ) + ".gif" )
uhttpd_SetHeader( "Content-Disposition", "inline; filename=counter" + hb_ntos( hb_randomint( 100 ) ) + ".gif" )
uhttpd_Write( cHtml )
ELSE
uhttpd_SetHeader( "Content-Type", "text/html" )