paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 15:32:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed $I %date% not in uppercase

Browse Source
This commit is contained in:
peter 1998-10-08 13:44:39 +00:00
parent ebd27df235
commit f39b8a533b
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/scandir.inc
View File

@ -512,6 +512,8 @@ const
exit; exit;
if (hs[1]='%') then if (hs[1]='%') then
begin begin
{ case insensitive }
hs:=upper(hs);
{ save old } { save old }
path:=hs; path:=hs;
{ remove %'s } { remove %'s }
@ -524,6 +526,12 @@ const
else else
if hs='DATE' then if hs='DATE' then
hs:=getdatestr 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 else
if hs='FPCVERSION' then if hs='FPCVERSION' then
hs:=version_string hs:=version_string
@ -930,7 +938,10 @@ const
{ {
$Log$ $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) * changed all length(p^.value_str^) into str_length(p)
to get it work with and without ansistrings to get it work with and without ansistrings
* changed sourcefiles field of tmodule to a pointer * changed sourcefiles field of tmodule to a pointer