- BYTE arithmetic

From: Treutwein Bernhard <"Treutwein>
Date: Wed, 21 Jun 2006 17:23:07 +0200

----boundary-LibPST-iamunique-1883570151_-_-
Content-type: text/plain

> Is this what the Language Report requires?
>

yes, citing the Language Report:

        The operators +, -, *, and / apply to operands of numeric
        types. The type of the result is REAL if the operation is
        a division (/) or one of the operand types is a REAL.
        Otherwise the result type is SHORTREAL if one of the operand
        types is SHORTREAL, LONGINT if one of the operand types is
        LONGINT, or INTEGER in any other case.

Beware also that the following loops for ever:

VAR
  b : BYTE;
...

FOR b := 0 TO MAX(BYTE) DO
        ...
END

since it is silently wraps according to the definition
of FOR as

temp := end; v := beg;
WHILE v <= temp DO statements; INC(v) END

regards

--
	Bernhard Treutwein, IuK, Ref. III A 3
	Bernhard.Treutwein(at)verwaltung uni-muenchen de
> -----Original Message-----
> From: blackbox{([at]})nowhere.xy> Behalf Of Campbell, Robert D (SELEX) (UK Edinburgh)
> Sent: Wednesday, June 21, 2006 4:17 PM
> To: BlackBox Mailing List
> Subject: [BlackBox] - BYTE arithmetic
> 
> 
> 
> Hi,
> 
> I was surprised to find that the
> Following code does not compile:
> 
> VAR
>   b : BYTE;
> BEGIN
>   b  :=  -b
> 
> 
> Same thing with SHORTINTs.
> 
> Is this what the Language Report requires?
> 
> Robert
> 
> (PS - I have not tried this on the Gardens Point
> Compiler!)
> 
> ********************************************************************
> This email and any attachments are confidential to the 
> intended recipient and may also be privileged. If you are not 
> the intended recipient please delete it from your system and 
> notify the sender. You should not copy it or use it for any 
> purpose nor disclose or distribute its contents to any other person.
> ********************************************************************
> 
> --- BlackBox
> --- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy> 
> 
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy----boundary-LibPST-iamunique-1883570151_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4gSXMgdGhpcyB3aGF0IHRoZSBMYW5ndWFnZSBS
ZXBvcnQgcmVxdWlyZXM/XHBhcg0KPlxwYXINClxwYXINCnllcywgY2l0aW5nIHRoZSBMYW5ndWFn
ZSBSZXBvcnQ6XHBhcg0KXHBhcg0KXHRhYiBUaGUgb3BlcmF0b3JzICssIC0sICosIGFuZCAvIGFw
cGx5IHRvIG9wZXJhbmRzIG9mIG51bWVyaWMgXHBhcg0KXHRhYiB0eXBlcy4gVGhlIHR5cGUgb2Yg
dGhlIHJlc3VsdCBpcyBSRUFMIGlmIHRoZSBvcGVyYXRpb24gaXMgXHBhcg0KXHRhYiBhIGRpdmlz
aW9uICgvKSBvciBvbmUgb2YgdGhlIG9wZXJhbmQgdHlwZXMgaXMgYSBSRUFMLiBccGFyDQpcdGFi
IE90aGVyd2lzZSB0aGUgcmVzdWx0IHR5cGUgaXMgU0hPUlRSRUFMIGlmIG9uZSBvZiB0aGUgb3Bl
cmFuZCBccGFyDQpcdGFiIHR5cGVzIGlzIFNIT1JUUkVBTCwgTE9OR0lOVCBpZiBvbmUgb2YgdGhl
IG9wZXJhbmQgdHlwZXMgaXMgXHBhcg0KXHRhYiBMT05HSU5ULCBvciBJTlRFR0VSIGluIGFueSBv
dGhlciBjYXNlLiBccGFyDQpccGFyDQpCZXdhcmUgYWxzbyB0aGF0IHRoZSBmb2xsb3dpbmcgbG9v
cHMgZm9yIGV2ZXI6XHBhcg0KXHBhcg0KVkFSXHBhcg0KICBiIDogQllURTtccGFyDQouLi5ccGFy
DQpccGFyDQpGT1IgYiA6PSAwIFRPIE1BWChCWVRFKSBET1xwYXINClx0YWIgLi4uXHBhcg0KRU5E
XHBhcg0KXHBhcg0Kc2luY2UgaXQgaXMgc2lsZW50bHkgd3JhcHMgYWNjb3JkaW5nIHRvIHRoZSBk
ZWZpbml0aW9uXHBhcg0Kb2YgRk9SIGFzIFxwYXINClxwYXINCnRlbXAgOj0gZW5kOyB2IDo9IGJl
ZztccGFyDQpXSElMRSB2IDw9IHRlbXAgRE8gc3RhdGVtZW50czsgSU5DKHYpIEVORFxwYXINClxw
YXINCnJlZ2FyZHNccGFyDQotLVxwYXINClx0YWIgQmVybmhhcmQgVHJldXR3ZWluLCBJdUssIFJl
Zi4gSUlJIEEgM1xwYXINClx0YWIgQmVybmhhcmQuVHJldXR3ZWluKGF0KXZlcndhbHR1bmcgdW5p
LW11ZW5jaGVuIGRlXHBhcg0KXHBhcg0KPiAtLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxwYXIN
Cj4gRnJvbTogYmxhY2tib3hAb2Jlcm9uLmNoIFttYWlsdG86YmxhY2tib3hAb2Jlcm9uLmNoXSBP
biBccGFyDQo+IEJlaGFsZiBPZiBDYW1wYmVsbCwgUm9iZXJ0IEQgKFNFTEVYKSAoVUsgRWRpbmJ1
cmdoKVxwYXINCj4gU2VudDogV2VkbmVzZGF5LCBKdW5lIDIxLCAyMDA2IDQ6MTcgUE1ccGFyDQo+
IFRvOiBCbGFja0JveCBNYWlsaW5nIExpc3RccGFyDQo+IFN1YmplY3Q6IFtCbGFja0JveF0gLSBC
WVRFIGFyaXRobWV0aWNccGFyDQo+IFxwYXINCj4gXHBhcg0KPiBccGFyDQo+IEhpLFxwYXINCj4g
XHBhcg0KPiBJIHdhcyBzdXJwcmlzZWQgdG8gZmluZCB0aGF0IHRoZVxwYXINCj4gRm9sbG93aW5n
IGNvZGUgZG9lcyBub3QgY29tcGlsZTpccGFyDQo+IFxwYXINCj4gVkFSXHBhcg0KPiAgIGIgOiBC
WVRFO1xwYXINCj4gQkVHSU5ccGFyDQo+ICAgYiAgOj0gIC1iXHBhcg0KPiBccGFyDQo+IFxwYXIN
Cj4gU2FtZSB0aGluZyB3aXRoIFNIT1JUSU5Ucy5ccGFyDQo+IFxwYXINCj4gSXMgdGhpcyB3aGF0
IHRoZSBMYW5ndWFnZSBSZXBvcnQgcmVxdWlyZXM/XHBhcg0KPiBccGFyDQo+IFJvYmVydFxwYXIN
Cj4gXHBhcg0KPiAoUFMgLSBJIGhhdmUgbm90IHRyaWVkIHRoaXMgb24gdGhlIEdhcmRlbnMgUG9p
bnRccGFyDQo+IENvbXBpbGVyISlccGFyDQo+IFxwYXINCj4gKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKipccGFyDQo+IFRo
aXMgZW1haWwgYW5kIGFueSBhdHRhY2htZW50cyBhcmUgY29uZmlkZW50aWFsIHRvIHRoZSBccGFy
DQo+IGludGVuZGVkIHJlY2lwaWVudCBhbmQgbWF5IGFsc28gYmUgcHJpdmlsZWdlZC4gSWYgeW91
IGFyZSBub3QgXHBhcg0KPiB0aGUgaW50ZW5kZWQgcmVjaXBpZW50IHBsZWFzZSBkZWxldGUgaXQg
ZnJvbSB5b3VyIHN5c3RlbSBhbmQgXHBhcg0KPiBub3RpZnkgdGhlIHNlbmRlci4gWW91IHNob3Vs
ZCBub3QgY29weSBpdCBvciB1c2UgaXQgZm9yIGFueSBccGFyDQo+IHB1cnBvc2Ugbm9yIGRpc2Ns
b3NlIG9yIGRpc3RyaWJ1dGUgaXRzIGNvbnRlbnRzIHRvIGFueSBvdGhlciBwZXJzb24uXHBhcg0K
PiAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKlxwYXINCj4gXHBhcg0KPiAtLS0gQmxhY2tCb3hccGFyDQo+IC0tLSBzZW5k
IHN1YmplY3QgSEVMUCBvciBVTlNVQlNDUklCRSB0byBibGFja2JveEBvYmVyb24uY2hccGFyDQo+
IFxwYXINCj4gXHBhcg0KXHBhcg0KLS0tIEJsYWNrQm94XHBhcg0KLS0tIHNlbmQgc3ViamVjdCBI
RUxQIG9yIFVOU1VCU0NSSUJFIHRvIGJsYWNrYm94QG9iZXJvbi5jaFxwYXINCn19AGsNCk0
----boundary-LibPST-iamunique-1883570151_-_---

Received on Wed Jun 21 2006 - 17:23:07 UTC