Przeglądaj źródła

* remove obsolete generatesmartlib

git-svn-id: trunk@3341 -
peter 19 lat temu
rodzic
commit
d19c898b56
3 zmienionych plików z 0 dodań i 22 usunięć
  1. 0 7
      compiler/import.pas
  2. 0 8
      compiler/pmodules.pas
  3. 0 7
      compiler/systems/t_bsd.pas

+ 0 - 7
compiler/import.pas

@@ -60,7 +60,6 @@ type
       procedure importprocedure(aprocdef:tprocdef;const module:string;index:longint;const name:string);virtual;
       procedure importvariable(vs:tglobalvarsym;const name,module:string);virtual;
       procedure generatelib;virtual;
-      procedure generatesmartlib;virtual;
    end;
 
    TDLLScanner=class
@@ -189,12 +188,6 @@ begin
 end;
 
 
-procedure timportlib.generatesmartlib;
-begin
-  NotSupported;
-end;
-
-
 {*****************************************************************************
                                  Init/Done
 *****************************************************************************}

+ 0 - 8
compiler/pmodules.pas

@@ -100,14 +100,6 @@ implementation
         if (cs_create_smart in aktmoduleswitches) and
            (not use_smartlink_section) then
          begin
-           { regenerate the importssection for win32 }
-           if assigned(current_asmdata.asmlists[al_imports]) and
-              (target_info.system in [system_i386_win32,system_i386_wdosx, system_arm_wince,system_i386_wince]) then
-            begin
-              current_asmdata.asmlists[al_imports].clear;
-              importlib.generatesmartlib;
-            end;
-
            GenerateAsm(true);
            if (af_needar in target_asm.flags) then
              Linker.MakeStaticLibrary;

+ 0 - 7
compiler/systems/t_bsd.pas

@@ -53,7 +53,6 @@ implementation
       procedure importprocedure(aprocdef:tprocdef;const module:string;index:longint;const name:string);override;
       procedure importvariable(vs:tglobalvarsym;const name,module:string);override;
       procedure generatelib;override;
-      procedure generatesmartlib;override;
     end;
 
     timportlibbsd=class(timportlib)
@@ -111,12 +110,6 @@ implementation
       end;
 
 
-    procedure timportlibdarwin.generatesmartlib;
-      begin
-         generatelib;
-       end;
-
-
     procedure timportlibdarwin.generatelib;
       begin
       end;