Message ID | 20111107162552.GA21262@adacore.com |
---|---|
State | New |
Headers | show |
Index: sem_util.adb =================================================================== --- sem_util.adb (revision 181092) +++ sem_util.adb (working copy) @@ -10837,7 +10837,9 @@ -- source. This excludes, for example, calls to a dispatching -- assignment operation when the left-hand side is tagged. - if Modification_Comes_From_Source then + if Modification_Comes_From_Source + or else Alfa_Mode + then Generate_Reference (Ent, Exp, 'm'); -- If the target of the assignment is the bound variable