From 03833293c0cf7486fe9787214fbba92b1bc309ca Mon Sep 17 00:00:00 2001
From: CaS <CaS@72102866-910b-0410-8b05-ffd578937521>
Date: Sat, 15 Dec 2001 19:45:00 +0000
Subject: [PATCH] Various minor bugfixes.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@11771 72102866-910b-0410-8b05-ffd578937521
---
 Tools/AGSHtml.m   | 2 +-
 Tools/AGSParser.m | 2 ++
 Tools/autogsdoc.m | 2 +-
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Tools/AGSHtml.m b/Tools/AGSHtml.m
index 44d361696..556f6d487 100644
--- a/Tools/AGSHtml.m
+++ b/Tools/AGSHtml.m
@@ -838,7 +838,7 @@ NSLog(@"Element '%@' not implemented", name); 	    // FIXME
 	  [buf appendString: indent];
 	  [buf appendString: @"<h2>"];
 	  [buf appendString:
-	    [self makeAnchor: name ofType: @"protocol" name: name]];
+	    [self makeAnchor: unit ofType: @"protocol" name: name]];
 	  [buf appendString: @"</h2>\n"];
 	  [self outputUnit: node to: buf];
 	  unit = nil;
diff --git a/Tools/AGSParser.m b/Tools/AGSParser.m
index 5bf39f1d4..7c24d92c8 100644
--- a/Tools/AGSParser.m
+++ b/Tools/AGSParser.m
@@ -1046,6 +1046,8 @@ fail:
       [dict setObject: methods forKey: @"Methods"];
     }
 
+  [dict setObject: declared forKey: @"Declared"];
+
   d = [info objectForKey: @"Protocols"];
   if (d == nil)
     {
diff --git a/Tools/autogsdoc.m b/Tools/autogsdoc.m
index 8b6d0a576..8394fa342 100644
--- a/Tools/autogsdoc.m
+++ b/Tools/autogsdoc.m
@@ -501,8 +501,8 @@ main(int argc, char **argv, char **env)
 	    }
 	  else
 	    {
+	      sdir = [sourceDirectory stringByAppendingPathComponent: hdir];
 	      hdir = [headerDirectory stringByAppendingPathComponent: hdir];
-	      sdir = [sourceDirectory stringByAppendingPathComponent: sdir];
 	    }
 	  ddir = documentationDirectory;