From cea392870a443a3d773d18d1627fa94712387cf5 Mon Sep 17 00:00:00 2001
From: rich <rich>
Date: Fri, 12 Oct 2007 01:46:26 +0000
Subject: [PATCH] Fix perf_dupdrop forth test.

---
 perf_dupdrop.f | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

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
-- 
2.39.5