diff options
| author | Tristan Gingold | 2014-03-08 07:04:05 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-03-08 07:04:05 +0100 |
| commit | e6001445a14d5e96db78ff56c68d8ae96dec0968 (patch) | |
| tree | 77394e40d752c04e5f4ce61b0c868aa2d4b06fa3 /ortho/mcode/ortho_mcode-jit.ads | |
| parent | d9bb785009b005cc314f063ae05b8974fd8f4bf2 (diff) | |
| download | ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.tar.gz ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.tar.bz2 ghdl-e6001445a14d5e96db78ff56c68d8ae96dec0968.zip | |
Share spec of ortho_nodes, adjust code.
Diffstat (limited to 'ortho/mcode/ortho_mcode-jit.ads')
| -rw-r--r-- | ortho/mcode/ortho_mcode-jit.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_mcode-jit.ads b/ortho/mcode/ortho_mcode-jit.ads new file mode 100644 index 0000000..c689a1e --- /dev/null +++ b/ortho/mcode/ortho_mcode-jit.ads @@ -0,0 +1,9 @@ +with System; use System; + +package Ortho_Mcode.Jit is + -- Set address of non-defined global variables or functions. + procedure Set_Address (Decl : O_Dnode; Addr : Address); + + -- Get address of a global. + function Get_Address (Decl : O_Dnode) return Address; +end Ortho_Mcode.Jit; |