diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-11-11 04:40:07 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-11-11 04:40:07 +0100 |
| commit | 15baf16d632f9425e8a955e0344a8376409db814 (patch) | |
| tree | c0366d94605524c6a5b69731e374e1c8ce9b5d3d /src/ortho/mcode/ortho_code-exprs.adb | |
| parent | 8b20df13007f67f5c25a9801e917ae4feea0826b (diff) | |
| download | ghdl-15baf16d632f9425e8a955e0344a8376409db814.tar.gz ghdl-15baf16d632f9425e8a955e0344a8376409db814.tar.bz2 ghdl-15baf16d632f9425e8a955e0344a8376409db814.zip | |
mcode x86: wip: sse support.
Diffstat (limited to 'src/ortho/mcode/ortho_code-exprs.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-exprs.adb | 5 |
1 files changed, 3 insertions, 2 deletions
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; |