diff options
Diffstat (limited to 'src/ortho/mcode/ortho_code-disps.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-disps.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ortho/mcode/ortho_code-disps.adb b/src/ortho/mcode/ortho_code-disps.adb index e76a20f4a..d33fe403d 100644 --- a/src/ortho/mcode/ortho_code-disps.adb +++ b/src/ortho/mcode/ortho_code-disps.adb @@ -563,7 +563,7 @@ package body Ortho_Code.Disps is Put (" : "); Disp_Type (Get_Decl_Type (Decl)); Put_Line (";"); - when OD_Const_Val => + when OD_Init_Val => Put ("constant "); Disp_Decl_Name (Get_Val_Decl (Decl)); Put (" := "); |