paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 23:39:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed some virtual from methods

Browse Source 
* sectionsize method implemented (fixes lineinfo stabs)
This commit is contained in:
peter 2000-11-13 21:56:07 +00:00
parent a9c4c8d407
commit 4f6dbdff2b
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/ogbase.pas
View File

@ -131,16 +131,16 @@ interface
procedure donewriting;virtual;
procedure createsection(sec:tsection);virtual;
procedure defaultsection(sec:tsection);
function sectionsize(s:tsection):longint;virtual;
function sectionsize(s:tsection):longint;
procedure setsectionsizes(var s:tsecsize);virtual;
procedure alloc(len:longint);virtual;
procedure allocalign(len:longint);virtual;
procedure writebytes(var data;len:longint);virtual;
procedure alloc(len:longint);
procedure allocalign(len:longint);
procedure writebytes(var data;len:longint);
procedure writereloc(data,len:longint;p:pasmsymbol;relative:relative_type);virtual;
procedure writesymbol(p:pasmsymbol);virtual;
procedure writestabs(section:tsection;offset:longint;p:pchar;nidx,nother,line:longint;reloc:boolean);virtual;
procedure writesymstabs(section:tsection;offset:longint;p:pchar;ps:pasmsymbol;
nidx,nother,line:longint;reloc:boolean);virtual;
nidx,nother,line:longint;reloc:boolean);virtual;
end;
var
@ -429,7 +429,10 @@ interface
function tobjectoutput.sectionsize(s:tsection):longint;
begin
sectionsize:=0;
if assigned(sects[s]) then
sectionsize:=sects[s]^.datasize
else
sectionsize:=0;
end;
@ -499,7 +502,11 @@ interface
end.
{
$Log$
Revision 1.1 2000-11-12 22:20:37 peter
Revision 1.2 2000-11-13 21:56:07 peter
* removed some virtual from methods
* sectionsize method implemented (fixes lineinfo stabs)
Revision 1.1 2000/11/12 22:20:37 peter
* create generic toutputsection for binary writers
}