Update of /cvsroot/monetdb/MonetDB5/src/mal/Tests
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv23107/src/mal/Tests
Modified Files:
Tag: GDK-2
tst2500.mal tst2500.stable.out
Log Message:
propagated changes of Monday Sep 10 2007 - Tuesday Sep 18 2007
from the development trunk to the GDK-2 branch
Index: tst2500.mal
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/mal/Tests/tst2500.mal,v
retrieving revision 1.6
retrieving revision 1.6.8.1
diff -u -d -r1.6 -r1.6.8.1
--- tst2500.mal 31 Mar 2006 09:39:04 -0000 1.6
+++ tst2500.mal 18 Sep 2007 12:42:56 -0000 1.6.8.1
@@ -1,6 +1,7 @@
# The prototypical factory construct
factory random(seed:int):int;
+ mdb.setTrace(true);
i:= seed;
barrier always:= true;
i:= 125 *i;
Index: tst2500.stable.out
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/mal/Tests/tst2500.stable.out,v
retrieving revision 1.12
retrieving revision 1.12.6.1
diff -u -d -r1.12 -r1.12.6.1
--- tst2500.stable.out 3 Dec 2006 22:42:07 -0000 1.12
+++ tst2500.stable.out 18 Sep 2007 12:42:57 -0000 1.12.6.1
@@ -25,15 +25,16 @@
# return random:= 0;
#end;
factory user.random(seed:int):int; # 0 (random:int)<-(seed:int)
- i := seed; # 1 (i:int)<-(seed:int)
-barrier always := true; # 2 (always:bit)<-(_4:bit) jump 7
- i := calc.*(125,i); # 3 CALCbinaryMULintint (i:int)<-(_5:int)(i:int)
- i := calc.%(i,32767); # 4 CALCbinarycheckMODintint
(i:int)<-(i:int)(_6:int)
- yield i; # 5 (i:int)
- redo always; # 6 (always:bit) jump 3
-exit always; # 7 (always:bit)
- return random := 0; # 8 (random:int)<-(_7:int)
-end random; # 9
+ mdb.setTrace(true); # 1 MDBsetTrace (_2:void)<-(_3:bit)
+ i := seed; # 2 (i:int)<-(seed:int)
+barrier always := true; # 3 (always:bit)<-(_3:bit) jump 8
+ i := calc.*(125,i); # 4 CALCbinaryMULintint (i:int)<-(_6:int)(i:int)
+ i := calc.%(i,32767); # 5 CALCbinarycheckMODintint
(i:int)<-(i:int)(_7:int)
+ yield i; # 6 (i:int)
+ redo always; # 7 (always:bit) jump 4
+exit always; # 8 (always:bit)
+ return random := 0; # 9 (random:int)<-(_8:int)
+end random; # 10
#
#r1:= random(1);
#print(r1);
@@ -49,6 +50,8 @@
end main; # 6
[ 125 ]
[ 15625 ]
+#end main;
+mdb>#EOD
# 08:01:04 >
# 08:01:04 > Done.
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
