paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 13:19:21 +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 then
begin begin
datasegment^.insert(new(pai_align,init(4))); datasegment^.insert(new(pai_align,init(4)));
datasegment^.insert(new(pai_string,init('FPC '+full_version_string+ datasegment^.insert(new(pai_string,init('FPC '+full_version_string+' ['+
' for '+target_cpu_string+' - '+target_info.short_name))); date_string+'] for '+target_cpu_string+' - '+target_info.short_name)));
end; end;
{ Insert start and end of sections } { Insert start and end of sections }
fixseg(codesegment,sec_code); fixseg(codesegment,sec_code);
@ -133,7 +133,7 @@ unit pmodules;
// Add program resources, if any // Add program resources, if any
If ResourceStringList<>Nil then If ResourceStringList<>Nil then
begin 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); Inc(Count);
end; end;
{ TableCount } { TableCount }
@ -149,8 +149,8 @@ unit pmodules;
datasegment^.concatlist(@ResourceStringTables); datasegment^.concatlist(@ResourceStringTables);
ResourceStringTables.done; ResourceStringTables.done;
end; end;
procedure InsertInitFinalTable; procedure InsertInitFinalTable;
var var
@ -1109,7 +1109,7 @@ unit pmodules;
{ the last char should always be a point } { the last char should always be a point }
consume(_POINT); consume(_POINT);
If ResourceStringList<>Nil then If ResourceStringList<>Nil then
begin begin
insertresourcestrings; insertresourcestrings;
@ -1382,7 +1382,7 @@ unit pmodules;
insertinitfinaltable; insertinitfinaltable;
insertheap; insertheap;
inserttargetspecific; inserttargetspecific;
datasize:=symtablestack^.datasize; datasize:=symtablestack^.datasize;
{ finish asmlist by adding segment starts } { finish asmlist by adding segment starts }
@ -1424,7 +1424,10 @@ unit pmodules;
end. end.
{ {
$Log$ $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 + Hopefuly last fixes for resourcestrings
Revision 1.144 1999/08/24 22:38:53 michael Revision 1.144 1999/08/24 22:38:53 michael