diff options
| author | Tristan Gingold | 2015-11-14 21:54:50 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-11-14 21:54:50 +0100 |
| commit | 20ea3682027c0725a02797665b58dc4adb382851 (patch) | |
| tree | 76250347bbc66272781e9d7e34efeaa88ac39696 /src/ortho/mcode/ortho_code-exprs.ads | |
| 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.ads')
| -rw-r--r-- | src/ortho/mcode/ortho_code-exprs.ads | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_code-exprs.ads b/src/ortho/mcode/ortho_code-exprs.ads index f8ee88a..971c57a 100644 --- a/src/ortho/mcode/ortho_code-exprs.ads +++ b/src/ortho/mcode/ortho_code-exprs.ads @@ -339,6 +339,7 @@ package Ortho_Code.Exprs is -- stack pointer stays aligned. For negtive values, this is the amount of -- bytes to release on the stack. function Get_Stack_Adjust (Enode : O_Enode) return Int32; + procedure Set_Stack_Adjust (Enode : O_Enode; Off : Int32); -- Get the subprogram called by ENODE. function Get_Call_Subprg (Enode : O_Enode) return O_Dnode; |