public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
From: "laurent at guerby dot net" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug ada/29127] gnatchop-gcc: installation problem, executable not found
Date: Mon, 18 Sep 2006 22:04:00 -0000	[thread overview]
Message-ID: <20060918220429.7974.qmail@sourceware.org> (raw)
In-Reply-To: <bug-29127-50@http.gcc.gnu.org/bugzilla/>



------- Comment #4 from laurent at guerby dot net  2006-09-18 22:04 -------
(sorry to be guessing, but I don't understand much of what this code is doing.)

Here is another try (probably breaks cross tools, but if it works at least we
know where the problem lies):

--- osint.adb.orig      2006-09-18 20:05:30.000000000 +0200
+++ osint.adb   2006-09-19 00:03:14.000000000 +0200
@@ -1027,7 +1027,7 @@
       --  This would take the form of TOOL.exe followed by a ";" or "."
       --  and a sequence of one or more numbers.

-      if Command_Name (Cindex2) in '0' .. '9' then
+      if Hostparm.OpenVMS and Command_Name (Cindex2) in '0' .. '9' then
          for J in reverse Cindex1 .. Cindex2 loop
             if Command_Name (J) = '.' or Command_Name (J) = ';' then
                Cindex2 := J - 1;
@@ -1831,15 +1831,7 @@

       while Name_Len > 0  loop

-         --  All done if we find the last hyphen
-
-         if Name_Buffer (Name_Len) = '-' then
-            exit;
-
-         --  If directory separator found, we don't want to look further
-         --  since in this case, no prefix has been found.
-
-         elsif Is_Directory_Separator (Name_Buffer (Name_Len)) then
+         if Is_Directory_Separator (Name_Buffer (Name_Len)) then
             Name_Len := 0;
             exit;
          end if;


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=29127


  parent reply	other threads:[~2006-09-18 22:04 UTC|newest]

Thread overview: 12+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2006-09-18 12:28 [Bug ada/29127] New: " schwab at suse dot de
2006-09-18 17:21 ` [Bug ada/29127] " pinskia at gcc dot gnu dot org
2006-09-18 18:12 ` laurent at guerby dot net
2006-09-18 19:29 ` schwab at suse dot de
2006-09-18 22:04 ` laurent at guerby dot net [this message]
2006-09-19 11:19 ` schwab at suse dot de
2008-05-12 22:48 ` charlet at gcc dot gnu dot org
2008-05-12 23:42 ` charlet at gcc dot gnu dot org
2008-05-13  9:40 ` rguenth at gcc dot gnu dot org
2008-05-13 13:25 ` charlet at gcc dot gnu dot org
2008-05-13 13:37 ` rguenther at suse dot de
2008-05-13 13:40 ` charlet at gcc dot gnu dot org

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=20060918220429.7974.qmail@sourceware.org \
    --to=gcc-bugzilla@gcc.gnu.org \
    --cc=gcc-bugs@gcc.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).