From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on ip-172-31-65-14.ec2.internal X-Spam-Level: X-Spam-Status: No, score=-1.9 required=3.0 tests=BAYES_00,T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Received: by 2002:ac8:5948:0:b0:401:e192:fc61 with SMTP id 8-20020ac85948000000b00401e192fc61mr11773qtz.7.1688153303278; Fri, 30 Jun 2023 12:28:23 -0700 (PDT) X-Received: by 2002:a17:90a:4205:b0:262:f758:9ad4 with SMTP id o5-20020a17090a420500b00262f7589ad4mr2180653pjg.1.1688153302720; Fri, 30 Jun 2023 12:28:22 -0700 (PDT) Path: eternal-september.org!news.eternal-september.org!weretis.net!feeder8.news.weretis.net!3.eu.feeder.erje.net!feeder.erje.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Fri, 30 Jun 2023 12:28:22 -0700 (PDT) Injection-Info: google-groups.googlegroups.com; posting-host=84.202.177.60; posting-account=1IjL1QoAAACctxlLLMeV34DU0ik-1SwI NNTP-Posting-Host: 84.202.177.60 User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: <55561d4b-8288-4770-a7b5-681567752ab0n@googlegroups.com> Subject: GNAT Community 2020 (20200818-93): Big_Integer From: =?UTF-8?B?RnJhbmsgSsO4cmdlbiBKw7hyZ2Vuc2Vu?= Injection-Date: Fri, 30 Jun 2023 19:28:23 +0000 Content-Type: text/plain; charset="UTF-8" Xref: news.eternal-september.org comp.lang.ada:65388 List-Id: Hi I'm running the below program with GNAT Community 2020 (20200818-93) on Windows 11 Home. I have some problems trying to save big numbers to a file - so I noticed this behaviour: If I open Test.dat in Visual Studio Hex editor, it seems like this program saves this big number with a different bit pattern each time. Is that as expected? I do have some problems reading back the big numbers in my real code. When I compile I get the warning: "Ada.Numerics.Big_Numbers.Big_Integers" is an Ada 202x unit. Frank -- with Ada.Streams.Stream_IO; use Ada.Streams.Stream_IO; with Ada.Numerics.Big_Numbers.Big_Integers; procedure Test is B1 : Ada.Numerics.Big_Numbers.Big_Integers.Big_Integer; F1 : File_Type; S1 : Stream_Access; begin B1 := 1; Ada.Streams.Stream_IO.Create (F1, Out_File, "Test.dat"); S1 := Ada.Streams.Stream_IO.Stream (F1); Ada.Numerics.Big_Numbers.Big_Integers.Big_Integer'Write(S1, B1); Ada.Numerics.Big_Numbers.Big_Integers.Big_Integer'Output(S1, B1); Ada.Streams.Stream_IO.Close (F1); end Test;