diff options
| author | Vincent Celier <celier@adacore.com> | 2007-12-13 11:46:10 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-13 11:46:10 +0100 |
| commit | 405fc8e9c4445f0cbd673c71a7074b3567fcd377 (patch) | |
| tree | e93f1e77959e2ba490a81cf1e5e43a0ff64fa73b /gcc/ada | |
| parent | f5552c895f3bb1c997576347b8f91bb827c6d9f4 (diff) | |
| download | gcc-405fc8e9c4445f0cbd673c71a7074b3567fcd377.zip gcc-405fc8e9c4445f0cbd673c71a7074b3567fcd377.tar.gz gcc-405fc8e9c4445f0cbd673c71a7074b3567fcd377.tar.bz2 | |
symbols-processing-vms-ia64.adb (Process.Skip_Half): New procedure
2007-12-06 Vincent Celier <celier@adacore.com>
* symbols-processing-vms-ia64.adb (Process.Skip_Half): New procedure
(Process.H): Remove variable. Replace Read_Half (H) with Skip_Half.
From-SVN: r130880
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/symbols-processing-vms-ia64.adb | 35 |
1 files changed, 28 insertions, 7 deletions
diff --git a/gcc/ada/symbols-processing-vms-ia64.adb b/gcc/ada/symbols-processing-vms-ia64.adb index ef325fa..0eb1af7 100644 --- a/gcc/ada/symbols-processing-vms-ia64.adb +++ b/gcc/ada/symbols-processing-vms-ia64.adb @@ -61,7 +61,6 @@ package body Processing is Success : out Boolean) is B : Byte; - H : Integer; W : Integer; Str : String (1 .. 1000) := (others => ' '); @@ -96,10 +95,19 @@ package body Processing is OK : Boolean := True; procedure Get_Byte (B : out Byte); + -- Read one byte from the object file + procedure Get_Half (H : out Integer); + -- Read one half work from the object file + procedure Get_Word (W : out Integer); + -- Read one full word from the object file + procedure Reset; - -- All the above require comments ??? + -- Restart reading the object file + + procedure Skip_Half; + -- Read and disregard one half word from the object file -------------- -- Get_Byte -- @@ -144,6 +152,19 @@ package body Processing is Byte_IO.Reset (File); end Reset; + --------------- + -- Skip_Half -- + --------------- + + procedure Skip_Half is + B : Byte; + pragma Unreferenced (B); + begin + Byte_IO.Read (File, B); + Byte_IO.Read (File, B); + Offset := Offset + 2; + end Skip_Half; + -- Start of processing for Process begin @@ -172,11 +193,11 @@ package body Processing is -- Skip e_type - Get_Half (H); + Skip_Half; -- Skip e_machine - Get_Half (H); + Skip_Half; -- Skip e_version @@ -208,15 +229,15 @@ package body Processing is -- Skip e_ehsize - Get_Half (H); + Skip_Half; -- Skip e_phentsize - Get_Half (H); + Skip_Half; -- Skip e_phnum - Get_Half (H); + Skip_Half; Get_Half (Shentsize); |