From 405fc8e9c4445f0cbd673c71a7074b3567fcd377 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Thu, 13 Dec 2007 11:46:10 +0100 Subject: [PATCH] symbols-processing-vms-ia64.adb (Process.Skip_Half): New procedure 2007-12-06 Vincent Celier * symbols-processing-vms-ia64.adb (Process.Skip_Half): New procedure (Process.H): Remove variable. Replace Read_Half (H) with Skip_Half. From-SVN: r130880 --- gcc/ada/symbols-processing-vms-ia64.adb | 35 ++++++++++++++++++++----- 1 file changed, 28 insertions(+), 7 deletions(-) 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); -- 2.30.2