X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=perf_dupdrop.f;h=4575ba1620fe9a6018b683dd301acd2a396f552e;hb=HEAD;hp=9841538a7b01b69d45bf313b698733860c1203ec;hpb=aa173d5f30ea45f0c06799c858c4a91681cf0cf7;p=rrq%2Fjonesforth.git

diff --git a/perf_dupdrop.f b/perf_dupdrop.f
index 9841538..4575ba1 100644
--- a/perf_dupdrop.f
+++ b/perf_dupdrop.f
@@ -1,7 +1,7 @@
 ( -*- text -*-
   FORTH repeated DUP DROP * 1000 using ordinary indirect threaded code
   and the assembler primitives.
-  $Id: perf_dupdrop.f,v 1.2 2007-10-11 07:45:35 rich Exp $ )
+  $Id: perf_dupdrop.f,v 1.3 2007-10-12 01:46:26 rich Exp $ )
 
 1024 32 * MORECORE
 
@@ -18,9 +18,16 @@
 	THEN
 ;
 
+: 4DROP DROP DROP DROP DROP ;
+
 : PERFORM-TEST	( xt -- )
 	( Get everything in the cache. )
-	DUP EXECUTE DUP EXECUTE DUP EXECUTE DUP EXECUTE DUP EXECUTE DUP EXECUTE
+	DUP EXECUTE 4DROP
+	DUP EXECUTE 4DROP
+	DUP EXECUTE 4DROP
+	DUP EXECUTE 4DROP
+	DUP EXECUTE 4DROP
+	DUP EXECUTE 4DROP
 	0 0 0 0 PRINT-TIME
 	( Run the test 10 times. )
 	DUP EXECUTE PRINT-TIME