Page MenuHomeSoftware Heritage
Files F9123623

No OneTemporary
Actions

View Options

diff --git a/Units/ada-adb.d/expected.tags b/Units/ada-adb.d/expected.tags
deleted file mode 100644
index 503091a7..00000000
--- a/Units/ada-adb.d/expected.tags
+++ /dev/null
@@ -1,7 +0,0 @@
-Altivec input.adb /^procedure Altivec is$/;" r
-Vector_A input.adb /^ Vector_A : constant vector_unsigned_int := To_Vector (View_A);$/;" n subprogram:Altivec file:
-Vector_B input.adb /^ Vector_B : constant vector_unsigned_int := To_Vector (View_B);$/;" n subprogram:Altivec file:
-Vector_C input.adb /^ Vector_C : vector_unsigned_int;$/;" v subprogram:Altivec file:
-View_A input.adb /^ View_A : constant VUI_View := (Values => (1, 2, 3, 4));$/;" n subprogram:Altivec file:
-View_B input.adb /^ View_B : constant VUI_View := (Values => (1, 1, 1, 1));$/;" n subprogram:Altivec file:
-View_C input.adb /^ View_C : VUI_View;$/;" v subprogram:Altivec file:
diff --git a/Units/ada-adb.d/input.adb b/Units/ada-adb.d/input.adb
deleted file mode 100644
index 01dd82a8..00000000
--- a/Units/ada-adb.d/input.adb
+++ /dev/null
@@ -1,35 +0,0 @@
--- Taken from altivec of GNAT examples (http://www.adacore.com/developers/code-samples/gnat-examples/)
--- ====================================================================================================
--- This example shows how to create and manipulate vectors by the mean of high
--- level views.
-
-with GNAT.Altivec; use GNAT.Altivec;
-with GNAT.Altivec.Conversions; use GNAT.Altivec.Conversions;
-with GNAT.Altivec.Vector_Operations; use GNAT.Altivec.Vector_Operations;
-with GNAT.Altivec.Vector_Types; use GNAT.Altivec.Vector_Types;
-with GNAT.Altivec.Vector_Views; use GNAT.Altivec.Vector_Views;
-
-with GNAT.IO; use GNAT.IO;
-
-procedure Altivec is
-
- View_A : constant VUI_View := (Values => (1, 2, 3, 4));
- Vector_A : constant vector_unsigned_int := To_Vector (View_A);
-
- View_B : constant VUI_View := (Values => (1, 1, 1, 1));
- Vector_B : constant vector_unsigned_int := To_Vector (View_B);
-
- Vector_C : vector_unsigned_int;
- View_C : VUI_View;
-
-begin
- Vector_C := vec_add (Vector_A, Vector_B);
- -- C = A + B
-
- View_C := To_View (Vector_C);
-
- for I in View_C.Values'Range loop
- Put_Line (unsigned_int'Image (View_C.Values (I)));
- end loop;
-
-end Altivec;
diff --git a/Units/ada-ads.d/expected.tags b/Units/ada-ads.d/expected.tags
deleted file mode 100644
index d433e9f4..00000000
--- a/Units/ada-ads.d/expected.tags
+++ /dev/null
@@ -1,16 +0,0 @@
-Adjust input.ads /^ procedure Adjust(S: in out Stack);$/;" R packspec:GenStack
-Data input.ads /^ Data: Data_Ptr;$/;" c type:Node file:
-Data_Ptr input.ads /^ type Data_Ptr is access StackData'Class;$/;" t packspec:GenStack file:
-Empty input.ads /^ function Empty(S: Stack) return Boolean;$/;" R packspec:GenStack
-Finalize input.ads /^ procedure Finalize(S: in out Stack);$/;" R packspec:GenStack
-GenStack input.ads /^package GenStack is$/;" P
-Initialize input.ads /^ procedure Initialize(S: in out Stack);$/;" R packspec:GenStack
-Next input.ads /^ Next: Node_Ptr;$/;" c type:Node file:
-Node input.ads /^ type Node is record$/;" t packspec:GenStack file:
-Node_Ptr input.ads /^ type Node_Ptr is access Node;$/;" t packspec:GenStack file:
-Pop input.ads /^ procedure Pop(S: in out Stack; D: in out StackData'class);$/;" R packspec:GenStack
-Push input.ads /^ procedure Push(S: in out Stack; D: StackData'class);$/;" R packspec:GenStack
-Stack input.ads /^ type Stack is new Controlled with private;$/;" t packspec:GenStack
-Stack input.ads /^ type Stack is new Controlled with record$/;" t packspec:GenStack file:
-StackData input.ads /^ type StackData is new Controlled with null record;$/;" t packspec:GenStack
-Top input.ads /^ procedure Top(S: Stack; Data: in out StackData'class);$/;" R packspec:GenStack
diff --git a/Units/ada-ads.d/input.ads b/Units/ada-ads.d/input.ads
deleted file mode 100644
index ce38d807..00000000
--- a/Units/ada-ads.d/input.ads
+++ /dev/null
@@ -1,50 +0,0 @@
--- Object-oriented generalized stack. This illustrates the use of a
--- controlled type, which is one that has construction and destructions.
--- It also shows how to create two related types in the same package so
--- that they can share private declarations. This sort of thing is
--- accomplished in Java or C++ using nested classes, or using friend
--- declarations in C++.
---
-with Ada.Finalization; use Ada.Finalization;
-
-package GenStack is
- -- This is the stack type.
- type Stack is new Controlled with private;
-
- -- This is the base type for nodes. Client packages must derive their
- -- nodes from StackData. Since it comes from Controlled, the user can
- -- override the Initialize, Adjust, and Finalize methods as needed.
- type StackData is new Controlled with null record;
-
- -- Initialization operations.
- procedure Initialize(S: in out Stack);
- procedure Adjust(S: in out Stack);
- procedure Finalize(S: in out Stack);
-
- -- Stack operations.
- procedure Push(S: in out Stack; D: StackData'class);
- procedure Pop(S: in out Stack; D: in out StackData'class);
- procedure Top(S: Stack; Data: in out StackData'class);
- function Empty(S: Stack) return Boolean;
-
- private
- -- Pointer to the node type.
- type Node;
- type Node_Ptr is access Node;
-
- -- Here is the generalized stack itself. We would just make it the
- -- pointer itself, but it needs to be a record so it can be in a with.
- type Stack is new Controlled with record
- Head: Node_Ptr;
- end record;
-
- -- Now, we need a pointer to the data part.
- type Data_Ptr is access StackData'Class;
-
- -- This is the node type.
- type Node is record
- Data: Data_Ptr;
- Next: Node_Ptr;
- end record;
-
-end GenStack;
diff --git a/Units/ada-function.d/args.ctags b/Units/ada-function.d/args.ctags
deleted file mode 100644
index e574a664..00000000
--- a/Units/ada-function.d/args.ctags
+++ /dev/null
@@ -1 +0,0 @@
---language-force=Ada
diff --git a/Units/ada-function.d/input.broken b/Units/ada-function.d/input.broken
deleted file mode 100644
index f1da4da4..00000000
--- a/Units/ada-function.d/input.broken
+++ /dev/null
@@ -1 +0,0 @@
-function a(){}}function b(
\ No newline at end of file
diff --git a/Units/ada-protected.d/input.adb b/Units/ada-protected.d/input.adb
deleted file mode 100644
index 418c9862..00000000
--- a/Units/ada-protected.d/input.adb
+++ /dev/null
@@ -1 +0,0 @@
-protected

File Metadata

Mime Type
text/x-diff
Expires
Sat, Jun 21, 5:48 PM (1 w, 6 d ago)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3447355

Event Timeline

About · Developer information · Legal