From b3bc562249354d9364fb8b14dbbd470cf9d1fc3f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 8 Dec 2003 22:37:04 +0000
Subject: [PATCH]   * base_file instead of b

---
 compiler/systems/t_win32.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/compiler/systems/t_win32.pas b/compiler/systems/t_win32.pas
index 10413a6478..e033c4a920 100644
--- a/compiler/systems/t_win32.pas
+++ b/compiler/systems/t_win32.pas
@@ -381,7 +381,7 @@ const
                  if hp2.name^<>'' then
                   importsSection.concat(Tai_const_symbol.Create_rva(hp2.lab))
                  else
-                  importsSection.concat(Tai_const.Create_32bit($80000000 or hp2.ordnr));
+                  importsSection.concat(Tai_const.Create_32bit(cardinal($80000000) or cardinal(hp2.ordnr)));
                  { finally the import information }
                  importsSection.concat(Tai_section.Create(sec_idata6));
                  importsSection.concat(Tai_label.Create(hp2.lab));
@@ -461,7 +461,7 @@ const
                    if hp2.name^<>'' then
                      importsSection.concat(Tai_const_symbol.Create_rva(hp2.lab))
                    else
-                     importsSection.concat(Tai_const.Create_32bit($80000000 or hp2.ordnr));
+                     importsSection.concat(Tai_const.Create_32bit(cardinal($80000000) or cardinal(hp2.ordnr)));
                    hp2:=twin32imported_item(hp2.next);
                 end;
               { finalize the names ... }
@@ -1006,7 +1006,7 @@ begin
   AsBinStr:=FindUtil(utilsprefix+'as');
   if RelocSection then
    { Using short form to avoid problems with 128 char limitation under Dos. }
-   RelocStr:='-b base.$$$';
+   RelocStr:='--base_file base.$$$';
   if apptype=app_gui then
    AppTypeStr:='--subsystem windows';
   if assigned(DLLImageBase) then
@@ -1622,7 +1622,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.23  2003-10-10 17:48:14  peter
+  Revision 1.24  2003-12-08 22:37:04  peter
+    * base_file instead of b
+
+  Revision 1.23  2003/10/10 17:48:14  peter
     * old trgobj moved to x86/rgcpu and renamed to trgx86fpu
     * tregisteralloctor renamed to trgobj
     * removed rgobj from a lot of units