diff options
| author | gingold | 2009-08-13 03:59:39 +0000 |
|---|---|---|
| committer | gingold | 2009-08-13 03:59:39 +0000 |
| commit | d1fddff66ad93c7efe5761a94029fa300d35aa4b (patch) | |
| tree | fa4807be06a130234ad01e9df9e48dbd5ec4115f /ortho/mcode/ortho_mcode.ads | |
| parent | 755b49ce34a14ff78d6065b1627248b1b9fac06b (diff) | |
| download | ghdl-d1fddff66ad93c7efe5761a94029fa300d35aa4b.tar.gz ghdl-d1fddff66ad93c7efe5761a94029fa300d35aa4b.tar.bz2 ghdl-d1fddff66ad93c7efe5761a94029fa300d35aa4b.zip | |
Preliminary work for LLVM.
Preliminary work for SSE.
Diffstat (limited to 'ortho/mcode/ortho_mcode.ads')
| -rw-r--r-- | ortho/mcode/ortho_mcode.ads | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/ortho/mcode/ortho_mcode.ads b/ortho/mcode/ortho_mcode.ads index d408d56..9ea4c89 100644 --- a/ortho/mcode/ortho_mcode.ads +++ b/ortho/mcode/ortho_mcode.ads @@ -443,8 +443,10 @@ package Ortho_Mcode is procedure New_Debug_Comment_Stmt (Comment : String); -- Start a declarative region. - procedure Start_Declare_Stmt; - procedure Finish_Declare_Stmt; + procedure Start_Declare_Stmt renames + Ortho_Code.Exprs.Start_Declare_Stmt; + procedure Finish_Declare_Stmt renames + Ortho_Code.Exprs.Finish_Declare_Stmt; -- Create a function call or a procedure call. procedure Start_Association (Assocs : out O_Assoc_List; Subprg : O_Dnode) @@ -471,9 +473,6 @@ package Ortho_Mcode is -- Build an IF statement. procedure Start_If_Stmt (Block : out O_If_Block; Cond : O_Enode) renames Ortho_Code.Exprs.Start_If_Stmt; - -- COND is NULL for the final else statement. - procedure New_Elsif_Stmt (Block : in out O_If_Block; Cond : O_Enode) - renames Ortho_Code.Exprs.New_Elsif_Stmt; procedure New_Else_Stmt (Block : in out O_If_Block) renames Ortho_Code.Exprs.New_Else_Stmt; procedure Finish_If_Stmt (Block : in out O_If_Block) |