mirror of https://github.com/yaml/AdaYaml
Get rid of the warnings in the "server" as well
This commit is contained in:
parent
85d0787cea
commit
0d398b03d5
|
@ -7,3 +7,6 @@ gnatinspect.db
|
|||
*.cswi
|
||||
*-loc.xml
|
||||
cvg
|
||||
messages.txt
|
||||
*.cgpr
|
||||
|
||||
|
|
|
@ -12,7 +12,7 @@ package Yaml.Servers is
|
|||
new Server.Connections_Factory with null record;
|
||||
|
||||
type Yaml_Client is new HTTP.HTTP_Client with null record;
|
||||
|
||||
pragma Warnings (Off, "formal parameter ""From"" is not referenced");
|
||||
overriding function Create (Factory : access Yaml_Factory;
|
||||
Listener : access Server.Connections_Server'Class;
|
||||
From : GNAT.Sockets.Sock_Addr_Type)
|
||||
|
@ -22,5 +22,7 @@ package Yaml.Servers is
|
|||
Input_Size => Factory.Input_Size,
|
||||
Output_Size => Factory.Output_Size));
|
||||
|
||||
pragma Warnings (On, "formal parameter ""From"" is not referenced");
|
||||
|
||||
overriding procedure Do_Get (Client : in out Yaml_Client);
|
||||
end Yaml.Servers;
|
||||
|
|
|
@ -4,8 +4,9 @@
|
|||
with Ada.Exceptions;
|
||||
with Yaml.Events.Queue;
|
||||
with Yaml.Parser;
|
||||
|
||||
With GNAT.Strings;
|
||||
procedure Yaml.Inspect (Input : String) is
|
||||
use GNAT.Strings;
|
||||
type Error_Kind is (None, From_Lexer, From_Parser);
|
||||
|
||||
P : Parser.Instance;
|
||||
|
@ -15,7 +16,7 @@ procedure Yaml.Inspect (Input : String) is
|
|||
Read_Events : constant Events.Queue.Reference := Events.Queue.New_Queue;
|
||||
Occurred_Error : Error_Kind := None;
|
||||
Lexer_Token_Start, Lexer_Token_End : Mark;
|
||||
Exception_Message : access String;
|
||||
Exception_Message : String_Access;
|
||||
begin
|
||||
P.Set_Input (Input);
|
||||
Start_Emitting;
|
||||
|
|
|
@ -0,0 +1,7 @@
|
|||
Aggregate project Yaml_All is
|
||||
for Project_Files use project'Project_Files & ("yaml-annotation_processor.gpr");
|
||||
for Project_Files use project'Project_Files & ("yaml.gpr");
|
||||
for Project_Files use project'Project_Files & ("yaml-server.gpr");
|
||||
for Project_Files use project'Project_Files & ("yaml-tests.gpr");
|
||||
for Project_Files use project'Project_Files & ("yaml-utils.gpr");
|
||||
end Yaml_All;
|
Loading…
Reference in New Issue