Browse Source

* dlltool is also needed if we use DefFile

pierre 25 years ago
parent
commit
38ec9c22bb
1 changed files with 7 additions and 4 deletions
  1. 7 4
      compiler/t_win32.pas

+ 7 - 4
compiler/t_win32.pas

@@ -628,7 +628,7 @@ begin
    begin
    begin
      ExeCmd[1]:='ldw $OPT $STRIP $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
      ExeCmd[1]:='ldw $OPT $STRIP $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
      DllCmd[1]:='ldw $OPT $STRIP --dll $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
      DllCmd[1]:='ldw $OPT $STRIP --dll $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
-     if RelocSection then
+     if RelocSection or UseDeffileForExport then
        begin
        begin
           { ExeCmd[2]:='dlltool --as $ASBIN --dllname $EXE --output-exp exp.$$$ $RELOC $DEF';
           { ExeCmd[2]:='dlltool --as $ASBIN --dllname $EXE --output-exp exp.$$$ $RELOC $DEF';
             use short forms to avoid 128 char limitation problem }
             use short forms to avoid 128 char limitation problem }
@@ -851,7 +851,7 @@ begin
 
 
 { Call linker }
 { Call linker }
   success:=false;
   success:=false;
-  for i:=1to 3 do
+  for i:=1 to 3 do
    begin
    begin
      SplitBinCmd(Info.DllCmd[i],binstr,cmdstr);
      SplitBinCmd(Info.DllCmd[i],binstr,cmdstr);
      if binstr<>'' then
      if binstr<>'' then
@@ -1087,7 +1087,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.20  2000-02-28 17:23:57  daniel
+  Revision 1.21  2000-03-10 09:14:40  pierre
+   * dlltool is also needed if we use DefFile
+
+  Revision 1.20  2000/02/28 17:23:57  daniel
   * Current work of symtable integration committed. The symtable can be
   * Current work of symtable integration committed. The symtable can be
     activated by defining 'newst', but doesn't compile yet. Changes in type
     activated by defining 'newst', but doesn't compile yet. Changes in type
     checking and oop are completed. What is left is to write a new
     checking and oop are completed. What is left is to write a new
@@ -1166,4 +1169,4 @@ end.
     * redesigned linker object
     * redesigned linker object
     + library support for linux (only procedures can be exported)
     + library support for linux (only procedures can be exported)
 
 
-}
+}