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

* support section names with length > 8

Browse Source 
git-svn-id: trunk@2304 -
This commit is contained in:
peter 2006-01-16 10:48:21 +00:00
parent c297cb1569
commit 2ee18b3d8c
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/ogcoff.pas
View File

@ -167,7 +167,7 @@ implementation
uses
strings,
cutils,verbose,
globals,fmodule;
globals,fmodule,aasmtai;
const
COFF_FLAG_NORELOCS = $0001;
@ -564,9 +564,15 @@ const go32v2stub : array[0..2047] of byte=(
'.fpc',
''
);
var
secname : string;
begin
{ No support for named sections, because section names are limited to 8 chars }
result:=secnames[atype];
secname:=secnames[atype];
if use_smartlink_section and
(aname<>'') then
result:=secname+'$'+aname
else
result:=secname;
end;
@ -878,9 +884,9 @@ const go32v2stub : array[0..2047] of byte=(
procedure tcoffobjectoutput.write_symbols(data:TAsmObjectData);
var
filename : string[18];
value : longint;
sectionval,
globalval : byte;
globalval,
value : longint;
p : tasmsymbol;
begin
with tcoffobjectdata(data) do
@ -946,12 +952,17 @@ const go32v2stub : array[0..2047] of byte=(
var
sechdr : coffsechdr;
s : string;
strpos : longint;
begin
fillchar(sechdr,sizeof(sechdr),0);
s:=tasmsection(p).name;
{ section names are limited to 8 chars }
if length(s)>8 then
internalerror(200403312);
begin
strpos:=FCoffStrs.size+4;
FCoffStrs.writestr(s);
FCoffStrs.writestr(#0);
s:='/'+ToStr(strpos);
end;
move(s[1],sechdr.name,length(s));
if not win32 then
begin
@ -1713,7 +1724,7 @@ const go32v2stub : array[0..2047] of byte=(
asmbin : '';
asmcmd : '';
supported_target : system_i386_win32;
flags : [af_outputbinary];
flags : [af_outputbinary,af_smartlink_sections];
labelprefix : '.L';
comment : '';
);