1
0
Fork 0
mirror of https://github.com/ganelson/inform.git synced 2024-07-08 18:14:21 +03:00
inform7/inter/Tests/General/Redundancies.intert

27 lines
493 B
Plaintext
Raw Normal View History

2019-07-13 13:03:54 +03:00
package main _plain
kind K_number int32
kind K_phrase_number____nothing function K_number -> void
package MyRoutine_B _code
local (/main/K_number) x
local (/main/K_number) y
code
inv !return
val x
.useless
inv !return
inv !plus
val x
val y
inv !return
inv !minus
val x
val y
inv !jump
lab .useful
.useful
inv !return
inv !modulo
val x
val y
2022-02-18 00:58:43 +02:00
constant (K_phrase_number____nothing) MyRoutine = function MyRoutine_B