diff options
Diffstat (limited to 'src/ortho/mcode/ortho_mcode-jit.ads')
| -rw-r--r-- | src/ortho/mcode/ortho_mcode-jit.ads | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/ortho/mcode/ortho_mcode-jit.ads b/src/ortho/mcode/ortho_mcode-jit.ads index c689a1e12..019538dd9 100644 --- a/src/ortho/mcode/ortho_mcode-jit.ads +++ b/src/ortho/mcode/ortho_mcode-jit.ads @@ -1,3 +1,20 @@ +-- JIT features for ortho mcode. +-- Copyright (C) 2006-2023 Tristan Gingold +-- +-- This program is free software: you can redistribute it and/or modify +-- it under the terms of the GNU General Public License as published by +-- the Free Software Foundation, either version 2 of the License, or +-- (at your option) any later version. +-- +-- This program is distributed in the hope that it will be useful, +-- but WITHOUT ANY WARRANTY; without even the implied warranty of +-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +-- GNU General Public License for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with this program. If not, see <gnu.org/licenses>. + +with System.Storage_Elements; use System.Storage_Elements; with System; use System; package Ortho_Mcode.Jit is @@ -6,4 +23,7 @@ package Ortho_Mcode.Jit is -- Get address of a global. function Get_Address (Decl : O_Dnode) return Address; + + function Get_Type_Size (Typ : O_Tnode) return Storage_Count; + function Get_Field_Offset (Field : O_Fnode) return Storage_Count; end Ortho_Mcode.Jit; |