From: Vincent Celier <celier@adacore.com>
Date: Thu, 13 Dec 2007 10:46:10 +0000 (+0100)
Subject: symbols-processing-vms-ia64.adb (Process.Skip_Half): New procedure
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=405fc8e9c4445f0cbd673c71a7074b3567fcd377;p=gcc.git

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
---

diff --git a/gcc/ada/symbols-processing-vms-ia64.adb b/gcc/ada/symbols-processing-vms-ia64.adb
index ef325fa9c6d..0eb1af7e4d6 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);