paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove obsolete code

Browse Source
This commit is contained in:
peter 2005-02-10 22:08:03 +00:00
parent 2ce81b5177
commit 4637e51462
1 changed files with 16 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/nobj.pas
View File

@ -130,13 +130,10 @@ implementation
uses uses
strings, strings,
globals,verbose,systems, globals,verbose,systems,
symtable,symconst,symtype,defcmp,paramgr, symtable,symconst,symtype,defcmp
{$ifdef GDB} {$ifdef GDB}
gdb, ,gdb
{$endif GDB} {$endif GDB}
aasmcpu,
cgbase,parabase,
cgutils,cgobj
; ;
@ -267,7 +264,7 @@ implementation
objectlibrary.getdatalabel(p^.nl); objectlibrary.getdatalabel(p^.nl);
if assigned(p^.l) then if assigned(p^.l) then
writenames(p^.l); writenames(p^.l);
datasegment.concat(tai_align.create(const_align(sizeof(aint)))); datasegment.concat(cai_align.create(const_align(sizeof(aint))));
dataSegment.concat(Tai_label.Create(p^.nl)); dataSegment.concat(Tai_label.Create(p^.nl));
len:=strlen(p^.data.messageinf.str); len:=strlen(p^.data.messageinf.str);
datasegment.concat(tai_const.create_8bit(len)); datasegment.concat(tai_const.create_8bit(len));
@ -309,7 +306,7 @@ implementation
{ now start writing of the message string table } { now start writing of the message string table }
objectlibrary.getdatalabel(r); objectlibrary.getdatalabel(r);
datasegment.concat(tai_align.create(const_align(sizeof(aint)))); datasegment.concat(cai_align.create(const_align(sizeof(aint))));
dataSegment.concat(Tai_label.Create(r)); dataSegment.concat(Tai_label.Create(r));
genstrmsgtab:=r; genstrmsgtab:=r;
dataSegment.concat(Tai_const.Create_32bit(count)); dataSegment.concat(Tai_const.Create_32bit(count));
@ -347,7 +344,7 @@ implementation
{ now start writing of the message string table } { now start writing of the message string table }
objectlibrary.getdatalabel(r); objectlibrary.getdatalabel(r);
datasegment.concat(tai_align.create(const_align(sizeof(aint)))); datasegment.concat(cai_align.create(const_align(sizeof(aint))));
dataSegment.concat(Tai_label.Create(r)); dataSegment.concat(Tai_label.Create(r));
genintmsgtab:=r; genintmsgtab:=r;
dataSegment.concat(Tai_const.Create_32bit(count)); dataSegment.concat(Tai_const.Create_32bit(count));
@ -425,7 +422,7 @@ implementation
begin begin
objectlibrary.getdatalabel(r); objectlibrary.getdatalabel(r);
gendmt:=r; gendmt:=r;
datasegment.concat(tai_align.create(const_align(sizeof(aint)))); datasegment.concat(cai_align.create(const_align(sizeof(aint))));
dataSegment.concat(Tai_label.Create(r)); dataSegment.concat(Tai_label.Create(r));
{ entries for caching } { entries for caching }
dataSegment.concat(Tai_const.Create_ptr(0)); dataSegment.concat(Tai_const.Create_ptr(0));
@ -481,7 +478,7 @@ implementation
begin begin
objectlibrary.getdatalabel(l); objectlibrary.getdatalabel(l);
consts.concat(tai_align.create(const_align(sizeof(aint)))); consts.concat(cai_align.create(const_align(sizeof(aint))));
Consts.concat(Tai_label.Create(l)); Consts.concat(Tai_label.Create(l));
Consts.concat(Tai_const.Create_8bit(length(tsym(p).realname))); Consts.concat(Tai_const.Create_8bit(length(tsym(p).realname)));
Consts.concat(Tai_string.Create(tsym(p).realname)); Consts.concat(Tai_string.Create(tsym(p).realname));
@ -506,7 +503,7 @@ implementation
if count>0 then if count>0 then
begin begin
objectlibrary.getdatalabel(l); objectlibrary.getdatalabel(l);
datasegment.concat(tai_align.create(const_align(sizeof(aint)))); datasegment.concat(cai_align.create(const_align(sizeof(aint))));
dataSegment.concat(Tai_label.Create(l)); dataSegment.concat(Tai_label.Create(l));
dataSegment.concat(Tai_const.Create_32bit(count)); dataSegment.concat(Tai_const.Create_32bit(count));
_class.symtable.foreach(@do_gen_published_methods,nil); _class.symtable.foreach(@do_gen_published_methods,nil);
@ -865,7 +862,7 @@ implementation
begin begin
implintf:=_class.implementedinterfaces; implintf:=_class.implementedinterfaces;
curintf:=implintf.interfaces(intfindex); curintf:=implintf.interfaces(intfindex);
rawdata.concat(tai_align.create(const_align(sizeof(aint)))); rawdata.concat(cai_align.create(const_align(sizeof(aint))));
if maybe_smartlink_symbol then if maybe_smartlink_symbol then
rawdata.concat(Tai_symbol.Createname_global(gintfgetvtbllabelname(intfindex),AT_DATA ,0)) rawdata.concat(Tai_symbol.Createname_global(gintfgetvtbllabelname(intfindex),AT_DATA ,0))
else else
@ -896,7 +893,7 @@ implementation
begin begin
{ label for GUID } { label for GUID }
objectlibrary.getdatalabel(tmplabel); objectlibrary.getdatalabel(tmplabel);
rawdata.concat(tai_align.create(const_align(sizeof(aint)))); rawdata.concat(cai_align.create(const_align(sizeof(aint))));
rawdata.concat(Tai_label.Create(tmplabel)); rawdata.concat(Tai_label.Create(tmplabel));
rawdata.concat(Tai_const.Create_32bit(longint(curintf.iidguid^.D1))); rawdata.concat(Tai_const.Create_32bit(longint(curintf.iidguid^.D1)));
rawdata.concat(Tai_const.Create_16bit(curintf.iidguid^.D2)); rawdata.concat(Tai_const.Create_16bit(curintf.iidguid^.D2));
@ -916,7 +913,7 @@ implementation
dataSegment.concat(Tai_const.Create_32bit(implintf.ioffsets(contintfindex))); dataSegment.concat(Tai_const.Create_32bit(implintf.ioffsets(contintfindex)));
{ IIDStr } { IIDStr }
objectlibrary.getdatalabel(tmplabel); objectlibrary.getdatalabel(tmplabel);
rawdata.concat(tai_align.create(const_align(sizeof(aint)))); rawdata.concat(cai_align.create(const_align(sizeof(aint))));
rawdata.concat(Tai_label.Create(tmplabel)); rawdata.concat(Tai_label.Create(tmplabel));
rawdata.concat(Tai_const.Create_8bit(length(curintf.iidstr^))); rawdata.concat(Tai_const.Create_8bit(length(curintf.iidstr^)));
if curintf.objecttype=odt_interfacecom then if curintf.objecttype=odt_interfacecom then
@ -1106,7 +1103,6 @@ implementation
procedure tclassheader.gintfdoonintf(intf: tobjectdef; intfindex: longint); procedure tclassheader.gintfdoonintf(intf: tobjectdef; intfindex: longint);
var var
def: tdef; def: tdef;
procname: string; { for error }
mappedname: string; mappedname: string;
nextexist: pointer; nextexist: pointer;
implprocdef: tprocdef; implprocdef: tprocdef;
@ -1116,21 +1112,15 @@ implementation
begin begin
if def.deftype=procdef then if def.deftype=procdef then
begin begin
procname:='';
implprocdef:=nil; implprocdef:=nil;
nextexist:=nil; nextexist:=nil;
repeat repeat
mappedname:=_class.implementedinterfaces.getmappings(intfindex,tprocdef(def).procsym.name,nextexist); mappedname:=_class.implementedinterfaces.getmappings(intfindex,tprocdef(def).procsym.name,nextexist);
if procname='' then
procname:=tprocdef(def).procsym.name;
//mappedname; { for error messages }
if mappedname<>'' then if mappedname<>'' then
implprocdef:=gintfgetcprocdef(tprocdef(def),mappedname); implprocdef:=gintfgetcprocdef(tprocdef(def),mappedname);
until assigned(implprocdef) or not assigned(nextexist); until assigned(implprocdef) or not assigned(nextexist);
if not assigned(implprocdef) then if not assigned(implprocdef) then
implprocdef:=gintfgetcprocdef(tprocdef(def),tprocdef(def).procsym.name); implprocdef:=gintfgetcprocdef(tprocdef(def),tprocdef(def).procsym.name);
if procname='' then
procname:=tprocdef(def).procsym.name;
if assigned(implprocdef) then if assigned(implprocdef) then
_class.implementedinterfaces.addimplproc(intfindex,implprocdef) _class.implementedinterfaces.addimplproc(intfindex,implprocdef)
else else
@ -1164,7 +1154,7 @@ implementation
{ 2. step calc required fieldcount and their offsets in the object memory map { 2. step calc required fieldcount and their offsets in the object memory map
and write data } and write data }
objectlibrary.getdatalabel(intftable); objectlibrary.getdatalabel(intftable);
dataSegment.concat(tai_align.create(const_align(sizeof(aint)))); dataSegment.concat(cai_align.create(const_align(sizeof(aint))));
dataSegment.concat(Tai_label.Create(intftable)); dataSegment.concat(Tai_label.Create(intftable));
{ Optimize interface tables to reuse wrappers } { Optimize interface tables to reuse wrappers }
gintfoptimizevtbls; gintfoptimizevtbls;
@ -1368,7 +1358,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.89 2005-02-02 02:19:42 karoly Revision 1.90 2005-02-10 22:08:03 peter
* remove obsolete code
Revision 1.89 2005/02/02 02:19:42 karoly
* removed debug writelns from florian's previous commit * removed debug writelns from florian's previous commit
Revision 1.88 2005/02/01 23:18:54 florian Revision 1.88 2005/02/01 23:18:54 florian