浏览代码

* remove obsolete generatesmartlib

git-svn-id: trunk@3341 -
peter 19 年之前
父节点
当前提交
d19c898b56
共有 3 个文件被更改,包括 0 次插入22 次删除
  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 importprocedure(aprocdef:tprocdef;const module:string;index:longint;const name:string);virtual;
       procedure importvariable(vs:tglobalvarsym;const name,module:string);virtual;
       procedure importvariable(vs:tglobalvarsym;const name,module:string);virtual;
       procedure generatelib;virtual;
       procedure generatelib;virtual;
-      procedure generatesmartlib;virtual;
    end;
    end;
 
 
    TDLLScanner=class
    TDLLScanner=class
@@ -189,12 +188,6 @@ begin
 end;
 end;
 
 
 
 
-procedure timportlib.generatesmartlib;
-begin
-  NotSupported;
-end;
-
-
 {*****************************************************************************
 {*****************************************************************************
                                  Init/Done
                                  Init/Done
 *****************************************************************************}
 *****************************************************************************}

+ 0 - 8
compiler/pmodules.pas

@@ -100,14 +100,6 @@ implementation
         if (cs_create_smart in aktmoduleswitches) and
         if (cs_create_smart in aktmoduleswitches) and
            (not use_smartlink_section) then
            (not use_smartlink_section) then
          begin
          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);
            GenerateAsm(true);
            if (af_needar in target_asm.flags) then
            if (af_needar in target_asm.flags) then
              Linker.MakeStaticLibrary;
              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 importprocedure(aprocdef:tprocdef;const module:string;index:longint;const name:string);override;
       procedure importvariable(vs:tglobalvarsym;const name,module:string);override;
       procedure importvariable(vs:tglobalvarsym;const name,module:string);override;
       procedure generatelib;override;
       procedure generatelib;override;
-      procedure generatesmartlib;override;
     end;
     end;
 
 
     timportlibbsd=class(timportlib)
     timportlibbsd=class(timportlib)
@@ -111,12 +110,6 @@ implementation
       end;
       end;
 
 
 
 
-    procedure timportlibdarwin.generatesmartlib;
-      begin
-         generatelib;
-       end;
-
-
     procedure timportlibdarwin.generatelib;
     procedure timportlibdarwin.generatelib;
       begin
       begin
       end;
       end;