paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-06 23:01:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* base_file instead of b

Browse Source
This commit is contained in:
peter 2003-12-08 22:37:04 +00:00
parent 6e1bc75531
commit b3bc562249
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/systems/t_win32.pas
View File

@ -381,7 +381,7 @@ const
if hp2.name^<>'' then if hp2.name^<>'' then
importsSection.concat(Tai_const_symbol.Create_rva(hp2.lab)) importsSection.concat(Tai_const_symbol.Create_rva(hp2.lab))
else 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 } { finally the import information }
importsSection.concat(Tai_section.Create(sec_idata6)); importsSection.concat(Tai_section.Create(sec_idata6));
importsSection.concat(Tai_label.Create(hp2.lab)); importsSection.concat(Tai_label.Create(hp2.lab));
@ -461,7 +461,7 @@ const
if hp2.name^<>'' then if hp2.name^<>'' then
importsSection.concat(Tai_const_symbol.Create_rva(hp2.lab)) importsSection.concat(Tai_const_symbol.Create_rva(hp2.lab))
else 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); hp2:=twin32imported_item(hp2.next);
end; end;
{ finalize the names ... } { finalize the names ... }
@ -1006,7 +1006,7 @@ begin
AsBinStr:=FindUtil(utilsprefix+'as'); AsBinStr:=FindUtil(utilsprefix+'as');
if RelocSection then if RelocSection then
{ Using short form to avoid problems with 128 char limitation under Dos. } { Using short form to avoid problems with 128 char limitation under Dos. }
RelocStr:='-b base.$$$'; RelocStr:='--base_file base.$$$';
if apptype=app_gui then if apptype=app_gui then
AppTypeStr:='--subsystem windows'; AppTypeStr:='--subsystem windows';
if assigned(DLLImageBase) then if assigned(DLLImageBase) then
@ -1622,7 +1622,10 @@ initialization
end. end.
{ {
$Log$ $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 * old trgobj moved to x86/rgcpu and renamed to trgx86fpu
* tregisteralloctor renamed to trgobj * tregisteralloctor renamed to trgobj
* removed rgobj from a lot of units * removed rgobj from a lot of units