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 b0b9a353a..45507a52e 100644 --- a/src/ortho/mcode/ortho_code-disps.adb +++ b/src/ortho/mcode/ortho_code-disps.adb @@ -291,7 +291,7 @@ package body Ortho_Code.Disps is Put ("alloca ("); Disp_Expr (Get_Expr_Operand (Expr)); Put (")"); - when OE_Conv => + when OE_Conv_Ov => Disp_Type (Get_Conv_Type (Expr)); Put ("'conv ("); Disp_Expr (Get_Expr_Operand (Expr)); |