Skip to content

Commit

Permalink
[Ada] Clean up in Interfaces.C.Extensions
Browse files Browse the repository at this point in the history
gcc/ada/

	* libgnat/i-cexten.ads (long_long, unsigned_long_long): Now
	subtypes of Interfaces.C types.
	* libgnat/a-calcon.ads, libgnat/a-calcon.adb
	(To_Unix_Nano_Time): Use Interfaces.C.long_long instead of
	Interfaces.C.Extensions.long_long.
  • Loading branch information
ArnaudCharlet authored and pmderodat committed Jul 8, 2020
1 parent b19c922 commit eafbde5
Show file tree
Hide file tree
Showing 3 changed files with 3 additions and 5 deletions.
1 change: 0 additions & 1 deletion gcc/ada/libgnat/a-calcon.adb
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,6 @@
------------------------------------------------------------------------------

with Interfaces.C; use Interfaces.C;
with Interfaces.C.Extensions; use Interfaces.C.Extensions;

package body Ada.Calendar.Conversions is

Expand Down
3 changes: 1 addition & 2 deletions gcc/ada/libgnat/a-calcon.ads
Original file line number Diff line number Diff line change
Expand Up @@ -33,7 +33,6 @@
-- time models - Time, Duration, struct tm and struct timespec.

with Interfaces.C;
with Interfaces.C.Extensions;

package Ada.Calendar.Conversions is

Expand Down Expand Up @@ -112,7 +111,7 @@ package Ada.Calendar.Conversions is
-- fit into a Time value.

function To_Unix_Nano_Time
(Ada_Time : Time) return Interfaces.C.Extensions.long_long;
(Ada_Time : Time) return Interfaces.C.long_long;
-- Convert a time value represented as number of time units since the Ada
-- implementation-defined Epoch to a value relative to the Unix Epoch. The
-- units of the result are nanoseconds. Raises Time_Error if the result
Expand Down
4 changes: 2 additions & 2 deletions gcc/ada/libgnat/i-cexten.ads
Original file line number Diff line number Diff line change
Expand Up @@ -61,8 +61,8 @@ package Interfaces.C.Extensions is

-- 64-bit integer types

subtype long_long is Long_Long_Integer;
type unsigned_long_long is mod 2 ** 64;
subtype long_long is Interfaces.C.long_long;
subtype unsigned_long_long is Interfaces.C.unsigned_long_long;

-- 128-bit integer type available on 64-bit platforms:
-- typedef int signed_128 __attribute__ ((mode (TI)));
Expand Down

0 comments on commit eafbde5

Please sign in to comment.