/src/tools/semantics/code/instructions/liberty_empty.e
Specman e | 53 lines | 30 code | 8 blank | 15 comment | 0 complexity | cb61c648b8dd474f4dd7844f419fa6b3 MD5 | raw file
1-- This file is part of Liberty Eiffel. 2-- 3-- Liberty Eiffel is free software: you can redistribute it and/or modify 4-- it under the terms of the GNU General Public License as published by 5-- the Free Software Foundation, version 3 of the License. 6-- 7-- Liberty Eiffel is distributed in the hope that it will be useful, 8-- but WITHOUT ANY WARRANTY; without even the implied warranty of 9-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 10-- GNU General Public License for more details. 11-- 12-- You should have received a copy of the GNU General Public License 13-- along with Liberty Eiffel. If not, see <http://www.gnu.org/licenses/>. 14-- 15class LIBERTY_EMPTY 16 17inherit 18 LIBERTY_INSTRUCTION 19 20create {LIBERTY_BUILDER_TOOLS} 21 make 22 23feature {ANY} 24 specialized_in (a_type: LIBERTY_ACTUAL_TYPE): like Current is 25 do 26 Result := Current 27 end 28 29feature {LIBERTY_REACHABLE, LIBERTY_REACHABLE_COLLECTION_MARKER} 30 mark_reachable_code (mark: INTEGER) is 31 do 32 -- nothing 33 end 34 35feature {} 36 make is 37 local 38 errors: LIBERTY_ERRORS 39 do 40 position := errors.unknown_position 41 end 42 43feature {ANY} 44 accept (v: VISITOR) is 45 local 46 v0: LIBERTY_EMPTY_VISITOR 47 do 48 v0 ::= v 49 v0.visit_liberty_empty(Current) 50 end 51 52end 53