Commit aa33f664 authored by yoogx's avatar yoogx
Browse files

* Minor code reorganization

parent 121766ca
......@@ -75,6 +75,8 @@ package body Ocarina.Backends.Utils is
use Ocarina.Instances.Queries;
use Ocarina.Backends.Helper;
type Browsing_Kind is (By_Source, By_Destination);
-- The entered directories stack
package Directories_Stack is new GNAT.Table (Name_Id, Int, 1, 5, 10);
......
......@@ -33,8 +33,6 @@ with Ocarina.Backends.Properties; use Ocarina.Backends.Properties;
package Ocarina.Backends.Utils is
type Browsing_Kind is (By_Source, By_Destination, Default);
-----------------
-- AST visitor --
-----------------
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment