Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
P
PolyORB-HI-Ada
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
TASTE
PolyORB-HI-Ada
Commits
ec1408b8
Commit
ec1408b8
authored
Aug 13, 2016
by
yoogx
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* Solve various mis-placement of SPARK_Mode pragma, for
compatibility with older GNAT
parent
11858d59
Changes
11
Hide whitespace changes
Inline
Side-by-side
Showing
11 changed files
with
23 additions
and
13 deletions
+23
-13
src/drivers/polyorb_hi_drivers_native_tcp_ip.adb
src/drivers/polyorb_hi_drivers_native_tcp_ip.adb
+3
-3
src/drivers/polyorb_hi_drivers_native_tcp_ip.ads
src/drivers/polyorb_hi_drivers_native_tcp_ip.ads
+1
-0
src/gnat.adc
src/gnat.adc
+1
-1
src/polyorb_hi-output.adb
src/polyorb_hi-output.adb
+2
-1
src/polyorb_hi-output.ads
src/polyorb_hi-output.ads
+2
-0
src/polyorb_hi-output_low_level.ads
src/polyorb_hi-output_low_level.ads
+2
-0
src/polyorb_hi-output_low_level_native.adb
src/polyorb_hi-output_low_level_native.adb
+2
-1
src/polyorb_hi-suspenders.adb
src/polyorb_hi-suspenders.adb
+2
-3
src/polyorb_hi-suspenders.ads
src/polyorb_hi-suspenders.ads
+1
-0
src/polyorb_hi-transport_low_level.ads
src/polyorb_hi-transport_low_level.ads
+3
-0
src/polyorb_hi-transport_low_level_sockets.adb
src/polyorb_hi-transport_low_level_sockets.adb
+4
-4
No files found.
src/drivers/polyorb_hi_drivers_native_tcp_ip.adb
View file @
ec1408b8
...
...
@@ -48,9 +48,9 @@ with POHICDRIVER_IP;
-- This package provides support for the TCP_IP device driver as
-- defined in the tcp_protocol.aadl AADLv2 model.
package
body
PolyORB_HI_Drivers_Native_TCP_IP
with
SPARK_Mode
=>
Off
is
package
body
PolyORB_HI_Drivers_Native_TCP_IP
is
pragma
SPARK_Mode
(
Off
);
pragma
Suppress
(
Elaboration_Check
,
PolyORB_HI_Generated
.
Transport
);
-- We do not want a pragma Elaborate_All to be implicitely
...
...
src/drivers/polyorb_hi_drivers_native_tcp_ip.ads
View file @
ec1408b8
...
...
@@ -35,6 +35,7 @@ with PolyORB_HI.Streams;
with
PolyORB_HI
.
Utils
;
package
PolyORB_HI_Drivers_Native_TCP_IP
is
pragma
SPARK_Mode
(
Off
);
use
PolyORB_HI
.
Errors
;
use
PolyORB_HI_Generated
.
Deployment
;
...
...
src/gnat.adc
View file @
ec1408b8
...
...
@@ -16,7 +16,7 @@ pragma Locking_Policy (Ceiling_Locking); -- D.13.1
-- target: the code has Spark_Mode disabled in some occurences,
-- without this pragma the code would be rejected.
pragma Spark_Mode (On);
--
pragma Spark_Mode (On);
--------------------------------------------------------------------------------
-- The following define restrictions to be supported by the
...
...
src/polyorb_hi-output.adb
View file @
ec1408b8
...
...
@@ -29,6 +29,8 @@
-- --
------------------------------------------------------------------------------
pragma
SPARK_MOde
(
Off
);
with
PolyORB_HI
.
Output_Low_Level
;
with
PolyORB_HI
.
Suspenders
;
pragma
Elaborate_All
(
PolyORB_HI
.
Suspenders
);
...
...
@@ -60,7 +62,6 @@ package body PolyORB_HI.Output is
end
Output_Lock
;
package
body
Output_Lock
is
pragma
SPARK_MOde
(
Off
);
protected
Lock
is
-- This lock has been defined to guarantee thread-safe output
...
...
src/polyorb_hi-output.ads
View file @
ec1408b8
...
...
@@ -31,6 +31,8 @@
-- Debug facility of PolyORB HI
pragma
SPARK_Mode
(
Off
);
with
PolyORB_HI
.
Streams
;
package
PolyORB_HI
.
Output
is
...
...
src/polyorb_hi-output_low_level.ads
View file @
ec1408b8
...
...
@@ -29,6 +29,8 @@
-- --
------------------------------------------------------------------------------
pragma
SPARK_Mode
(
Off
);
package
PolyORB_HI
.
Output_Low_Level
is
procedure
New_Line
;
...
...
src/polyorb_hi-output_low_level_native.adb
View file @
ec1408b8
...
...
@@ -29,6 +29,8 @@
-- --
------------------------------------------------------------------------------
pragma
SPARK_Mode
(
Off
);
with
Interfaces
.
C
;
with
System
;
...
...
@@ -39,7 +41,6 @@ package body PolyORB_HI.Output_Low_Level is
---------
procedure
Put
(
S
:
String
)
with
SPARK_Mode
=>
Off
-- SPARK_Mode is distabled because of the Address attribute
is
procedure
C_Write
...
...
src/polyorb_hi-suspenders.adb
View file @
ec1408b8
...
...
@@ -29,12 +29,11 @@
-- --
------------------------------------------------------------------------------
pragma
SPARK_Mode
(
Off
);
with
Ada
.
Synchronous_Task_Control
;
use
Ada
.
Synchronous_Task_Control
;
pragma
Elaborate_All
(
Ada
.
Synchronous_Task_Control
);
package
body
PolyORB_HI
.
Suspenders
is
pragma
SPARK_Mode
(
Off
);
use
Ada
.
Real_Time
;
...
...
@@ -62,7 +61,7 @@ package body PolyORB_HI.Suspenders is
---------------------
procedure
Suspend_Forever
with
SPARK_Mode
=>
Off
--
with SPARK_Mode => Off
-- XXX: delay until not supported in GNATProve GPL2014
is
begin
...
...
src/polyorb_hi-suspenders.ads
View file @
ec1408b8
...
...
@@ -30,6 +30,7 @@
------------------------------------------------------------------------------
-- This package implements routines to suspend application tasks
pragma
SPARK_Mode
(
Off
);
with
Ada
.
Real_Time
;
...
...
src/polyorb_hi-transport_low_level.ads
View file @
ec1408b8
...
...
@@ -37,6 +37,9 @@ with PolyORB_HI.Streams;
with
PolyORB_HI_Generated
.
Deployment
;
package
PolyORB_HI
.
Transport_Low_Level
is
pragma
SPARK_Mode
(
Off
);
-- SPARK_Mode is disabled for this unit, it relies on OS-specific
-- libraries. We discard this unit for now.
pragma
Elaborate_Body
;
...
...
src/polyorb_hi-transport_low_level_sockets.adb
View file @
ec1408b8
...
...
@@ -29,10 +29,6 @@
-- --
------------------------------------------------------------------------------
pragma
SPARK_Mode
(
Off
);
-- SPARK_Mode is disabled for this unit, it relies on OS-specific
-- libraries. We discard this unit for now.
with
Ada
.
Synchronous_Task_Control
;
with
Ada
.
Exceptions
;
with
Ada
.
Real_Time
;
...
...
@@ -54,6 +50,10 @@ with PolyORB_HI_Generated.Transport;
package
body
PolyORB_HI
.
Transport_Low_Level
is
pragma
SPARK_Mode
(
Off
);
-- SPARK_Mode is disabled for this unit, it relies on OS-specific
-- libraries. We discard this unit for now.
pragma
Suppress
(
Elaboration_Check
,
PolyORB_HI_Generated
.
Transport
);
-- We do not want a pragma Elaborate_All to be implicitely
-- generated for Transport.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment