projects
/
rrq
/
jonesforth.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a9bb8b1
)
Fix perf_dupdrop forth test.
author
rich
<rich>
Fri, 12 Oct 2007 01:46:26 +0000
(
01:46
+0000)
committer
rich
<rich>
Fri, 12 Oct 2007 01:46:26 +0000
(
01:46
+0000)
perf_dupdrop.f
patch
|
blob
|
history
diff --git
a/perf_dupdrop.f
b/perf_dupdrop.f
index 9841538a7b01b69d45bf313b698733860c1203ec..4575ba1620fe9a6018b683dd301acd2a396f552e 100644
(file)
--- 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.
( -*- 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
1024 32 * MORECORE
@@
-18,9
+18,16
@@
THEN
;
THEN
;
+: 4DROP DROP DROP DROP DROP ;
+
: PERFORM-TEST ( xt -- )
( Get everything in the cache. )
: 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
0 0 0 0 PRINT-TIME
( Run the test 10 times. )
DUP EXECUTE PRINT-TIME