home *** CD-ROM | disk | FTP | other *** search
- COMMENTS on ADAFAIR85.SRC
- by Rick Conn, 5 Jan 87
-
- I successfully compiled all but two modules in the ADAFAIR85.SRC
- file. I did not attempt to execute any of the modules.
- The compilations were done under VAX/VMS 4.4 with the DEC Ada
- compiler on a VAX 11/785.
- The module for Universal Arithmetic was required by other modules,
- so I compiled it first. The file name is UNIV_AR.ADA. All other files were
- compiled in alphabetical order. The full compilation order (as a VAX/VMS
- command sequence) is:
-
- $ ada UNIV_AR.ADA
- $ ada AKERMAN.ADA
- $ ada BOOLVEC.ADA
- $ ada BSEARCH.ADA
- $ ada CAUCHFL.ADA
- $ ada CAUCHFX.ADA
- $ ada CAUCHUN.ADA
- $ ada CHAR_DIR.ADA
- $ ada CHAR_ENM.ADA
- $ ada CHAR_TXT.ADA
- $ ada CONPROD.ADA
- $ ada DERIVED.ADA
- $ ada FLOATVEC.ADA
- $ ada FRIEND.ADA
- $ ada INTVEC.ADA
- $ ada INT_DIR.ADA
- $ ada INT_TEXT.ADA
- $ ada LOWLEV.ADA
- $ ada PHYSICS.ADA
- $ ada PROCCAL.ADA
- $ ada QSORTPAR.ADA
- $ ada QSORTSEQ.ADA
- $ ada RENDEZ.ADA
- $ ada SETS.ADA
- $ ada SHARED.ADA
-
- All files compiled quickly except for PHYSICS.ADA. I ended up
- compiling PHYSICS.ADA in batch, and the following statistics are offered:
-
- Accounting information:
- Buffered I/O count: 510 Peak working set size: 600
- Direct I/O count: 1021 Peak page file size: 7512
- Page faults: 345843 Mounted volumes: 0
- Charged CPU time: 0 00:38:31.51 Elapsed time: 0 01:09:07.16
-
- The files DERIVED.ADA and LOWLEV.ADA did not compile correctly.
- The following are the diagnostics generated by these compilation attempts:
-
- DERIVED.ADA
- -----------
- $ ada derived
-
- 82 Second at 0 range 8 .. 23;
- .................1
- (1) The number of bits to represent record component Second at line 77 (from
- Originals at line 36) must be exactly 128
-
- 86 for New_Block'Size use 32;
- .........1
- (1) The number of bits to represent type declaration New_Block at line 77 must
- be exactly 160
- Error(s) compiling package specification Deriveds in file
- DRB2:[CONTR13.ADA2]DERIVED.ADA;1
-
- 93 with Deriveds; use Deriveds;
- .............1
- (1) Unit Deriveds not found in library
- ...........................2
- (2) Deriveds is not declared
-
- 101 Derived : New_Block := New_Block(Original);
- ......................1
- (1) New_Block is not declared
- ...................................2
- (2) New_Block is not declared
-
- 103 Copy : Block := Block(Derived);
- .................................1
- (1) Result type is unknown due to prior error related to variable Derived at
- line 101
-
- 120 Put(Derived);
- ...............1
- (1) Result type is unknown due to prior error related to variable Derived at
- line 101
-
- 124 Put(Derived'Size);
- ...............1
- (1) Result type is unknown due to prior error related to variable Derived at
- line 101
-
- 132 if Copy = Original and Derived'Size = 32 then
- ..................................1
- (1) Result type is unknown due to prior error related to variable Derived at
- line 101
- Error(s) compiling procedure body Change_Representation in file
- DRB2:[CONTR13.ADA2]DERIVED.ADA;1
-
-
- LOWLEV.ADA
- ----------
- Ada compilation completed with 6 diagnostics
- $ ada lowlev
-
- 44 type Int is range 0 .. 2**No_Of_Bits - 1;
- ................................................1
- (1) Value 4294967295 is outside implemented range -2147483648 .. 2147483647 of
- any integer type
-
- 57 for Bit_String'Size use No_Of_Bits;
- ...........1
- (1) The number of bits to represent index constraint at line 56 must be exactly
- 256
- Error(s) compiling procedure body Change_Types in file
- DRB2:[CONTR13.ADA2]LOWLEV.ADA;1
- Ada compilation completed with 2 diagnostics
-