From 0f96fd143cd249110dcdeabea7fd8972b91b86c6 Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Tue, 25 Apr 2017 13:37:18 +0000 Subject: err_vars.ads, [...]: Eliminate the vestigial Internal_Source_File and the Internal_Source buffer. 2017-04-25 Bob Duff * err_vars.ads, fmap.adb, fmap.ads, comperr.adb, fname-sf.adb, types.adb, types.ads, types.h, sinput-l.adb, targparm.adb, errout.adb, sinput.adb, sinput.ads, cstand.adb, scn.adb, scn.ads, gnatls.adb: Eliminate the vestigial Internal_Source_File and the Internal_Source buffer. This removes the incorrect call to "=" the customer noticed. Wrap remaining calls to "=" in Null_Source_Buffer_Ptr. We eventually need to eliminate them altogether. Or else get rid of zero-origin addressing. From-SVN: r247234 --- gcc/ada/comperr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/comperr.adb') diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index 0403524..0892a86 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -265,7 +265,7 @@ package body Comperr is -- If we get a Src file, we use it - if Src /= null then + if not Null_Source_Buffer_Ptr (Src) then Lo := 0; Outer : while Lo < Hi loop -- cgit v1.1