Path: utzoo!attcan!uunet!lotus!esegue!compilers-sender
From: mikeh@inmet.inmet.com
Newsgroups: comp.compilers
Subject: Re: intermetrics z80 inefficiencies
Keywords: C, Z80
Message-ID: <1990Jul26.230657.5831@esegue.segue.boston.ma.us>
Date: 26 Jul 90 23:06:57 GMT
References: <231931@<1990Jul17>
Sender: compilers-sender@esegue.segue.boston.ma.us
Reply-To: mikeh@inmet.inmet.com
Organization: Compilers Central
Lines: 51
Approved: compilers@esegue.segue.boston.ma.us
Nf-ID: #R:<1990Jul17:231931:inmet:19400002:000:1430
Nf-From: inmet.inmet.com!mikeh    Jul 25 17:43:00 1990


It was recognized several years ago that Intermetrics needed to strengthen
its 8-bit compiler line to compete in the marketplace.  This was achieved
when Intermetrics merged with Whitesmiths Ltd. in December 1988, giving
Intermetrics a new line of state-of-the-art 8-bit compilers.  These compilers
are as good or better than any found in the marketplace today. Below is the
same source code as posted in the previous note compiled with the Whitesmiths
z80 compiler.

   /*********************************************************************/
   Here is the equivalent C & asm listing of the Whitesmiths z80 compiler
   /*********************************************************************/

		.psect	_text
	;    1  struct { char a[25]; char friend; } noptr, *ptr;
	;    2  
	;    3  void func(void)
	;    4             {
	_func:
	;    5             if(ptr->friend==1);
	   	ld	hl,(_ptr)
		ld	bc,25
		add	hl,bc
		ld	a,(hl)
		cp	1
	;    6             if(noptr.friend==1);
		ld	a,(_noptr+25)
		cp	1
	;    7             }
		ret 
		.psect	_bss
	_ptr:
		.byte	[2]
	_noptr:
		.byte	[26]
		.public	_ptr
		.public	_noptr
		.public	_func
        	.end

	
   /*****************************************************************/
	Please contact us if you have comments or questions.

	Intermetrics Inc.
	733 Concord Ave.
	Cambridge, MA 02138
	617-661-0072
-- 
Send compilers articles to compilers@esegue.segue.boston.ma.us
{spdcc | ima | lotus| world}!esegue.  Meta-mail to compilers-request@esegue.