[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Bug#673772: mips: ATC with syscalls not working



Package: gnat-4.9
Followup-For: Bug #673772
Control: retitle: ATC with syscalls not working
Control: reassign -1 gnat-5 5.2.1-19

As I understand the reference manual, the following program
  with Ada.Calendar; use Ada.Calendar;
  with Ada.Text_IO;  use Ada.Text_IO;
  with Interfaces.C; use Interfaces.C;
  procedure Main is
     function usleep (Secs : int) return int;
     pragma Import (C, usleep, "usleep");
     Res        : int;
     Start_Time : Time := Clock;
  begin
     select
        delay 1.0;
        Put_Line ("OK:" & Integer'Image (Integer (Clock - Start_Time)));
     then abort
        Res := usleep (10_000_000);
        Put_Line ("KO:" & Integer'Image (Integer (Clock - Start_Time)));
     end select;
  end Main;
should produce
  OK: 1
Instead, on amd64 with gnat-5.2.1-17:
  KO: 1
  OK: 1
and on mips with gnat-5.2.1-19:
  KO: 10
  OK: 10


Reply to: