[BLACKBOX] INTEGER Add Has Wrong result

From: [at]} <luowy{>
Date: Wed, 6 Apr 2011 22:25:13 GMT

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

look it:

MODULE Test;
    IMPORT StdLog;

    PROCEDURE Do*();
      VAR i,j:INTEGER;l:LONGINT;
    BEGIN
      i:=MAX(INTEGER);(* 07FFFFFFH *)
      j:=1;
      l:=i+j;(* l should be 080000000L *)
      StdLog.Int(l);Log.Ln; (* ???? l:= -2147483648; 0FFFFFFFF80000000L *)
    END Do;

END Test.

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-866639895_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIGxvb2sgaXQ6XHBhcg0KXHBhcg0KTU9EVUxFIFRl
c3Q7XHBhcg0KICAgIElNUE9SVCBTdGRMb2c7XHBhcg0KXHBhcg0KICAgIFBST0NFRFVSRSBEbyoo
KTtccGFyDQogICAgICBWQVIgaSxqOklOVEVHRVI7bDpMT05HSU5UO1xwYXINCiAgICBCRUdJTlxw
YXINCiAgICAgIGk6PU1BWChJTlRFR0VSKTsoKiAwN0ZGRkZGRkggKilccGFyDQogICAgICBqOj0x
O1xwYXINCiAgICAgIGw6PWkrajsoKiBsIHNob3VsZCBiZSAwODAwMDAwMDBMICopXHBhcg0KICAg
ICAgU3RkTG9nLkludChsKTtMb2cuTG47ICgqID8/Pz8gIGw6PSAtMjE0NzQ4MzY0ODsgIDBGRkZG
RkZGRjgwMDAwMDAwTCAgICopXHBhcg0KICAgIEVORCBEbztccGFyDQpccGFyDQpFTkQgVGVzdC5c
cGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdl
IHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNI
fX0A1J0UYQ==
----boundary-LibPST-iamunique-866639895_-_---

Received on Thu Apr 07 2011 - 00:25:13 UTC