paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 03:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix alignment broken by previous commit

Browse Source 
git-svn-id: trunk@3056 -
This commit is contained in:
peter 2006-03-27 10:29:05 +00:00
parent b2121dae20
commit 693d7e2463
1 changed files with 5 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/ptconst.pas
View File

@ -85,7 +85,6 @@ implementation
old_block_type : tblock_type;
storefilepos : tfileposinfo;
cursectype : TAsmSectiontype;
cural : tasmlisttype;
datalist : tasmlist;
procedure check_range(def:torddef);
@ -1008,17 +1007,6 @@ implementation
myexit:
block_type:=old_block_type;
if writable then
begin
cural:=al_typedconsts;
cursectype:=sec_data;
end
else
begin
cural:=al_rotypedconsts;
cursectype:=sec_rodata;
end;
{ Add symbol name if this is specified. For array
elements sym=nil and we should skip this }
if assigned(sym) then
@ -1026,8 +1014,12 @@ implementation
storefilepos:=aktfilepos;
aktfilepos:=sym.fileinfo;
{ insert cut for smartlinking or alignment }
if writable then
cursectype:=sec_data
else
cursectype:=sec_rodata;
maybe_new_object_file(list);
new_section(list,cursectype,lower(sym.mangledname),const_align(size_2_align(l)));
new_section(list,cursectype,lower(sym.mangledname),const_align(t.def.alignment));
if (sym.owner.symtabletype=globalsymtable) or
maybe_smartlink_symbol or
(assigned(current_procinfo) and