Commit 0e4081f8 authored by jhugues's avatar jhugues

* Correct types for variable I



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@4957 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent a4ff2703
......@@ -262,7 +262,7 @@ package body Ocarina.ME_AADL.AADL_Instances.Debug is
---------
procedure wni (N : Node_Id) is
I : constant Natural := N_Indents;
I : constant Integer := N_Indents;
begin
N_Indents := 1;
W_Node_Id (N);
......
Markdown is supported
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