From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.236.1.200 with SMTP id 48mr48733154yhd.41.1427877741575; Wed, 01 Apr 2015 01:42:21 -0700 (PDT) X-Received: by 10.140.41.104 with SMTP id y95mr613556qgy.7.1427877741551; Wed, 01 Apr 2015 01:42:21 -0700 (PDT) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!q107no1042327qgd.1!news-out.google.com!q90ni2qgd.1!nntp.google.com!q107no1042326qgd.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Wed, 1 Apr 2015 01:42:21 -0700 (PDT) Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=5.81.81.32; posting-account=28F2IwkAAACL1Z5nRC-dE7zuvWdbWC7P NNTP-Posting-Host: 5.81.81.32 User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: I've not seen this error before From: tonyg Injection-Date: Wed, 01 Apr 2015 08:42:21 +0000 Content-Type: text/plain; charset=ISO-8859-1 X-Received-Bytes: 3396 X-Received-Body-CRC: 2252074167 Xref: news.eternal-september.org comp.lang.ada:25356 Date: 2015-04-01T01:42:21-07:00 List-Id: 2015-04-01 09:19:32.10 : Exception name: PROGRAM_ERROR Message: adjust/finalize raised PROGRAM_ERROR: device_type_pkg.ads:115 finalize/adjust raised exception the code is an ada specification type Device_Details_Type is record Device_Id : Device_Index_Type; The_Device : Device_Class_Type; Room_Id : Room_Id_Type; The_Id : Domoticz_ID_Type; Battery_Level : Battery_Level_Type; Signal_Level : Signal_Level_Type; Name : SU.Unbounded_String; Last_Update : AC.Time; Used : boolean ; Successful_Initialisation : boolean := false; Temperature : Temp_Xten_Type; Protected_Device : boolean; end record; The stack trace passed through addr2line (etc) is different /home/tony/Dropbox/source/common/schedules_rooms_devices_indexes_pkg.adb:694 (discriminator 3) /home/tony/Dropbox/source/common/schedules_rooms_devices_indexes_pkg.adb:689 /home/tony/Dropbox/source/common/schedules_rooms_devices_indexes_pkg.adb:342 /home/tony/Dropbox/source/common/schedules_rooms_devices_indexes_pkg.adb:356 (discriminator 2) /home/tony/Dropbox/source/common/data_feed_update_pkg.adb:73 (discriminator 2) /home/tony/Dropbox/source/common/data_feed_update_pkg.adb:48 /home/tony/Dropbox/source/common/data_feed_update_pkg.adb:41 /home/tony/Dropbox/source/common/decision_maker_pkg.adb:29 (discriminator 2) s-tassta.adb:? which is this and is a procedural call inside a protected object procedure Set_Device (Device : in Device_Details_Type) is begin if Initialised then gnoga.log("Device id " & Device.Device_Id'img); Device_Array(Device.Device_Id) :=Device; -- LINE 694 where the error is reported if Device.Device_Id > 0 then Device_File_Storage.Save_Record (File_Item => Device, To => Device.Device_Id); else Gnoga.log ("Zero Device Id Device Record NOT SAVED TO DISK"); end if; else Gnoga.Log("Devices not loaded from disk"); end if; exception when E : others => Gnoga.log (Ada.Exceptions.Exception_Information (E)); end Set_Device; The array that is being written to is a fixed array. There is a value of Ada.Calendar.Time in the record but I cannot see why this would cause the problem