From 15baf16d632f9425e8a955e0344a8376409db814 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 11 Nov 2015 04:40:07 +0100 Subject: mcode x86: wip: sse support. --- src/ortho/mcode/ortho_code-exprs.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/ortho/mcode/ortho_code-exprs.adb') diff --git a/src/ortho/mcode/ortho_code-exprs.adb b/src/ortho/mcode/ortho_code-exprs.adb index 7d840cb3c..a45c9f802 100644 --- a/src/ortho/mcode/ortho_code-exprs.adb +++ b/src/ortho/mcode/ortho_code-exprs.adb @@ -543,7 +543,8 @@ package body Ortho_Code.Exprs is D_Body => D_Body, Exit_Label => O_Enode_Null, Last_Stmt => O_Enode_Null, - Stack_Max => 0); + Stack_Max => 0, + Target => (others => <>)); if not Flag_Debug_Hli then Data.Exit_Label := New_Label; @@ -636,7 +637,7 @@ package body Ortho_Code.Exprs is Disp_Subprg_Body (1, Cur_Subprg.E_Entry); end if; if not Ortho_Code.Debug.Flag_Debug_Dump then - Abi.Finish_Body (Cur_Subprg); + Abi.Finish_Body; end if; end if; -- cgit v1.2.3