paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 14:21:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* change edatalabel to string references. The edatalabel is not available anymore after a unit is compiled

Browse Source 
git-svn-id: trunk@3920 -
This commit is contained in:
peter 2006-06-22 06:02:58 +00:00
parent 2f147715f4
commit 6a4ee03913
3 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/export.pas
View File

@ -53,7 +53,6 @@ type
notsupmsg : boolean;
procedure NotSupported;
public
edatalabel : tasmlabel;
constructor Create;virtual;
destructor Destroy;override;
procedure preparelib(const s : string);virtual;
@ -106,7 +105,6 @@ end;
constructor texportlib.Create;
begin
notsupmsg:=false;
edatalabel:=nil;
end;

4
compiler/pmodules.pas
View File

@ -1333,7 +1333,7 @@ implementation
if assigned(exportlib) and
(target_info.system in [system_i386_win32,system_i386_wdosx]) and
((current_module.flags and uf_has_exports)<>0) then
current_asmdata.asmlists[al_procedures].concat(tai_const.create_sym(exportlib.edatalabel));
current_asmdata.asmlists[al_procedures].concat(tai_const.createname(make_mangledname('EDATA',current_module.localsymtable,''),0));
{ finalize? }
if token=_FINALIZATION then
@ -1389,7 +1389,7 @@ implementation
{ do we need to add the variants unit? }
maybeloadvariantsunit;
{$ifdef arm}
{ Insert .pdata section for arm-wince.
It is needed for exception handling. }

3
compiler/systems/t_win.pas
View File

@ -642,7 +642,6 @@ implementation
current_asmdata.asmlists[al_exports]:=TAsmList.create;
EList_indexed:=tFPList.Create;
EList_nonindexed:=tFPList.Create;
current_asmdata.getdatalabel(edatalabel);
end;
@ -805,7 +804,7 @@ implementation
new_section(current_asmdata.asmlists[al_exports],sec_edata,'',0);
{ create label to reference from main so smartlink will include
the .edata section }
current_asmdata.asmlists[al_exports].concat(Tai_symbol.Create_global(edatalabel,0));
current_asmdata.asmlists[al_exports].concat(Tai_symbol.Createname_global(make_mangledname('EDATA',current_module.localsymtable,''),AT_DATA,0));
{ export flags }
current_asmdata.asmlists[al_exports].concat(Tai_const.Create_32bit(0));
{ date/time stamp }