Sfoglia il codice sorgente

- remove generation of the _FPCDummy symbol; for now this leads to more trouble than it has uses (namely none so far)

git-svn-id: trunk@34230 -
svenbarth 9 anni fa
parent
commit
839d82d9c6
1 ha cambiato i file con 1 aggiunte e 5 eliminazioni
  1. 1 5
      compiler/pmodules.pas

+ 1 - 5
compiler/pmodules.pas

@@ -1617,14 +1617,10 @@ type
 
 
          if target_info.system in systems_windows then
          if target_info.system in systems_windows then
            begin
            begin
-             new_section(current_asmdata.asmlists[al_globals],sec_data,'_FPCDummy',4);
-             current_asmdata.asmlists[al_globals].concat(tai_symbol.createname_global('_FPCDummy',AT_DATA,0,u32inttype));
-             current_asmdata.asmlists[al_globals].concat(tai_const.create_32bit(0));
-
+             { ToDo: generate an entry dummy using higher level functionality }
              new_section(current_asmdata.asmlists[al_procedures],sec_code,'',0);
              new_section(current_asmdata.asmlists[al_procedures],sec_code,'',0);
              current_asmdata.asmlists[al_procedures].concat(tai_symbol.createname_global('_DLLMainCRTStartup',AT_FUNCTION,0,voidcodepointertype));
              current_asmdata.asmlists[al_procedures].concat(tai_symbol.createname_global('_DLLMainCRTStartup',AT_FUNCTION,0,voidcodepointertype));
              gen_fpc_dummy(current_asmdata.asmlists[al_procedures]);
              gen_fpc_dummy(current_asmdata.asmlists[al_procedures]);
-             current_asmdata.asmlists[al_procedures].concat(tai_const.createname('_FPCDummy',0));
            end;
            end;
 
 
          { leave when we got an error }
          { leave when we got an error }