From: rich <rich>
Date: Fri, 12 Oct 2007 01:46:26 +0000 (+0000)
Subject: Fix perf_dupdrop forth test.
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=cea392870a443a3d773d18d1627fa94712387cf5;hp=a9bb8b18891404c2fd315f2fc5cbeaf6c25e9b43;p=rrq%2Fjonesforth.git

Fix perf_dupdrop forth test.
---

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