103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
end if;
end if;
end loop;
return Result;
end Build_Node;
procedure Set_Map
(Map : in out Dictionary_Maps.Map;
List : in String_Lists.List)
is
I : Natural := 0;
begin
|
>
>
>
>
>
>
>
>
|
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
end if;
end if;
end loop;
return Result;
end Build_Node;
function Dummy_Hash (Value : String) return Natural is
pragma Unreferenced (Value);
begin
raise Program_Error with "Dummy_Hash called";
return 0;
end Dummy_Hash;
procedure Set_Map
(Map : in out Dictionary_Maps.Map;
List : in String_Lists.List)
is
I : Natural := 0;
begin
|