/* * EVERBODY: Please read "APOLOGY" below. -rick 01/06/86 See introduction * n net.arch, or net.micro * * * "DHRYSTONE" Benchmark Program * * * Version: C/1.1, 12/01/84 * * * Date: PROGRAM updated 01/06/86, RESULTS updated 03/31/86 * * * Author: Reinhold P. Weicker, CACM Vol 27, No 10, 10/84 pg. 1013 * ed from ADA by Rick Richardson Every method to preserve ADA-likeness has * been used, at the expense of C-ness. * * * Compile: cc -O dry.c -o drynr : No registers cc -O * DREG=register dry.c -o dryr : Registers * * * Defines: Defines are provided for old C compiler's which don't have * nums, and can't assign structures. The time(2) function is library * ant; Most return the time in seconds, but beware of some, like c C, * which return other units. The LOOPS define is initially set for 50000 * loops. If you have a machine with large integers and is very fast, * e change this number to 500000 to get better accuracy. Please select * the way to measure the execution time using the TIME define. For single * user machines, time(2) is adequate. For multi-user machines where you * cannot get single-user access, use the times(2) function. If you have * either, use a stopwatch in the dead of night. Use a "printf" at the * point marked "start timer" to begin your timings. DO NOT use the UNIX * me(1)" command, as this will measure the total time to run this * which will (erroneously) include the time to malloc(3) storage and to * compute the time it takes to do nothing. * * * Run: drynr; dryr * * * Results: If you get any new machine/OS results, please send to: * * * ihnp4!castor!pcrat!rick * * * and thanks to all that do. Space prevents listing the names of those who * ve provided some of these results. I'll be forwarding these results to * einhold Weicker. * * * Note: I order the list in increasing performance of the "with * sters" benchmark. If the compiler doesn't provide register variables, * then the benchmark is the same for both REG and NOREG. * * * PLEASE: Send complete information about the machine type, clock * d, OS and C manufacturer/version. If the machine is modified, tell me * what was done. On UNIX, execute uname -a and cc -V to get this info. * * * 80x8x NOTE: 80x8x benchers: please try to do all memory models for a * ticular compiler. * * * APOLOGY (1/30/86): Well, I goofed things up! As pointed out by Haakon * , the line of code marked "GOOF" below was missing from the e * distribution for the last several months. It WAS* in a backup copy I * e last winter, so no doubt it was victimized by sleepy fingers operating * vi! * * * The effect of the line missing is that the reported benchmarks are 15% too * ast (at least on a 80286). Now, this creates a dilema - do I throw out * LL the data so far collected and use only results from this (corrected) * ersion, or do I just keep collecting data for the old version? * * * Since the data collected so far *is* valid as long as it is compared with * ke data, I have decided to keep TWO lists- one for the old benchmark, * one for the new. This also gives me an opportunity to correct one her * error I made in the instructions for this benchmark. My experience with * C compilers has been mostly with UNIX 'pcc' derived compilers, where the * 'optimizer' simply fixes sloppy code generation (peephole optimization). * ut today, there exist C compiler optimizers that will actually perform * optimization in the Computer Science sense of the word, y removing, for * example, assignments to a variable whose value is never used. * Dhrystone, unfortunately, provides lots of opportunities for this sort * of optimization. * * * I request that benchmarkers re-run this new, corrected version of Dhrystone, * urning off or bypassing optimizers which perform more than peephole * ization. Please indicate the version of Dhrystone used when reporting * the results to me. * * * RESULTS BEGIN HERE * * * ----------------DHRYSTONE VERSION 1.1 RESULTS BEGIN-------------------------- * * * MACHINE MICROPROCESSOR OPERATING COMPILER DHRYSTONES/SEC. TYPE * STEM NO REG REGS -- ------------ * ----------- --------------- Apple IIe 65C02-1.02Mhz DOS 3.3 * ztec CII v1.05i 37 37 - 80-2.5Mhz CPM-80 v2.2 Aztec CII * v1.05g 91 91 - Mhz RMX86 V6 Intel C-86 V2.0 197 * ?? IBM PC/XT 8088-4.77Mhz COHERENT 2.3.43 Mark Williams 259 275 * Mhz RMX86 V6 Intel C-86 V2.0 287 304 ?? Fortune * 32:16 68000-6Mhz V7+sys3+4.1BSD cc 360 346 * 4A w/FP-11C UNIX V7m cc 406 449 Macintosh512 * 000-7.7Mhz Mac ROM O/S DeSmet(C ware) 625 625 VAX-11/750 * A UNIX 4.2BSD cc 831 852 a 932 * 68000-10Mhz UNIX sysV cc 837 888 Plexus P35 * 68000-12.5Mhz UNIX sysIII cc 835 894 ATT * 300 68010-10Mhz UNIX 5.0.3 cc 973 1034 ompaq * II 80286-8Mhz MSDOS 3.1 MS C 3.0 1086 1140 LM IBM * PC/AT 80286-7.5Mhz Venix/286 SVR2 cc 1159 1254 *15 * ompaq II 80286-8Mhz MSDOS 3.1 MS C 3.0 1190 1282 MM * icroVAX II - Mach/4.3 cc 1361 1385 * C uVAX II - Ultrix-32m v1.1 cc 1385 1399 * mpaq II 80286-8Mhz MSDOS 3.1 MS C 3.0 1351 1428 * X 11/780 - UNIX 4.2BSD cc 1417 1441 * X-780/MA780 Mach/4.3 cc 1428 1470 AX * 11/780 - UNIX 5.0.1 cc 4.1.1.31 1650 1640 * dge 32C V1 - ROS 3.3 Ridge C (older) 1628 1695 * uld PN6005 - UTX 1.1c+ (4.2) cc 1732 1884 * uld PN9080 custom ECL UTX-32 1.1C cc 4745 4992 * X-784 - Mach/4.3 cc 5263 5555 * 4 VAX 8600 - 4.3 BSD cc 6329 6423 * dahl 5860 - UTS sysV cc 1.22 28735 28846 * M3090/200 - ? ? 31250 31250 * BUS486 AMD486DX4-133 OS/2 gcc 63775 91407 * second compiled with -O2) * * * ----------------DHRYSTONE VERSION 1.0 RESULTS BEGIN-------------------------- * * * MACHINE MICROPROCESSOR OPERATING COMPILER DHRYSTONES/SEC. TYPE * STEM NO REG REGS -- ------------ * ----------- --------------- Commodore 64 6510-1MHz C64 ROM * Power 2.8 36 36 HP-110 8086-5.33Mhz MSDOS 2.11 * Lattice 2.14 284 284 IBM PC/XT 8088-4.77Mhz PC/IX cc * 71 294 CCC 3205 - elos(SVR2) cc 558 592 Perq-II * 2901 bitslice Accent S5c cc (CMU) 301 301 IBM PC/XT * 8088-4.77Mhz COHERENT 2.3.43 MarkWilliams cc 296 317 Cosmos * 68000-8Mhz UniSoft cc 305 322 IBM PC/XT * 8088-4.77Mhz Venix/86 2.0 cc 297 324 DEC PRO 350 * 11/23 Venix/PRO SVR2 cc 299 325 IBM PC * 8088-4.77Mhz MSDOS 2.0 b16cc 2.0 310 340 PDP11/23 11/23 * Venix (V7) cc 320 358 Commodore Amiga * attice 3.02 368 371 PC/XT 8088-4.77Mhz Venix/86 * SYS V cc 339 377 IBM PC 8088-4.77Mhz MSDOS 2.0 * CI-C86 2.20M 390 90 IBM PC/XT 8088-4.77Mhz PCDOS 2.1 * Wizard 2.1 367 03 IBM PC/XT 8088-4.77Mhz PCDOS 3.1 * Lattice 2.15 403 03 @ Colex DM-6 68010-8Mhz Unisoft SYSV cc * 78 10 IBM PC 8088-4.77Mhz PCDOS 3.1 Datalight 1.10 416 * 16 BM PC NEC V20-4.77Mhz MSDOS 3.1 MS 3.1 387 420 * M PC/XT 8088-4.77Mhz PCDOS 2.1 Microsoft 3.0 390 427 * M PC NEC V20-4.77Mhz MSDOS 3.1 MS 3.1 (186) 393 427 * - UNIX V7M cc 387 438 BM PC * 8088, 4.77mhz PC-DOS 2.1 Aztec C v3.2d 423 454 andy * 1000 V20, 4.77mhz MS-DOS 2.11 Aztec C v3.2d 423 458 andy * TRS-16B 68000-6Mhz Xenix 1.3.5 cc 438 458 * - RSTS/E decus c 438 495 nyx * C8002 Z8000-4Mhz IS/1 1.1 (V7) cc 476 511 * ndy TRS-16B 68000-6Mhz Xenix 1.3.5 Green Hills 609 617 * C PRO 380 11/73 Venix/PRO SVR2 cc 577 628 * QT+ 68000-10Mhz Os9/68000 version 1.3 603 649 FH * lo DN550 68010-?Mhz AegisSR9/IX cc 3.12 666 66 * 10 8086-5.33Mhz MSDOS 2.11 Aztec-C 641 676 TT * PC6300 8086-8Mhz MSDOS 2.11 b16cc 2.0 632 684 * M PC/AT 80286-6Mhz PCDOS 3.0 CI-C86 2.1 666 684 * ndy 6000 68000-8Mhz Xenix 3.0 cc 694 694 * M PC/AT 80286-6Mhz Xenix 3.0 cc 684 704 * M Macintosh 68000-7.8Mhz 2M Mac Rom Mac C 32 bit int 694 04 * ntosh 68000-7.7Mhz - MegaMax C 2.0 661 09 * ntosh512 68000-7.7Mhz Mac ROM O/S DeSmet(C ware) 714 14 IBM * PC/AT 80286-6Mhz Xenix 3.0 cc 704 14 LM * odata 3300 68000-8Mhz UniPlus+ (v7) cc 678 25 * T MB 68000-8Mhz System V WICAT C 4.1 585 731 ~ * s 9000 68010-10Mhz UNIX cc 714 35 * 6300 8086-8Mhz Venix/86 SVR2 cc 668 743 * mus 9790 68010-10Mhz 1MB SVR0,Cadmus3.7 cc 720 47 NEC * PC9801F 8086-8Mhz PCDOS 2.11 Lattice 2.15 768 - * @ ATT PC6300 8086-8Mhz MSDOS 2.11 CI-C86 2.20M 769 * 9 Burroughs XE550 68010-10Mhz Centix 2.10 cc 769 * 9 CT1 EAGLE/TURBO 8086-8Mhz Venix/86 SVR2 cc 696 * 79 ALTOS 586 8086-10Mhz Xenix 3.0b cc 724 * 3 DEC 11/73 J-11 micro Ultrix-11 V3.0 cc 735 93 ATT * 3B2/300 WE32000-?Mhz UNIX 5.0.2 cc 735 06 * lo DN320 68010-?Mhz AegisSR9/IX cc 3.12 806 06 * -2400 68010-10Mhz UNIX System V cc 772 29 * i 520ST 68000-8Mhz TOS DigResearch 839 846 * PC/AT 80286-6Mhz PCDOS 3.0 MS 3.0(large) 833 47 LM * ICAT MB 68000-8Mhz System V WICAT C 4.1 675 53 S~ * AX 11/750 - Ultrix 1.1 4.2BSD cc 781 62 CCC * 7350A 68000-8MHz UniSoft V.2 cc 821 75 VAX * 11/750 - UNIX 4.2bsd cc 862 77 * Mac 68000-7.7Mhz - MegaMax C 2.0 839 904 + IBM * PC/XT 8086-9.54Mhz PCDOS 3.1 Microsoft 3.0 833 909 * 1 DEC 11/44 Ultrix-11 V3.0 cc 862 09 * ntosh 68000-7.8Mhz 2M Mac Rom Mac C 16 bit int 877 09 S * C 3210 - Xelos R01(SVR2) cc 849 24 CCC * 3220 - Ed. 7 v2.3 cc 892 925 BM * PC/AT 80286-6Mhz Xenix 3.0 cc -i 909 925 * &T 6300 8086, 8mhz MS-DOS 2.11 Aztec C v3.2d 862 943 * M PC/AT 80286-6Mhz Xenix 3.0 cc 892 961 * X 11/750 w/FPA Eunice 3.2 cc 914 976 * M PC/XT 8086-9.54Mhz PCDOS 3.1 Wizard 2.1 892 980 * 1 IBM PC/XT 8086-9.54Mhz PCDOS 3.1 Lattice 2.15 980 80 C1 * lexus P35 68000-10Mhz UNIX System III cc 984 80 * 11/73 KDJ11-AA 15Mhz UNIX V7M 2.1 cc 862 981 * AX 11/750 w/FPA UNIX 4.3bsd cc 994 97 * -1400 68010-10Mhz UNIX System V cc 909 1000 * M PC/AT 80286-6Mhz Venix/86 2.1 cc 961 1000 * M PC/AT 80286-6Mhz PCDOS 3.0 b16cc 2.0 943 1063 * log S8000/11 Z8001-5.5Mhz Zeus 3.2 cc 1011 1084 * C ICM-3216 NSC 32016-10Mhz UNIX SVR2 cc 1041 1084 * M PC/AT 80286-6Mhz PCDOS 3.0 MS 3.0(small) 1063 1086 * X 11/750 w/FPA VMS VAX-11 C 2.0 958 1091 * ride 68000-10Mhz System-V/68 cc 1041 1111 lexus * P/60 MC68000-12.5Mhz UNIX SYSIII Plexus 1111 1111 * T PC7300 68010-10Mhz UNIX 5.0.2 cc 1041 1111 * C 3230 - Xelos R01(SVR2) cc 1040 1126 * ride 68000-12Mhz System-V/68 cc 1063 1136 BM * PC/AT 80286-6Mhz Venix/286 SVR2 cc 1056 1149 * s P/60 MC68000-12.5Mhz UNIX SYSIII Plexus 1111 1163 * IBM PC/AT 80286-6Mhz PCDOS 3.0 Datalight 1.10 1190 1190 * T PC6300+ 80286-6Mhz MSDOS 3.1 b16cc 2.0 1111 1219 * M PC/AT 80286-6Mhz PCDOS 3.1 Wizard 2.1 1136 1219 * n2/120 68010-10Mhz Sun 4.2BSD cc 1136 1219 * M PC/AT 80286-6Mhz PCDOS 3.0 CI-C86 2.20M 1219 1219 * CAT PB 68000-8Mhz System V WICAT C 4.1 998 1226 * MASSCOMP 500 68010-10MHz RTU V3.0 cc (V3.2) 1156 * 238 Alliant FX/8 IP (68012-12Mhz) Concentrix cc -ip;exec -i 1170 * 243 FX Cyb DataMate 68010-12.5Mhz Uniplus 5.0 Unisoft cc 1162 * 1250 PDP 11/70 - UNIX 5.2 cc 1162 * 250 IBM PC/AT 80286-6Mhz PCDOS 3.1 Lattice 2.15 1250 * 250 IBM PC/AT 80286-7.5Mhz Venix/86 2.1 cc 1190 * 315 *15 Sun2/120 68010-10Mhz Standalone cc 1219 * 315 Intel 380 80286-8Mhz Xenix R3.0up1 cc 1250 * 315 *16 Sequent Balance 8000 NS32032-10MHz Dynix 2.0 cc * 50 1315 N12 IBM PC/DSI-32 32032-10Mhz MSDOS 3.1 GreenHills * 14 1282 1315 C3 ATT 3B2/400 WE32100-?Mhz UNIX 5.2 cc * 5 1315 CCC 3250XP - Xelos R01(SVR2) cc 215 1318 * BM PC/RT 032 RISC(801?)?Mhz BSD 4.2 cc 1248 1333 * RT DG MV4000 - AOS/VS 5.00 cc 333 1333 IBM * PC/AT 80286-8Mhz Venix/86 2.1 cc 1275 1380 * *16 IBM PC/AT 80286-6Mhz MSDOS 3.0 Microsoft 3.0 1250 * 388 ATT PC6300+ 80286-6Mhz MSDOS 3.1 CI-C86 2.20M 1428 * 428 COMPAQ/286 80286-8Mhz Venix/286 SVR2 cc 1326 * 443 IBM PC/AT 80286-7.5Mhz Venix/286 SVR2 cc 1333 * 449 *15 WICAT PB 68000-8Mhz System V WICAT C 4.1 1169 * 464 S~ Tandy II/6000 68000-8Mhz Xenix 3.0 cc 1384 * 477 MicroVAX II - Mach/4.3 cc 1513 * 536 WICAT MB 68000-12.5Mhz System V WICAT C 4.1 1246 * 537 ~ IBM PC/AT 80286-9Mhz SCO Xenix V cc 1540 * 556 *18 Cyb DataMate 68010-12.5Mhz Uniplus 5.0 Unisoft cc * 70 1562 S VAX 11/780 - UNIX 5.2 cc 515 1562 * icroVAX-II - - - 562 1612 VAX-780/MA780 * ach/4.3 cc 1587 1612 VAX 11/780 - UNIX * 4.3bsd cc 1646 1662 Apollo DN660 - * egisSR9/IX cc 3.12 1666 1666 ATT 3B20 - UNIX * 5.2 cc 1515 1724 NEC PC-98XA 80286-8Mhz PCDOS 3.1 * Lattice 2.15 1724 1724 @ HP9000-500 B series CPU HP-UX 4.02 * cc 1724 - Ridge 32C V1 - ROS 3.3 Ridge * C (older) 1776 - IBM PC/STD 80286-8Mhz MSDOS 3.0 * Microsoft 3.0 1724 1785 C2 WICAT MB 68000-12.5Mhz System V * WICAT C 4.1 1450 1814 S~ WICAT PB 68000-12.5Mhz System V WICAT * C 4.1 1530 1898 ~ DEC-2065 KL10-Model B TOPS-20 6.1FT5 Port. * C Comp. 1937 1946 Gould PN6005 - UTX * 1.1(4.2BSD) cc 1675 1964 DEC2060 KL-10 * 0 cc 2000 2000 NM Intel 310AP 80286-8Mhz * Xenix 3.0 cc 1893 2009 VAX 11/785 - UNIX * 5.2 cc 2083 2083 VAX 11/785 - VMS * AX-11 C 2.0 2083 2083 VAX 11/785 - UNIX SVR2 cc * 123 2083 VAX 11/785 - ULTRIX-32 1.1 cc 2083 * 091 VAX 11/785 - UNIX 4.3bsd cc 2135 * 136 WICAT PB 68000-12.5Mhz System V WICAT C 4.1 1780 * 233 S~ Pyramid 90x - OSx 2.3 cc 2272 * 272 Pyramid 90x FPA,cache,4Mb OSx 2.5 cc no -O 2777 * 777 Pyramid 90x w/cache OSx 2.5 cc w/-O 3333 * 333 IBM-4341-II - VM/SP3 Waterloo C 1.2 3333 * 333 IRIS-2400T 68020-16.67Mhz UNIX System V cc 3105 * 401 Celerity C-1200 ? UNIX 4.2BSD cc 3485 * 468 SUN 3/75 68020-16.67Mhz SUN 4.2 V3 cc 3333 * 571 IBM-4341 Model 12 UTS 5.0 ? 3685 * 685 SUN-3/160 68020-16.67Mhz Sun 4.2 V3.0A cc 3381 3764 * un 3/180 68020-16.67Mhz Sun 4.2 cc 3333 3846 * M-4341 Model 12 UTS 5.0 ? 3910 3910 MN * C 5400 68020-16.67MHz RTU V3.0 cc (V4.0) 3952 4054 * tel 386/20 80386-12.5Mhz PMON debugger Intel C386v0.2 4149 4386 * R Tower32 68020-16.67Mhz SYS 5.0 Rel 2.0 cc 3846 4545 MC * 5600/5700 68020-16.67MHz RTU V3.0 cc (V4.0) 4504 4746 % * ntel 386/20 80386-12.5Mhz PMON debugger Intel C386v0.2 4534 4794 i1 * ntel 386/20 80386-16Mhz PMON debugger Intel C386v0.2 5304 5607 * ould PN9080 custom ECL UTX-32 1.1C cc 5369 5676 Gould * 1460-342 ECL proc UTX/32 1.1/c cc 5342 5677 G1 * X-784 - Mach/4.3 cc 882 5882 &4 Intel 386/20 * 80386-16Mhz PMON debugger Intel C386v0.2 5801 6133 i1 VAX 8600 * - UNIX 4.3bsd cc 7024 7088 VAX 8600 - * MS C 2.0 7142 7142 Alliant FX/8 CE Concentrix cc * e;exec -c 6952 7655 FX CCI POWER 6/32 COS(SV+4.2) cc * 0 7800 CCI POWER 6/32 POWER 6 UNIX/V cc 8236 * 498 CCI POWER 6/32 4.2 Rel. 1.2b cc 8963 9544 * erry (CCI Power 6) 4.2BSD cc 9345 10000 * AY-X-MP/12 105Mhz COS 1.14 Cray C 10204 10204 * M-3083 - UTS 5.0 Rel 1 cc 16666 12500 * AY-1A 80Mhz CTSS Cray C 2.0 12100 13888 * M-3083 - VM/CMS HPO 3.4 Waterloo C 1.2 13889 13889 * dahl 470 V/8 UTS/V 5.2 cc v1.23 15560 15560 * AY-X-MP/48 105Mhz CTSS Cray C 2.0 15625 17857 * dahl 580 - UTS 5.0 Rel 1.2 cc v1.5 23076 23076 * dahl 5860 UTS/V 5.2 cc v1.23 28970 28970 * * * NOTE Crystal changed from 'stock' to listed value. + This Macintosh was * upgraded from 128K to 512K in such a way that the new 384K of memory is * not slowed down by video generator accesses. % Single processor; MC == * MASSCOMP NM A version 7 C compiler written at New Mexico Tech. @ * lla Lattice compiler used with MicroPro standard library S Shorts used * instead of ints T with Chris Torek's patches (whatever they are). ~ * For WICAT Systems: MB=MultiBus, PB=Proprietary Bus LM Large Memory * Model. (Otherwise, all 80x8x results are small model) MM Medium Memory * Model. (Otherwise, all 80x8x results are small model) C1 Univation PC * TURBO Co-processor; 9.54Mhz 8086, 640K RAM C2 Seattle Telecom STD-286 * board C3 Definicon DSI-32 coprocessor C? Unknown co-processor board? * T1 Convergent Technologies MegaFrame, 1 processor. N Using Mike Newtons * 'optimizer' (see net.sources). G1 This Gould machine has 2 processors * and was able to run 2 dhrystone Benchmarks in parallel with no slowdown. * H FHC == Frank Hogg Labs (Hazelwood Uniquad 2 in an FHL box). FX The * Alliant FX/8 is a system consisting of 1-8 CEs (computation engines) and * 1-12 IPs (interactive processors). Note N8 applies. RT This is one of * the RT's that CMU has been using for awhile. I'm not sure that this is * identical to the machine that IBM is selling the public. i1 Normally, * the 386/20 starter kit has a 16k direct mapped cache which inserts 2 or * 3 wait states on a write thru. These results re obtained by disabling * the write-thru, or essentially turning the cache into 0 wait state * memory. Nnn This machine has multiple processors, allowing "nn" copies * of the benchmark to run in the same time as 1 copy. nn This machine has * "nn" processors, and the benchmark results were ed by having all "nn" * processors working on 1 copy of dhrystone. (Note, this is different than * Nnn. Salesmen like this measure). ? I don't trust results marked with * '?'. These were sent to me with either incomplete info, or with times * that just don't make sense. ?? means I think the performance is too * poor, ?! means too good. If anybody can confirm these figures, please * respond. * * * ABBREVIATIONS CCC Concurrent Computer Corp. (was Perkin-Elmer) MC * comp * * * --------------------------------RESULTS END---------------------------------- * * * The following program contains statements of a high-level programming e (C) * in a distribution considered representative: * * * assignments 53% control statements 32% , * function calls 15% * * * 100 statements are dynamically executed. The program is balanced with t to * the three aspects: - statement type - operand type (for simple data * s) - operand access operand global, local, parameter, or constant. * * * The combination of these three aspects is balanced only approximately. * * * The program does not compute anything meaningfull, but it is syntactically * nd semantically correct. * * */ #include #include #include #include #define HZ 125L /* 125 Interrupt per Second for time function */ /* Accuracy of timings and human fatigue controlled by next two lines */ /* #define LOOPS 5000 *//* Use this for slow or 16 bit machines */ #define LOOPS 500000 /* Use this for faster machines */ void Proc0(void); main() { #ifdef CPU8051 initserial(); #endif Proc0(); #ifdef CPU8051 while (1); #else return (0); #endif } /* Compiler dependent options */ #define NOENUM /* Define if compiler has no enum's */ #undef NOSTRUCTASSIGN /* Define if compiler can't assign structures */ /* define only one of the next two defines */ /* #define TIMES *//* Use times(2) time function */ #define TIME /* Use time(2) time function */ /* define the granularity of your times(2) function (when used) */ #ifndef HZ /* #define HZ 60 times(2) returns 1/60 second (most) */ #define HZ 1 /* times(2) returns 1/100 second (WECo) */ #endif /* for compatibility with goofed up version */ /* #define GOOF *//* Define if you want the goofed up version */ #ifdef GOOF unsigned char Version[] = "1.0"; #else unsigned char Version[] = "1.1"; #endif #ifdef NOSTRUCTASSIGN #define structassign(d, s) memcpy(&(d), &(s), sizeof(d)) #else #define structassign(d, s) d = s #endif #ifdef NOENUM #define Ident1 1 #define Ident2 2 #define Ident3 3 #define Ident4 4 #define Ident5 5 typedef unsigned char Enumeration; #else typedef enum { Ident1, Ident2, Ident3, Ident4, Ident5 } Enumeration; #endif typedef int OneToThirty; typedef int OneToFifty; typedef unsigned char CapitalLetter; typedef unsigned char String30[31]; typedef int Array1Dim[51]; typedef int Array2Dim[51][51]; struct Record { struct Record *PtrComp; Enumeration Discr; Enumeration EnumComp; OneToFifty IntComp; String30 StringComp; }; typedef struct Record RecordType; typedef RecordType *RecordPtr; typedef int boolean; #ifndef NULL #define NULL 0 #endif #define TRUE 1 #define FALSE 0 #ifndef REG #define REG register #endif /* extern Enumeration Func1(); */ #ifdef TIMES #include #include #endif /* * * * Package 1 * */ int IntGlob; boolean BoolGlob; unsigned char Char1Glob; unsigned char Char2Glob; Array1Dim Array1Glob; Array2Dim Array2Glob; RecordPtr PtrGlb; RecordPtr PtrGlbNext; RecordType rec1, rec2; Enumeration Func1(CharPar1, CharPar2) CapitalLetter CharPar1; CapitalLetter CharPar2; { REG CapitalLetter CharLoc1; REG CapitalLetter CharLoc2; CharLoc1 = CharPar1; CharLoc2 = CharLoc1; if (CharLoc2 != CharPar2) return (Ident1); else return (Ident2); } boolean Func2(StrParI1, StrParI2) String30 StrParI1; String30 StrParI2; { REG OneToThirty IntLoc; REG CapitalLetter CharLoc; IntLoc = 1; while (IntLoc <= 1) if (Func1(StrParI1[IntLoc], StrParI2[IntLoc + 1]) == Ident1) { CharLoc = 'A'; ++IntLoc; } if (CharLoc >= 'W' && CharLoc <= 'Z') IntLoc = 7; if (CharLoc == 'X') return (TRUE); else { if (strcmp(StrParI1, StrParI2) > 0) { IntLoc += 7; return (TRUE); } else return (FALSE); } } boolean Func3(EnumParIn) REG Enumeration EnumParIn; { REG Enumeration EnumLoc; EnumLoc = EnumParIn; if (EnumLoc == Ident3) return (TRUE); return (FALSE); } Proc7(IntParI1, IntParI2, IntParOut) OneToFifty IntParI1; OneToFifty IntParI2; OneToFifty * IntParOut; { REG OneToFifty IntLoc; IntLoc = IntParI1 + 2; *IntParOut = IntParI2 + IntLoc; } Proc4() { REG boolean BoolLoc; BoolLoc = Char1Glob == 'A'; BoolLoc |= BoolGlob; Char2Glob = 'B'; } Proc5() { Char1Glob = 'A'; BoolGlob = FALSE; } Proc6(EnumParIn, EnumParOut) REG Enumeration EnumParIn; REG Enumeration * EnumParOut; { *EnumParOut = EnumParIn; if (!Func3(EnumParIn)) *EnumParOut = Ident4; switch (EnumParIn) { case Ident1: *EnumParOut = Ident1; break; case Ident2: if (IntGlob > 100) *EnumParOut = Ident1; else *EnumParOut = Ident4; break; case Ident3: *EnumParOut = Ident2; break; case Ident4: break; case Ident5: *EnumParOut = Ident3; } } Proc3(PtrParOut) RecordPtr * PtrParOut; { if (PtrGlb != NULL) *PtrParOut = PtrGlb->PtrComp; else IntGlob = 100; Proc7(10, IntGlob, &PtrGlb->IntComp); } Proc1(PtrParIn) REG RecordPtr PtrParIn; { #define NextRecord (*(PtrParIn->PtrComp)) structassign(NextRecord, *PtrGlb); PtrParIn->IntComp = 5; NextRecord.IntComp = PtrParIn->IntComp; NextRecord.PtrComp = PtrParIn->PtrComp; Proc3(NextRecord.PtrComp); if (NextRecord.Discr == Ident1) { NextRecord.IntComp = 6; Proc6(PtrParIn->EnumComp, &NextRecord.EnumComp); NextRecord.PtrComp = PtrGlb->PtrComp; Proc7(NextRecord.IntComp, 10, &NextRecord.IntComp); } else structassign(*PtrParIn, NextRecord); #undef NextRecord } Proc2(IntParIO) OneToFifty * IntParIO; { REG OneToFifty IntLoc; REG Enumeration EnumLoc; IntLoc = *IntParIO + 10; for (;;) { if (Char1Glob == 'A') { --IntLoc; *IntParIO = IntLoc - IntGlob; EnumLoc = Ident1; } if (EnumLoc == Ident1) break; } } Proc8(Array1Par, Array2Par, IntParI1, IntParI2) Array1Dim Array1Par; Array2Dim Array2Par; OneToFifty IntParI1; OneToFifty IntParI2; { REG OneToFifty IntLoc; REG OneToFifty IntIndex; IntLoc = IntParI1 + 5; Array1Par[IntLoc] = IntParI2; Array1Par[IntLoc + 1] = Array1Par[IntLoc]; Array1Par[IntLoc + 30] = IntLoc; for (IntIndex = IntLoc; IntIndex <= (IntLoc + 1); ++IntIndex) Array2Par[IntLoc][IntIndex] = IntLoc; ++Array2Par[IntLoc][IntLoc - 1]; Array2Par[IntLoc + 20][IntLoc] = Array1Par[IntLoc]; IntGlob = 5; } void Proc0() { OneToFifty IntLoc1; REG OneToFifty IntLoc2; OneToFifty IntLoc3; REG unsigned char CharLoc; REG unsigned char CharIndex; Enumeration EnumLoc; String30 String1Loc; String30 String2Loc; /* extern unsigned char *malloc(); */ #ifdef TIME /* long time(long *); */ long starttime; float benchtime; long nulltime; register unsigned int i; starttime = clock(); for (i = 0; i < LOOPS; ++i); nulltime = clock() - starttime; /* Computes o'head of loop */ #endif #ifdef TIMES time_t starttime; time_t benchtime; time_t nulltime; struct tms tms; register unsigned int i; times(&tms); starttime = tms.tms_utime; for (i = 0; i < LOOPS; ++i); times(&tms); nulltime = tms.tms_utime - starttime; /* Computes overhead of * ooping */ #endif PtrGlbNext = &rec1; /* (RecordPtr) * pe)); */ PtrGlb = &rec2; /* (RecordPtr) malloc(sizeof(RecordType)); */ PtrGlb->PtrComp = PtrGlbNext; PtrGlb->Discr = Ident1; PtrGlb->EnumComp = Ident3; PtrGlb->IntComp = 40; strcpy(PtrGlb->StringComp, "DHRYSTONE PROGRAM, SOME STRING"); #ifndef GOOF strcpy(String1Loc, "DHRYSTONE PROGRAM, 1'ST STRING"); /* GOOF */ #endif Array2Glob[8][7] = 10; /* Was missing in published program */ /***************** -- Start Timer -- *****************/ printf("Now running %ld Dhrystones...\n", (long) LOOPS); #ifdef TIME starttime = clock(); #endif #ifdef TIMES times(&tms); starttime = tms.tms_utime; #endif for (i = 0; i < LOOPS; ++i) { Proc5(); Proc4(); IntLoc1 = 2; IntLoc2 = 3; strcpy(String2Loc, "DHRYSTONE PROGRAM, 2'ND STRING"); EnumLoc = Ident2; BoolGlob = !Func2(String1Loc, String2Loc); while (IntLoc1 < IntLoc2) { IntLoc3 = 5 * IntLoc1 - IntLoc2; Proc7(IntLoc1, IntLoc2, &IntLoc3); ++IntLoc1; } Proc8(Array1Glob, Array2Glob, IntLoc1, IntLoc3); Proc1(PtrGlb); for (CharIndex = 'A'; CharIndex <= Char2Glob; ++CharIndex) if (EnumLoc == Func1(CharIndex, 'C')) Proc6(Ident1, &EnumLoc); IntLoc3 = IntLoc2 * IntLoc1; IntLoc2 = IntLoc3 / IntLoc1; IntLoc2 = 7 * (IntLoc3 - IntLoc2) - IntLoc1; Proc2(&IntLoc1); } /***************** -- Stop Timer -- *****************/ #ifdef TIME benchtime = (float) (clock() - starttime - nulltime) / CLOCKS_PER_SEC; printf("Dhrystone(%s) time for %ld passes = %f\n", Version, (long) LOOPS, benchtime); printf("This machine benchmarks at %f dhrystones/second\n", ((long) LOOPS) / benchtime); #endif #ifdef TIMES times(&tms); benchtime = tms.tms_utime - starttime - nulltime; printf("Dhrystone(%s) time for %ld passes = %ld\n", Version, (long) LOOPS, benchtime / HZ); printf("This machine benchmarks at %ld dhrystones/second\n", (long) ((LOOPS * HZ) / benchtime)); #endif } #ifdef NOSTRUCTASSIGN memcpy(d, s, l) register unsigned char *d; register unsigned char *s; register int l; { while (l--) *d++ = *s++; } #endif