diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-11-14 21:54:50 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-11-14 21:54:50 +0100 |
| commit | 20ea3682027c0725a02797665b58dc4adb382851 (patch) | |
| tree | 76250347bbc66272781e9d7e34efeaa88ac39696 /src/ortho/mcode/ortho_code-exprs.adb | |
| parent | 826d00295979c7b5e88e1150c191ebc2f9302f52 (diff) | |
| download | ghdl-20ea3682027c0725a02797665b58dc4adb382851.tar.gz ghdl-20ea3682027c0725a02797665b58dc4adb382851.tar.bz2 ghdl-20ea3682027c0725a02797665b58dc4adb382851.zip | |
mcode x86: fix regressions.
Diffstat (limited to 'src/ortho/mcode/ortho_code-exprs.adb')
| -rw-r--r-- | src/ortho/mcode/ortho_code-exprs.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/ortho/mcode/ortho_code-exprs.adb b/src/ortho/mcode/ortho_code-exprs.adb index a45c9f802..17a47f41c 100644 --- a/src/ortho/mcode/ortho_code-exprs.adb +++ b/src/ortho/mcode/ortho_code-exprs.adb @@ -185,6 +185,11 @@ package body Ortho_Code.Exprs is return Int32 (Enodes.Table (Enode).Arg1); end Get_Stack_Adjust; + procedure Set_Stack_Adjust (Enode : O_Enode; Off : Int32) is + begin + Enodes.Table (Enode).Arg1 := O_Enode (Off); + end Set_Stack_Adjust; + function Get_Arg_Link (Enode : O_Enode) return O_Enode is begin return Enodes.Table (Enode).Arg2; @@ -582,9 +587,7 @@ package body Ortho_Code.Exprs is -- Disp declarations. if Cur_Subprg.Parent = null then - if Ortho_Code.Debug.Flag_Debug_Body - or Ortho_Code.Debug.Flag_Debug_Code - then + if Ortho_Code.Debug.Flag_Debug_Code then while Last_Decl <= D_Body loop case Get_Decl_Kind (Last_Decl) is when OD_Block => |