Path: ...!weretis.net!feeder9.news.weretis.net!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: John Reagan <johnrreagan@earthlink.net>
Newsgroups: comp.os.vms
Subject: Re: Bliss
Date: Mon, 29 Jul 2024 18:32:59 -0400
Organization: i2pn2 (i2pn.org)
Message-ID: <b9bbec52364cae3473516190449abdcf1ba91abb@i2pn2.org>
References: <v6r3od$30fgj$2@dont-email.me> <v6r7ev$312bs$1@dont-email.me>
 <v6raga$31ano$2@dont-email.me> <v6rfb3$31ano$6@dont-email.me>
 <v6sj58$38thk$1@dont-email.me> <v7v0ia$2lbee$1@dont-email.me>
 <5b682acba9787d1d646e628c919341a130d97c20@i2pn2.org>
 <v81cpf$324sq$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Date: Mon, 29 Jul 2024 22:32:59 -0000 (UTC)
Injection-Info: i2pn2.org;
	logging-data="809304"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="85Cwws6+ypgQVu4foqgE6eSuYb0IIJZq6Fz6j0v4a/s";
User-Agent: Mozilla Thunderbird
X-Spam-Checker-Version: SpamAssassin 4.0.0
In-Reply-To: <v81cpf$324sq$1@dont-email.me>
Content-Language: en-US
Bytes: 2547
Lines: 52

On 7/26/2024 7:51 PM, Arne Vajhøj wrote:
> On 7/26/2024 3:42 PM, John Reagan wrote:
>> On 7/25/2024 10:10 PM, Lawrence D'Oliveiro wrote:
>>> Currently working my way through AA_H275C-TK (1983 edition). Adapted
>>> this example from page 15-9:
>>>
>>>      MODULE quote_test_1 =
>>>      BEGIN
>>>          OWN x;
>>>          LITERAL mark = 4;
>>>          MACRO m = mark + %UNQUOTE mark %;
>>>
>>>          GLOBAL ROUTINE doit : NOVALUE =
>>>          BEGIN
>>>              LITERAL mark = 5;
>>>              x = m;
>>>          END;
>>>
>>>      END ELUDOM
>>>
>>> When I look at the generated assembler
>>>
>>>      doit:
>>>          ...
>>>          movq    $10, x(%rip)
>>>          retq
>>>
>>> That value should be 9, not 10.
>>
>> What compiler is that from?  That isn't even PIC code.  And the $10 in 
>> the output is hex 10.
> 
> Matt Madisons open source Bliss compiler running on
> Linux.
> 
> So not one of your compilers. :-)
> 
> Arne
> 

Ah, that makes sense.  My BLISS would generate

DOIT::
00000000:  pushq   %rbp                     # 000007
00000001:  movq    %rsp,%rbp
00000004:  movq    X@GOTPCREL(%rip),%rax    # 000010
0000000B:  movl    $00000009,(%rax)
00000011:  popq    %rbp                     # 000011
00000012:  retq