🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.lang.modula2
Article #2790

Re: TopSpeed and assembler

#2790
From: Martin Tom Brown
Date: Thu, 07 Sep 1995 15:40
32 lines
1606 bytes
In article <DE6v4z.3FI@cix.compulink.co.uk>
           mark_tbu@cix.compulink.co.uk "Mark Morgan Lloyd " writes:

> I've floated the problem past an ex-Clarion friend, and have some 
> hand-written notes as below:
> 
> -----8<-----
> 
> Put something like the following in your .PR file:
> 
> #if optimise(cpu) = '86' #then
>   #pragma define(cpu86=>on, cpu286=>off, cpu386=>off, cpu486=>off)
> #elsif optimise(cpu) = '286' #then
>   #pragma define(cpu86=>off, cpu286=>on, cpu386=>off, cpu486=>off)
> #elsif optimise(cpu) = '386' #then
> 
>         you get the idea?

Absolutely right on the nail - it works just fine!! 

The only minor catch is that you must spell optimize(cpu) with a "Z"
					             ^
I only wanted to tag when I can use 386/486 instructions so
now we have the solution. And by impliction the way to access
any and all of the JPI compiler environment parameters. 

Please relay many thanks to your ex-Clarion friend!

Best regards,
-- 
Martin Brown  <martin@nezumi.demon.co.uk>     __                CIS: 71651,470
Scientific Software Consultancy             /^,,)__/
Technical Details
Message-ID: <810488441snz@nezumi.demon.co.uk>
Path: arc1-ca.pugleaf.net!mail2news.demon.co.uk!nezumi.demon.co.uk
References: <809443163snz@nezumi.demon.co.uk> <DE6v4z.3FI@cix.compulink.co.uk>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!mail2news.demon.co.uk!nezumi.demon.co.uk
From: Martin Tom Brown <Martin@nezumi.demon.co.uk>
Newsgroups: comp.lang.modula2
Subject: Re: TopSpeed and assembler
Date: Thu, 07 Sep 95 15:40:41 GMT
Organization: Nezumi
Message-ID: <810488441snz@nezumi.demon.co.uk>
References: <809443163snz@nezumi.demon.co.uk> <DE6v4z.3FI@cix.compulink.co.uk>
Reply-To: Martin@nezumi.demon.co.uk
X-NNTP-Posting-Host: nezumi.demon.co.uk
X-Newsreader: Demon Internet Simple News v1.29