Message ID | 20100617102114.GA11034@adacore.com |
---|---|
State | New |
Headers | show |
Index: sprint.adb =================================================================== --- sprint.adb (revision 160834) +++ sprint.adb (working copy) @@ -403,7 +403,8 @@ package body Sprint is procedure pg (Arg : Union_Id) is begin Dump_Generated_Only := True; - Dump_Original_Only := False; + Dump_Original_Only := False; + Dump_Freeze_Null := True; Current_Source_File := No_Source_File; if Arg in List_Range then