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

* write date of the compiler into the executable

Browse Source
This commit is contained in:
peter 1999-08-26 21:16:21 +00:00
parent 1ae7f425c5
commit cbd7de9e6f
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/pmodules.pas
View File

@ -92,8 +92,8 @@ unit pmodules;
then
begin
datasegment^.insert(new(pai_align,init(4)));
datasegment^.insert(new(pai_string,init('FPC '+full_version_string+
' for '+target_cpu_string+' - '+target_info.short_name)));
datasegment^.insert(new(pai_string,init('FPC '+full_version_string+' ['+
date_string+'] for '+target_cpu_string+' - '+target_info.short_name)));
end;
{ Insert start and end of sections }
fixseg(codesegment,sec_code);
@ -133,7 +133,7 @@ unit pmodules;
// Add program resources, if any
If ResourceStringList<>Nil then
begin
ResourceStringTables.concat(new(pai_const_symbol,initname(Current_Module^.modulename^+'_RESOURCESTRINGLIST')));
ResourceStringTables.concat(new(pai_const_symbol,initname(Current_Module^.modulename^+'_RESOURCESTRINGLIST')));
Inc(Count);
end;
{ TableCount }
@ -149,8 +149,8 @@ unit pmodules;
datasegment^.concatlist(@ResourceStringTables);
ResourceStringTables.done;
end;
procedure InsertInitFinalTable;
var
@ -1109,7 +1109,7 @@ unit pmodules;
{ the last char should always be a point }
consume(_POINT);
If ResourceStringList<>Nil then
begin
insertresourcestrings;
@ -1382,7 +1382,7 @@ unit pmodules;
insertinitfinaltable;
insertheap;
inserttargetspecific;
datasize:=symtablestack^.datasize;
{ finish asmlist by adding segment starts }
@ -1424,7 +1424,10 @@ unit pmodules;
end.
{
$Log$
Revision 1.145 1999-08-26 20:24:44 michael
Revision 1.146 1999-08-26 21:16:21 peter
* write date of the compiler into the executable
Revision 1.145 1999/08/26 20:24:44 michael
+ Hopefuly last fixes for resourcestrings
Revision 1.144 1999/08/24 22:38:53 michael