diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas index 78599f0f85..b2f830adff 100644 --- a/compiler/pmodules.pas +++ b/compiler/pmodules.pas @@ -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