# HG changeset patch
# User nenolod
# Date 1181325503 25200
# Node ID 44d28af95a237b4b91c00236bea9346eae8fd1c5
# Parent  7ae024f5d91b4c1fdc47d817625476d5c480a201
[svn] - i forgot to commit something here

diff -r 7ae024f5d91b -r 44d28af95a23 ChangeLog
--- a/ChangeLog	Fri Jun 08 10:56:12 2007 -0700
+++ b/ChangeLog	Fri Jun 08 10:58:23 2007 -0700
@@ -1,3 +1,12 @@
+2007-06-08 17:56:12 +0000  William Pitcock <nenolod@sacredspiral.co.uk>
+  revision [2544]
+  - libcalc (paranormal virtual evaluation machine): add rand() instruction, global registers (global_reg0-reg99).
+  
+  trunk/src/paranormal/libcalc/dict.c     |   64 +++++++++++++++++++++++---------
+  trunk/src/paranormal/libcalc/function.c |    5 ++
+  2 files changed, 52 insertions(+), 17 deletions(-)
+
+
 2007-06-08 15:51:30 +0000  William Pitcock <nenolod@sacredspiral.co.uk>
   revision [2542]
   - remove unneeded externs
diff -r 7ae024f5d91b -r 44d28af95a23 src/paranormal/libcalc/function.c
--- a/src/paranormal/libcalc/function.c	Fri Jun 08 10:56:12 2007 -0700
+++ b/src/paranormal/libcalc/function.c	Fri Jun 08 10:58:23 2007 -0700
@@ -74,7 +74,7 @@
 }
 
 static double f_rand (ex_stack *stack) {
-  return rand() % pop (stack);
+  return rand() % (int) pop(stack);
 }
 
 /* */
@@ -88,7 +88,7 @@
   { "atan", f_atan },
   { "log", f_log },
   { "if", f_if },
-  { "div", f_div }
+  { "div", f_div },
   { "rand", f_rand }
 };