Natools

Check-in [ed32c25b9b]
Login

Check-in [ed32c25b9b]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:references: prepare variants, calling "unsafe" the existing one
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ed32c25b9b4315a81931a1cb520720fb135d6446
User & Date: nat 2014-07-16 17:44:09.471
Context
2014-07-17
19:37
references__protected: task-safe portable variant of Natools.References, based on protected counters check-in: 66369eba6c user: nat tags: trunk
2014-07-16
17:44
references: prepare variants, calling "unsafe" the existing one check-in: ed32c25b9b user: nat tags: trunk
2014-07-15
20:07
reference_tests: add a task-safety test (that isn't relevant on single-core) check-in: 8292cedaee user: nat tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Changes to natools.gpr. 
1
2
3
4



5
6
7
8
9
10
11

1
2
3
4
5
6
7
8
9
10
11
12
13
14





+
+
+








project Natools is
   type Build_Type is ("Release", "Coverage");
   Mode : Build_Type := external ("MODE", "Release");

   type Task_Safety is ("None");
   Safety : Task_Safety := external ("TASK_SAFETY", "None");

   Prefix := "";
   Extra_Switches := ();

   case Mode is
      when "Release" =>
         Prefix := "";
      when "Coverage" =>
︙
59
60
61
62
63
64
65










66

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79








+
+
+
+
+
+
+
+
+
+


         "-fstack-check")
        & Extra_Switches;
   end Compiler;

   package Linker is
      for Default_Switches ("Ada") use Extra_Switches;
   end Linker;

   package Naming is
      case Safety is
         when "None" =>
            for spec ("Natools.References")
              use "natools-references__unsafe.ads";
            for body ("Natools.References")
              use "natools-references__unsafe.adb";
      end case;
   end Naming;
end Natools;
Name change from src/natools-references.adb to src/natools-references__unsafe.adb.
︙
Name change from src/natools-references.ads to src/natools-references__unsafe.ads.
︙
Changes to tests.gpr.
︙
10
11
12
13
14
15
16








17

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25








+
+
+
+
+
+
+
+


   package Compiler is
      for Default_Switches use Natools.Compiler'Default_Switches;
   end Compiler;

   package Linker is
      for Default_Switches use Natools.Linker'Default_Switches;
   end Linker;

   package Naming is
      case Natools.Safety is
         when "None" =>
            for body ("Natools.References.Tools")
              use "natools-references-tools__unsafe.adb";
      end case;
   end Naming;
end Tests;
Name change from tests/natools-references-tools.adb to tests/natools-references-tools__unsafe.adb.
︙