mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
1e8cdfa4b4
Reorganize code for declarators, enumerators and case members (they were mostly not well integrated in the tree in such a way that some semnatics rules were quite difficult to implement) Merge identifiers with the other nodes (it was not such a good idea to make the difference) Fix bugs in the allocation of node flags in mknodes Add reference to BNF in nodes.idl [Imported from Perforce change 6949 at 2006-12-01 20:14:36] Subversion-branch: /trunk/polyorb Subversion-revision: 34802
33 lines
483 B
Ada
33 lines
483 B
Ada
package body Types is
|
|
|
|
-----------
|
|
-- Dummy --
|
|
-----------
|
|
|
|
procedure Dummy (E : Node_Id) is
|
|
begin
|
|
if Present (E) then
|
|
null;
|
|
end if;
|
|
end Dummy;
|
|
|
|
--------
|
|
-- No --
|
|
--------
|
|
|
|
function No (E : Node_Id) return Boolean is
|
|
begin
|
|
return E = No_Node;
|
|
end No;
|
|
|
|
-------------
|
|
-- Present --
|
|
-------------
|
|
|
|
function Present (E : Node_Id) return Boolean is
|
|
begin
|
|
return E /= No_Node;
|
|
end Present;
|
|
|
|
end Types;
|