From f39b8a533b981f70e40a68b1cc71e88d7bb9b1d8 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 8 Oct 1998 13:44:39 +0000
Subject: [PATCH]   * fixed $I %date% not in uppercase

---
 compiler/scandir.inc | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/compiler/scandir.inc b/compiler/scandir.inc
index 12be4c166c..cee1f7c45d 100644
--- a/compiler/scandir.inc
+++ b/compiler/scandir.inc
@@ -512,6 +512,8 @@ const
          exit;
         if (hs[1]='%') then
          begin
+         { case insensitive }
+           hs:=upper(hs);
          { save old }
            path:=hs;
          { remove %'s }
@@ -524,6 +526,12 @@ const
            else
             if hs='DATE' then
              hs:=getdatestr
+           else
+            if hs='FILE' then
+             hs:=current_module^.sourcefiles^.get_file_name(aktfilepos.fileindex)
+           else
+            if hs='LINE' then
+             hs:=tostr(aktfilepos.line)
            else
             if hs='FPCVERSION' then
              hs:=version_string
@@ -930,7 +938,10 @@ const
 
 {
   $Log$
-  Revision 1.34  1998-09-28 16:57:24  pierre
+  Revision 1.35  1998-10-08 13:44:39  peter
+    * fixed $I %date% not in uppercase
+
+  Revision 1.34  1998/09/28 16:57:24  pierre
     * changed all length(p^.value_str^) into str_length(p)
       to get it work with and without ansistrings
     * changed sourcefiles field of tmodule to a pointer