From 1c85591cabcde20a01a2ecb90d857625a5681ae4 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 7 Jan 2015 11:12:03 +0100 Subject: [multiple changes] 2015-01-07 Robert Dewar * a-reatim.adb, make.adb, exp_pakd.adb, i-cpoint.adb, sem_ch8.adb, exp_ch3.adb: Minor reformatting. 2015-01-07 Doug Rupp * s-linux.ads (clockid_t): New subtype. * s-osinte-linux.ads (pragma Linker Options): Add -lrt. (clockid_t): New subtype. (clock_getres): Import system call. * s-taprop-linux.adb (System.OS_Constants): With and rename. (RT_Resolution): Remove hardcoded value and call clock_getres. * s-linux-sparc.ads, s-linux-mipsel.ads, s-linux-hppa.ads, s-linux-alpha.ads, s-linux-x32.ads (clockid_t): Add new subtype. 2015-01-07 Robert Dewar * sem_warn.adb (Check_One_Unit): Guard against context item with no Entity field. From-SVN: r219289 --- gcc/ada/i-cpoint.adb | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/ada/i-cpoint.adb') diff --git a/gcc/ada/i-cpoint.adb b/gcc/ada/i-cpoint.adb index 39c7bef..8da412b 100644 --- a/gcc/ada/i-cpoint.adb +++ b/gcc/ada/i-cpoint.adb @@ -145,12 +145,14 @@ package body Interfaces.C.Pointers is is L : ptrdiff_t; S : Pointer := Source; + begin if Source = null or Target = null then raise Dereference_Error; end if; -- Compute array length (including the terminator) + L := 1; while S.all /= Terminator and then L < Limit loop L := L + 1; -- cgit v1.1