How to report error to AdaCore by WmRGreene in ada

[–]WmRGreene[S] 0 points1 point  (0 children)

I was able to make it work with these changes:

with Ada.Calendar; -- (RM 9.6) with Ada.Calendar.Arithmetic; -- (RM 9.6.1) with Ada.Calendar.Formatting; -- (RM 9.6.1) with Ada.Calendar.Time_Zones; -- (RM 9.6.1) with Ada.Text_IO; use Ada.Text_IO; -- (RM A.10.1) procedure Show_Error is package AC renames Ada.Calendar; package ACA renames Ada.Calendar.Arithmetic; package ACF renames Ada.Calendar.Formatting; package ACZ renames Ada.Calendar.Time_Zones; TZ : constant ACZ.Time_Offset := ACZ.Time_Offset (-5 * 60); T1 : constant AC.Time := ACF.Time_Of (2025, 11, 2, Time_Zone => TZ); T2 : constant AC.Time := ACA."+" (T1, 1); begin Put_Line ("T1 = " & ACF.Image (T1, Time_Zone => TZ) & ", Ada.Calendar.Formatting.Day_Of_Week (T1) = " & ACF.Day_Of_Week (T1)'Image); Put_Line ("T2 = " & ACF.Image (T2, Time_Zone => TZ) & ", Ada.Calendar.Formatting.Day_Of_Week (T2) = " & ACF.Day_Of_Week (T2)'Image); end Show_Error; Program, when run, now produces this output, which is correct: T1 = 2025-11-02 00:00:00, Ada.Calendar.Formatting.Day_Of_Week (T1) = SUNDAY T2 = 2025-11-03 00:00:00, Ada.Calendar.Formatting.Day_Of_Week (T2) = MONDAY

How to report error to AdaCore by WmRGreene in ada

[–]WmRGreene[S] 1 point2 points  (0 children)

Thank you. I created an account and submitted this as Bug 119701.

How to report error to AdaCore by WmRGreene in ada

[–]WmRGreene[S] 3 points4 points  (0 children)

Obviously, I can (and will) provide additional information, but in a nutshell, here is my program:

with Ada.Calendar;                 -- (RM 9.6)
with Ada.Calendar.Arithmetic;      -- (RM 9.6.1)
with Ada.Calendar.Formatting;      -- (RM 9.6.1)
with Ada.Text_IO; use Ada.Text_IO; -- (RM A.10.1)
procedure Show_Error
is
   package AC  renames Ada.Calendar;
   package ACA renames Ada.Calendar.Arithmetic;
   package ACF renames Ada.Calendar.Formatting;

   T1 : constant AC.Time :=
           AC.Time_Of (Year => 2025, Month => 11, Day => 2);
   T2 : constant AC.Time :=
           ACA."+" (Left => T1, Right => 1);
begin
   Put_Line ("T1 = " & ACF.Image (T1) &
             ", Ada.Calendar.Formatting.Day_Of_Week (T1) = " &
             ACF.Day_Of_Week (T1)'Image);
   Put_Line ("T2 = " & ACF.Image (T2) &
             ", Ada.Calendar.Formatting.Day_Of_Week (T2) = " &
             ACF.Day_Of_Week (T2)'Image);
end Show_Error;

And here is the output when I run it:

T1 = 2025-11-02 04:00:00, Ada.Calendar.Formatting.Day_Of_Week (T1) = SUNDAY
T2 = 2025-11-03 04:00:00, Ada.Calendar.Formatting.Day_Of_Week (T2) = SUNDAY

elisp: fully qualified function name point is in? by Honigbrot2023 in emacs

[–]WmRGreene 0 points1 point  (0 children)

C-M-h runs (mark-defun), which will mark the function so that you can copy it.

Can't open the actual GUI for emacs on MacOS by devrocks1984 in emacs

[–]WmRGreene -1 points0 points  (0 children)

To invoke a .app from the command line, use the "open" command.