compiler/systems/t_win.pas

194         procedure WriteObjData(objdata:TObjData);
206           objdata     : TObjData;
211           objdata:=CreateObjData(cut_begin);
212           idata2objsection:=objdata.createsection(sec_idata2,'');
213           idata4objsection:=objdata.createsection(sec_idata4,'');
214           idata5objsection:=objdata.createsection(sec_idata5,'');
218           objdata.SetSection(idata4objsection);
219           idata4label:=objdata.SymbolDefine(asmprefix+'_names_'+basedllname,AB_GLOBAL,AT_DATA);
221           objdata.SetSection(idata5objsection);
222           idata5label:=objdata.SymbolDefine(asmprefix+'_fixup_'+basedllname,AB_GLOBAL,AT_DATA);
224           objdata.SetSection(idata2objsection);
225           headlabel:=objdata.SymbolDefine(asmprefix+'_head_'+basedllname,AB_GLOBAL,AT_DATA);
227           objdata.writereloc(0,sizeof(longint),idata4label,RELOC_RVA);
228           objdata.writebytes(emptyint,sizeof(emptyint));
229           objdata.writebytes(emptyint,sizeof(emptyint));
230           idata7label:=objdata.SymbolRef(asmprefix+'_dll_'+basedllname);
231           objdata.writereloc(0,sizeof(longint),idata7label,RELOC_RVA);
232           objdata.writereloc(0,sizeof(longint),idata5label,RELOC_RVA);
233           WriteObjData(objdata);
234           objdata.free;
241           objdata     : TObjData;
246           objdata:=CreateObjData(cut_end);
247           idata4objsection:=objdata.createsection(sec_idata4,'');
248           idata5objsection:=objdata.createsection(sec_idata5,'');
249           idata7objsection:=objdata.createsection(sec_idata7,'');
252           objdata.SetSection(idata4objsection);
253           objdata.writebytes(emptyint,sizeof(emptyint));
255             objdata.writebytes(emptyint,sizeof(emptyint));
257           objdata.SetSection(idata5objsection);
258           objdata.writebytes(emptyint,sizeof(emptyint));
260             objdata.writebytes(emptyint,sizeof(emptyint));
262           objdata.SetSection(idata7objsection);
263           idata7label:=objdata.SymbolDefine(asmprefix+'_dll_'+basedllname,AB_GLOBAL,AT_DATA);
265           objdata.writebytes(basedllname[1],length(basedllname));
266           objdata.writebytes(emptyint,1);
267           WriteObjData(objdata);
268           objdata.free;
298           objdata     : TObjData;
313                 objdata.writereloc(0,sizeof(longint),idata6label,RELOC_RVA);
315                   objdata.writebytes(emptyint,sizeof(emptyint));
323                     objdata.writebytes(ordint,sizeof(ordint));
325                     objdata.writebytes(ordint,sizeof(ordint));
330                     objdata.writebytes(ordint,sizeof(ordint));
339           objdata:=CreateObjData(cut_normal);
341             textobjsection:=objdata.createsection(sec_code,'');
342           idata4objsection:=objdata.createsection(sec_idata4,'');
343           idata5objsection:=objdata.createsection(sec_idata5,'');
344           idata6objsection:=objdata.createsection(sec_idata6,'');
345           idata7objsection:=objdata.createsection(sec_idata7,'');
348           objdata.SetSection(idata7objsection);
349           idata2label:=objdata.SymbolRef(asmprefix+'_head_'+basedllname);
350           objdata.writereloc(0,sizeof(longint),idata2label,RELOC_RVA);
352           objdata.SetSection(idata6objsection);
354           idata6label:=objdata.SymbolDefine(asmprefix+'_'+tostr(idatalabnr),AB_LOCAL,AT_DATA);
357           objdata.writebytes(absordnr,2);
359             objdata.writebytes(afuncname[1],length(afuncname));
360           objdata.writebytes(emptyint,1);
361           objdata.writebytes(emptyint,align(objdata.CurrObjSec.size,2)-objdata.CurrObjSec.size);
363           objdata.SetSection(idata4objsection);
366           objdata.SetSection(idata5objsection);
368             implabel:=objdata.SymbolDefine(mangledname,AB_GLOBAL,AT_DATA)
370             idata5label:=objdata.SymbolDefine(asmprefix+'_'+mangledname,AB_LOCAL,AT_DATA);
375               objdata.SetSection(textobjsection);
377                 implabel:=objdata.SymbolDefine(mangledname,AB_GLOBAL,AT_FUNCTION)
379 …          implabel:=objdata.SymbolDefine(basedllname+'_index_'+tostr(ordnr),AB_GLOBAL,AT_FUNCTION);  in else()
380               objdata.writebytes(jmpopcode,sizeof(jmpopcode));
382               objdata.writereloc(0,sizeof(longint),idata5label,RELOC_RELATIVE);
384               objdata.writereloc(0,sizeof(longint),idata5label,RELOC_ABSOLUTE32);
386 …objdata.writebytes(nopopcodes,align(objdata.CurrObjSec.size,qword(sizeof(nopopcodes)))-objdata.Cur…
389           WriteObjData(objdata);
390           objdata.free;