comparison src/fns.c @ 8901:ab65a3dae221

(Frandom): Fix Lisp_Object vs. int problems.

8900:3c6b5ba4d559

#include "commands.h"

#include "buffer.h"
#include "keyboard.h"
#include "intervals.h"

Lisp_Object Qstring_lessp, Qprovide, Qrequire;
Lisp_Object Qyes_or_no_p_history;

static Lisp_Object internal_equal ();

  if (EQ (limit, Qt))
    srandom (getpid () + time (0));
  if (XTYPE (limit) == Lisp_Int && XINT (limit) > 0)
    {
      if (XINT (limit) >= 0x40000000)
	/* This case may occur on 64-bit machines.  */
	val = random () % XINT (limit);
      else
	{
	  /* Try to take our random number from the higher bits of VAL,
	     not the lower, since (says Gentzel) the low bits of `random'
	     are less random than the higher ones.  We do this by using the

	     these values eliminates the bias that would otherwise appear
	     when using a large limit.  */
	  denominator = (unsigned long)0x40000000 / XFASTINT (limit);
	  do
	    val = (random () & 0x3fffffff) / denominator;
	  while (val >= limit);
	}
    }
  else
    val = random ();
  return make_number (val);

8901:ab65a3dae221

#include "commands.h"

#include "buffer.h"
#include "keyboard.h"
#include "intervals.h"

extern Lisp_Object Flookup_key ();

Lisp_Object Qstring_lessp, Qprovide, Qrequire;
Lisp_Object Qyes_or_no_p_history;

static Lisp_Object internal_equal ();

  if (EQ (limit, Qt))
    srandom (getpid () + time (0));
  if (XTYPE (limit) == Lisp_Int && XINT (limit) > 0)
    {
      if (XFASTINT (limit) >= 0x40000000)
	/* This case may occur on 64-bit machines.  */
	val = random () % XFASTINT (limit);
      else
	{
	  /* Try to take our random number from the higher bits of VAL,
	     not the lower, since (says Gentzel) the low bits of `random'
	     are less random than the higher ones.  We do this by using the

	     these values eliminates the bias that would otherwise appear
	     when using a large limit.  */
	  denominator = (unsigned long)0x40000000 / XFASTINT (limit);
	  do
	    val = (random () & 0x3fffffff) / denominator;
	  while (val >= XFASTINT (limit));
	}
    }
  else
    val = random ();
  return make_number (val);