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

+ align code section and data section according to alignment rules

Browse Source
This commit is contained in:
carl 2002-04-14 16:53:10 +00:00
parent 4c1cbe5c2b
commit 37091f14da
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/pmodules.pas
View File

@ -146,19 +146,14 @@ implementation
{$endif} {$endif}
then then
begin begin
dataSegment.insert(Tai_align.Create(4)); { align the first data }
dataSegment.insert(Tai_align.Create(used_align(32,
aktalignment.constalignmin,aktalignment.constalignmax)));
dataSegment.insert(Tai_string.Create('FPC '+full_version_string+ dataSegment.insert(Tai_string.Create('FPC '+full_version_string+
' ['+date_string+'] for '+target_cpu_string+' - '+target_info.shortname)); ' ['+date_string+'] for '+target_cpu_string+' - '+target_info.shortname));
end; end;
{ finish codesegment } { align code segment }
{$ifdef i386} codeSegment.concat(Tai_align.Create(aktalignment.procalign));
codeSegment.concat(Tai_align.Create(16));
{$else}
if cs_littlesize in aktglobalswitches then
codesegment.concat(tai_align.create(2))
else
codesegment.concat(tai_align.create(4));
{$endif}
{ Insert start and end of sections } { Insert start and end of sections }
fixseg(codesegment,sec_code); fixseg(codesegment,sec_code);
fixseg(datasegment,sec_data); fixseg(datasegment,sec_data);
@ -1403,7 +1398,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.59 2002-04-07 17:58:38 carl Revision 1.60 2002-04-14 16:53:10 carl
+ align code section and data section according to alignment rules
Revision 1.59 2002/04/07 17:58:38 carl
+ generic stack checking + generic stack checking
Revision 1.58 2002/04/04 19:06:03 peter Revision 1.58 2002/04/04 19:06:03 peter