diff options
Diffstat (limited to 'src/ghdldrv/ghdlprint.adb')
-rw-r--r-- | src/ghdldrv/ghdlprint.adb | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlprint.adb b/src/ghdldrv/ghdlprint.adb index b02c93fdd..7a7aee408 100644 --- a/src/ghdldrv/ghdlprint.adb +++ b/src/ghdldrv/ghdlprint.adb @@ -965,6 +965,7 @@ package body Ghdlprint is Flag_Sem : Boolean := True; Flag_Format : Boolean := False; Flag_Indent : Boolean := False; + Flag_Force : Boolean := False; First_Line : Positive := 1; Last_Line : Positive := Positive'Last; end record; @@ -1011,6 +1012,9 @@ package body Ghdlprint is Cmd.Flag_Format := False; Cmd.Flag_Indent := True; Res := Option_Ok; + elsif Option = "--force" then + Cmd.Flag_Force := True; + Res := Option_Ok; elsif Option'Length > 8 and then Option (1 .. 8) = "--range=" then declare F : constant Natural := 9; @@ -1066,7 +1070,7 @@ package body Ghdlprint is Id := Name_Table.Get_Identifier (Args (I).all); Design_File := Load_File_Name (Id); if Design_File = Null_Iir - or else Errorout.Nbr_Errors > 0 + or else (Errorout.Nbr_Errors > 0 and not Cmd.Flag_Force) then raise Errorout.Compilation_Error; end if; @@ -1085,10 +1089,12 @@ package body Ghdlprint is end if; Next_Unit := Get_Chain (Unit); + if not (Cmd.Flag_Format or Cmd.Flag_Indent) + and then (Errorout.Nbr_Errors = 0 or Cmd.Flag_Force) + then + Vhdl.Prints.Disp_Vhdl (Unit); + end if; if Errorout.Nbr_Errors = 0 then - if not (Cmd.Flag_Format or Cmd.Flag_Indent) then - Vhdl.Prints.Disp_Vhdl (Unit); - end if; if Cmd.Flag_Sem then Set_Chain (Unit, Null_Iir); Libraries.Add_Design_Unit_Into_Library (Unit); |