Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: persan/A-openssl
base: 59b3457c2e
...
head fork: persan/A-openssl
compare: 8375d6bb3b
Checking mergeability… Don't worry, you can still create the pull request.
  • 2 commits
  • 13 files changed
  • 0 commit comments
  • 1 contributor
Commits on Feb 18, 2011
Per Sandberg Clean up compiler warnings 35e708c
Per Sandberg First simple implementation 8375d6b
View
41 openssl.gpr
@@ -41,26 +41,27 @@ project OPenSSL is
"-gnatQ", -- Don't quit, write ali/tree file even if compile errors
"-gnat05", -- Full Ada05
"-gnato", -- Overflow checking enabled.
- "-gnaty" &
- "3" & -- check indentation
- "a" & -- check attribute casing
- "A" & -- check array attribute indexes
- "b" & -- check no blanks at end of lines
- "c" & -- check comment format
- "e" & -- check end/exit labels present
- "f" & -- check no form feeds/vertical tabs in source
- "h" & -- check no horizontal tabs in source
- "i" & -- check if-then layout
- "I" & -- check mode in
- "k" & -- check casing rules for keywords
- "l" & -- check reference manual layout
- "n" & -- check casing of package Standard identifiers
- "M4096" & -- check line length <= nn characters
- "p" & -- check pragma casing
- "r" & -- check casing for identifier references
- "s" & -- check separate subprogram specs present
- "t" & -- check token separation rules
- "x" & -- check extra parens around conditionals
+ "-gnatwa",
+ "-gnaty" &
+ "3" & -- check indentation
+ "a" & -- check attribute casing
+ "A" & -- check array attribute indexes
+ "b" & -- check no blanks at end of lines
+ "c" & -- check comment format
+ "e" & -- check end/exit labels present
+ "f" & -- check no form feeds/vertical tabs in source
+ "h" & -- check no horizontal tabs in source
+ "i" & -- check if-then layout
+ "I" & -- check mode in
+ "k" & -- check casing rules for keywords
+ "l" & -- check reference manual layout
+ "n" & -- check casing of package Standard identifiers
+ "M4096" & -- check line length <= nn characters
+ "p" & -- check pragma casing
+ "r" & -- check casing for identifier references
+ "s" & -- check separate subprogram specs present
+ "t" & -- check token separation rules
+ "x" & -- check extra parens around conditionals
"");
for Default_Switches ("c") use ();
View
1  src/gen/openssl-low_level-asnlt_h.ads
@@ -3,7 +3,6 @@ with Interfaces.C.Strings;
with System;
with OpenSSL.Low_Level.bio_h;
with OpenSSL.Low_Level.stack_h;
-limited with OpenSSL.Low_Level.asnl_h;
package OpenSSL.Low_Level.asnlt_h is
package defs is
View
1  src/gen/openssl-low_level-conf_api_h.ads
@@ -1,4 +1,3 @@
-with Interfaces.C; use Interfaces.C;
package OpenSSL.Low_Level.conf_api_h is
View
1  src/gen/openssl-low_level-dsa_h.ads
@@ -7,7 +7,6 @@ with OpenSSL.Low_Level.dh_h;
with Interfaces.C_Streams;
with OpenSSL.Low_Level.bn_h;
with OpenSSL.Low_Level.crypto_h;
-with OpenSSL.Low_Level.crypto_h;
package OpenSSL.Low_Level.dsa_h is
package defs is
View
1  src/gen/openssl-low_level-ebcdic_h.ads
@@ -1,4 +1,3 @@
-with Interfaces.C; use Interfaces.C;
package OpenSSL.Low_Level.ebcdic_h is
View
2  src/gen/openssl-low_level-ocsp_h.ads
@@ -5,12 +5,10 @@ limited with OpenSSL.Low_Level.x509_h;
limited with OpenSSL.Low_Level.x509v3_h;
with OpenSSL.Low_Level.asnl_h;
with OpenSSL.Low_Level.bio_h;
-with OpenSSL.Low_Level.bio_h;
with Interfaces.C.Strings;
with System;
with OpenSSL.Low_Level.evp_h;
with OpenSSL.Low_Level.x509_vfy_h;
-with OpenSSL.Low_Level.x509_vfy_h;
with OpenSSL.Low_Level.asnlt_h;
package OpenSSL.Low_Level.ocsp_h is
View
1  src/gen/openssl-low_level-rsa_h.ads
@@ -1,7 +1,6 @@
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings;
with System;
-with OpenSSL.Low_Level.asnl_h;
limited with OpenSSL.Low_Level.bio_h;
with Interfaces.C_Streams;
with OpenSSL.Low_Level.bn_h;
View
1  src/gen/openssl-low_level-ui_compat_h.ads
@@ -1,4 +1,3 @@
-with Interfaces.C; use Interfaces.C;
package OpenSSL.Low_Level.ui_compat_h is
View
17 src/openssl-aes.adb
@@ -1,15 +1,12 @@
package body OpenSSL.aes is
-
+ use OpenSSL.Low_Level.aes_h;
-------------
-- options --
-------------
function options return Interfaces.C.Strings.chars_ptr is
begin
- -- Generated stub: replace with real body!
- pragma Compile_Time_Warning (Standard.True, "options unimplemented");
- raise Program_Error with "Unimplemented function options";
- return options;
+ return AES_options;
end options;
---------------------
@@ -23,10 +20,7 @@ package body OpenSSL.aes is
return int
is
begin
- -- Generated stub: replace with real body!
- pragma Compile_Time_Warning (Standard.True, "set_encrypt_key unimplemented");
- raise Program_Error with "Unimplemented function set_encrypt_key";
- return set_encrypt_key (userKey, bits, key);
+ return AES_set_encrypt_key (userKey, bits, key.data'Unrestricted_Access);
end set_encrypt_key;
---------------------
@@ -40,10 +34,7 @@ package body OpenSSL.aes is
return int
is
begin
- -- Generated stub: replace with real body!
- pragma Compile_Time_Warning (Standard.True, "set_decrypt_key unimplemented");
- raise Program_Error with "Unimplemented function set_decrypt_key";
- return set_decrypt_key (userKey, bits, key);
+ return AES_set_decrypt_key (userKey, bits, key.data'Unrestricted_Access);
end set_decrypt_key;
-------------
View
1  src/openssl-aes.ads
@@ -1,6 +1,5 @@
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings;
-with System;
private with OpenSSL.Low_Level.aes_h;
package OpenSSL.aes is
package defs is
View
3  tests/openssl-tests-testsuits-test_all.adb
@@ -30,4 +30,5 @@ package body OpenSSL.Tests.TestSuits.Test_All is
return Result'Access;
end Suite;
-end OpenSSL.Tests.TestSuits.Test_All;-- ---------------------------------------------
+end OpenSSL.Tests.TestSuits.Test_All;
+
View
2  tests/openssl-tests.ads
@@ -5,4 +5,4 @@
--
-- ---------------------------------------------
package OpenSSL.Tests is
-end OpenSSL.Tests;-- ---------------------------------------------
+end OpenSSL.Tests;
View
7 tests/testcases/openssl-tests-testcases-compile.adb
@@ -1,8 +1,6 @@
with GNAT.Source_Info;
-with AUnit.Assertions;
package body OpenSSL.Tests.Testcases.Compile is
use AUnit;
- use AUnit.Assertions;
-- Fixture elements
@@ -25,9 +23,8 @@ package body OpenSSL.Tests.Testcases.Compile is
procedure SampleTest (Test : in out AUnit.Test_Cases.Test_Case'Class);
procedure SampleTest (Test : in out AUnit.Test_Cases.Test_Case'Class) is
T : Test_Case renames Test_Case (Test);
- pragma Unreferenced (T);
begin
- Assert (False, "TODO Implement Test");
+ T.Assert (False, "TODO Implement Test");
end SampleTest;
--------------------
@@ -41,4 +38,4 @@ package body OpenSSL.Tests.Testcases.Compile is
Register_Routine (T, SampleTest'Access, "SampleTest");
end Register_Tests;
-end OpenSSL.Tests.Testcases.Compile;
+end OpenSSL.Tests.Testcases.Compile;

No commit comments for this range

Something went wrong with that request. Please try again.