|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Test_Tableau, seg_041e3e, seg_049436
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Text_Io;
use Text_Io;
procedure Test_Tableau is
type Table is array (Integer range <>) of Integer;
type Ptable is access Table;
package Io is new Integer_Io (Integer);
L : Integer;
Un_Table : Ptable (1 .. 80);
Une_Table : Ptable;
T : Ptable;
--Un_Table : Table (1 .. 80);
--Une_Table : Table (1 .. Un_Table'Length * 2);
procedure Doubler (Table_Tmp : in out Ptable; T : in out Ptable) is
-- T : Ptable;
begin
T := new Table (1 .. Table_Tmp'Length * 2);
--T := Table_Tmp;
--Table_Tmp := T;
--T.all := Table_Tmp (T'First .. T'First + Table_Tmp'Length - 1);
end Doubler;
use Io;
begin
Un_Table := new Table (1 .. 80);
Une_Table := new Table (1 .. Un_Table'Length * 2);
L := Un_Table'Length;
Put_Line ("longueur de un_table : ");
Put (L);
New_Line;
L := Une_Table'Length;
Put_Line ("longueuer de une table");
Put (L);
New_Line;
Doubler (Un_Table, T);
L := Un_Table'Length;
Put_Line ("longueur de un table ");
Put (L);
New_Line;
L := T'Length;
Put_Line ("long de t = 2 long de un table");
Put (L);
New_Line;
T := Un_Table;
L := T'Length;
Put_Line ("long de t = un table);");
Put (L);
New_Line;
Doubler (Un_Table, T);
T.all := Un_Table.all;
L := T'Length;
Put (L);
end Test_Tableau;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=24 rec1=00 rec2=01 rec3=006
[0x01] rec0=18 rec1=00 rec2=02 rec3=001
tail 0x2153cde76862866cb57b6 0x42a00088462060003