diff options
author | yury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-07-28 21:54:18 +0000 |
---|---|---|
committer | yury <yury@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-07-28 21:54:18 +0000 |
commit | 696a5368adae7730bc2ce8af805cf3c0baf45180 (patch) | |
tree | be62c82fb7d4586498a47a37b52dfa0ac10c592d /compiler | |
parent | 922ed90c979d3a83fd536354e6cea82021769de3 (diff) | |
download | fpc-696a5368adae7730bc2ce8af805cf3c0baf45180.tar.gz |
* Added error message if resulting executable image size is too big to fit in memory. bug #11702.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11481 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler')
-rw-r--r-- | compiler/msg/errore.msg | 17 | ||||
-rw-r--r-- | compiler/msgidx.inc | 5 | ||||
-rw-r--r-- | compiler/msgtxt.inc | 267 | ||||
-rw-r--r-- | compiler/ogbase.pas | 29 | ||||
-rw-r--r-- | compiler/ogcoff.pas | 11 |
5 files changed, 185 insertions, 144 deletions
diff --git a/compiler/msg/errore.msg b/compiler/msg/errore.msg index b86049f1a7..120ff26da5 100644 --- a/compiler/msg/errore.msg +++ b/compiler/msg/errore.msg @@ -23,7 +23,8 @@ # parser_ parser # type_ type checking # general_ general info -# exec_ calls to assembler, linker, binder +# exec_ calls to assembler, external linker, binder +# link_ internal linker # # <type> the type of the message it should normally used for # f_ fatal error @@ -2162,6 +2163,20 @@ execinfo_x_stackcommit=09134_X_Stack space committed: $1 bytes # EndOfTeX # +# Internal linker messages +# +# 09200 is the last used one +# +# BeginOfTeX +% \section{Linker messages} +% This section lists messages produced by internal linker. +% \begin{description} +link_f_executable_too_big=09200_F_Executable image size is too big for $1 target. +% Fatal error when resulting executable is too big. +%\end{description} +# EndOfTeX + +# # Unit loading # # 10060 is the last used one diff --git a/compiler/msgidx.inc b/compiler/msgidx.inc index 8efe97f461..64c069c337 100644 --- a/compiler/msgidx.inc +++ b/compiler/msgidx.inc @@ -651,6 +651,7 @@ const execinfo_x_uninitdatasize=09132; execinfo_x_stackreserve=09133; execinfo_x_stackcommit=09134; + link_f_executable_too_big=09200; unit_t_unitsearch=10000; unit_t_ppu_loading=10001; unit_u_ppu_name=10002; @@ -752,9 +753,9 @@ const option_info=11024; option_help_pages=11025; - MsgTxtSize = 47099; + MsgTxtSize = 47155; MsgIdxMax : array[1..20] of longint=( - 24,87,248,84,64,50,108,22,135,61, + 24,87,248,84,64,50,108,22,201,61, 43,1,1,1,1,1,1,1,1,1 ); diff --git a/compiler/msgtxt.inc b/compiler/msgtxt.inc index 5c44e0bd54..2de602c4c6 100644 --- a/compiler/msgtxt.inc +++ b/compiler/msgtxt.inc @@ -734,114 +734,116 @@ const msgtxt : array[0..000196,1..240] of char=( '09132_X_Size of uninitialized data: $1 bytes'#000+ '09133_X_Stack space reserved: $1 bytes'#000+ '09134_X_Stack space committed: $1 bytes'#000+ + '09200_F_Executable image size is too big for ','$1 target.'#000+ '10000_T_Unitsearch: $1'#000+ - '10001_T_PPU Loading $1',#000+ + '10001_T_PPU Loading $1'#000+ '10002_U_PPU Name: $1'#000+ '10003_U_PPU Flags: $1'#000+ '10004_U_PPU Crc: $1'#000+ '10005_U_PPU Time: $1'#000+ '10006_U_PPU File too short'#000+ '10007_U_PPU Invalid Header (no PPU at the begin)'#000+ - '10008_U_PPU Invalid Version $1'#000+ + '10008_U_PPU Invalid Ver','sion $1'#000+ '10009_U_PPU is compiled for another processor'#000+ - '10','010_U_PPU is compiled for an other target'#000+ + '10010_U_PPU is compiled for an other target'#000+ '10011_U_PPU Source: $1'#000+ '10012_U_Writing $1'#000+ '10013_F_Can'#039't Write PPU-File'#000+ '10014_F_Error reading PPU-File'#000+ '10015_F_unexpected end of PPU-File'#000+ - '10016_F_Invalid PPU-File entry: $1'#000+ - '10017_F_PPU Dbx count prob','lem'#000+ + '10016','_F_Invalid PPU-File entry: $1'#000+ + '10017_F_PPU Dbx count problem'#000+ '10018_E_Illegal unit name: $1'#000+ '10019_F_Too much units'#000+ '10020_F_Circular unit reference between $1 and $2'#000+ '10021_F_Can'#039't compile unit $1, no sources available'#000+ - '10022_F_Can'#039't find unit $1 used by $2'#000+ - '10023_W_Unit $1 was not found but $2 exists',#000+ + '10022_F_Can'#039't find unit $','1 used by $2'#000+ + '10023_W_Unit $1 was not found but $2 exists'#000+ '10024_F_Unit $1 searched but $2 found'#000+ '10025_W_Compiling the system unit requires the -Us switch'#000+ '10026_F_There were $1 errors compiling module, stopping'#000+ - '10027_U_Load from $1 ($2) unit $3'#000+ + '10027_U_Load from $1 ($2) unit ','$3'#000+ '10028_U_Recompiling $1, checksum changed for $2'#000+ - '10029','_U_Recompiling $1, source found only'#000+ + '10029_U_Recompiling $1, source found only'#000+ '10030_U_Recompiling unit, static lib is older than ppufile'#000+ '10031_U_Recompiling unit, shared lib is older than ppufile'#000+ - '10032_U_Recompiling unit, obj and asm are older than ppufile'#000+ - '10033_U_Recompiling unit',', obj is older than asm'#000+ + '10032_U_Recompiling unit, obj',' and asm are older than ppufile'#000+ + '10033_U_Recompiling unit, obj is older than asm'#000+ '10034_U_Parsing interface of $1'#000+ '10035_U_Parsing implementation of $1'#000+ '10036_U_Second load for unit $1'#000+ '10037_U_PPU Check file $1 time $2'#000+ - '10040_W_Can'#039't recompile unit $1, but found modifed include files'#000+ - '10041_U_File $1 ','is newer than PPU file $2'#000+ + '10040_W_Can'#039't recompile u','nit $1, but found modifed include files'+ + #000+ + '10041_U_File $1 is newer than PPU file $2'#000+ '10042_U_Trying to use a unit which was compiled with a different FPU m'+ 'ode'#000+ '10043_U_Loading interface units from $1'#000+ - '10044_U_Loading implementation units from $1'#000+ + '10044_U_Loading implementation units from $1',#000+ '10045_U_Interface CRC changed for unit $1'#000+ - '10046_U_Imple','mentation CRC changed for unit $1'#000+ + '10046_U_Implementation CRC changed for unit $1'#000+ '10047_U_Finished compiling unit $1'#000+ '10048_U_Add dependency of $1 to $2'#000+ '10049_U_No reload, is caller: $1'#000+ - '10050_U_No reload, already in second compile: $1'#000+ + '10050_U_No reload, already in second compile: $','1'#000+ '10051_U_Flag for reload: $1'#000+ '10052_U_Forced reloading'#000+ - '1','0053_U_Previous state of $1: $2'#000+ + '10053_U_Previous state of $1: $2'#000+ '10054_U_Already compiling $1, setting second compile'#000+ '10055_U_Loading unit $1'#000+ '10056_U_Finished loading unit $1'#000+ '10057_U_Registering new unit $1'#000+ - '10058_U_Re-resolving unit $1'#000+ - '10059_U_Skipping re-resolving unit $1',', still loading used units'#000+ + '10058_U_Re','-resolving unit $1'#000+ + '10059_U_Skipping re-resolving unit $1, still loading used units'#000+ '10060_U_Unloading resource unit $1 (not needed)'#000+ '11000_O_$1 [options] <inputfile> [options]'#000+ '11001_W_Only one source file supported'#000+ - '11002_W_DEF file can be created only for OS/2'#000+ - '11003_E_nested response files are not',' supported'#000+ + '11002_W_DEF file can be cre','ated only for OS/2'#000+ + '11003_E_nested response files are not supported'#000+ '11004_F_No source file name in command line'#000+ '11005_N_No option inside $1 config file'#000+ '11006_E_Illegal parameter: $1'#000+ '11007_H_-? writes help pages'#000+ - '11008_F_Too many config files nested'#000+ + '11008_F_Too many config files ','nested'#000+ '11009_F_Unable to open file $1'#000+ - '11010_D_Reading fu','rther options from $1'#000+ + '11010_D_Reading further options from $1'#000+ '11011_W_Target is already set to: $1'#000+ '11012_W_Shared libs not supported on DOS platform, reverting to static'+ #000+ '11013_F_too many IF(N)DEFs'#000+ '11014_F_too many ENDIFs'#000+ - '11015_F_open conditional at the end of the file'#000+ - '11016_W_Deb','ug information generation is not supported by this execut'+ - 'able'#000+ + '110','15_F_open conditional at the end of the file'#000+ + '11016_W_Debug information generation is not supported by this executab'+ + 'le'#000+ '11017_H_Try recompiling with -dGDB'#000+ '11018_W_You are using the obsolete switch $1'#000+ - '11019_W_You are using the obsolete switch $1, please use $2'#000+ - '11020_N_Switching assembler to default',' source writing assembler'#000+ + '11019_W_You are using the obsolete switch ','$1, please use $2'#000+ + '11020_N_Switching assembler to default source writing assembler'#000+ '11021_W_Assembler output selected "$1" is not compatible with "$2"'#000+ '11022_W_"$1" assembler use forced'#000+ '11026_T_Reading options from file $1'#000+ - '11027_T_Reading options from environment $1'#000+ + '11027_T_Reading opti','ons from environment $1'#000+ '11028_D_Handling option "$1"'#000+ - '110','29__*** press enter ***'#000+ + '11029__*** press enter ***'#000+ '11030_H_Start of reading config file $1'#000+ '11031_H_End of reading config file $1'#000+ '11032_D_interpreting option "$1"'#000+ '11036_D_interpreting firstpass option "$1"'#000+ - '11033_D_interpreting file option "$1"'#000+ - '11034_D_Reading config f','ile "$1"'#000+ + '11033_','D_interpreting file option "$1"'#000+ + '11034_D_Reading config file "$1"'#000+ '11035_D_found source file name "$1"'#000+ '11039_E_Unknown code page'#000+ '11040_F_Config file $1 is a directory'#000+ '11041_W_Assembler output selected "$1" cannot generate debug info, deb'+ - 'ugging disabled'#000+ - '11042_W_Use of ppc386.cfg is deprecated, plea','se use fpc.cfg instead'#000+ + 'uggin','g disabled'#000+ + '11042_W_Use of ppc386.cfg is deprecated, please use fpc.cfg instead'#000+ '11023_Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPC'+ 'CPU'#010+ 'Copyright (c) 1993-2008 by Florian Klaempfl'#000+ - '11024_Free Pascal Compiler version $FPCVERSION'#010+ + '11024_Free Pascal Compiler version $FPCVERS','ION'#010+ #010+ 'Compiler Date : $FPCDATE'#010+ - 'Compiler CPU Target: ','$FPCCPU'#010+ + 'Compiler CPU Target: $FPCCPU'#010+ #010+ 'Supported targets:'#010+ ' $OSTARGETS'#010+ @@ -853,192 +855,192 @@ const msgtxt : array[0..000196,1..240] of char=( ' $FPUINSTRUCTIONSETS'#010+ #010+ 'Supported ABI targets:'#010+ - ' $ABITARGETS'#010+ + ' $ABITARGET','S'#010+ #010+ 'Supported Optimizations:'#010+ ' $OPTIMIZATIONS'#010+ #010+ - 'This progr','am comes under the GNU General Public Licence'#010+ + 'This program comes under the GNU General Public Licence'#010+ 'For more information read COPYING.FPC'#010+ #010+ 'Report bugs,suggestions etc to:'#010+ ' bugs@freepascal.org'#000+ - '11025_**0*_Put + after a boolean switch option to enable it, - to disa'+ - 'ble it'#010+ - '**1a_The ','compiler doesn'#039't delete the generated assembler file'#010+ + '11025_**0*_Put + after a boole','an switch option to enable it, - to di'+ + 'sable it'#010+ + '**1a_The compiler doesn'#039't delete the generated assembler file'#010+ '**2al_List sourcecode lines in assembler file'#010+ '**2an_List node info in assembler file'#010+ - '*L2ap_Use pipes instead of creating temporary assembler files'#010+ - '**2ar_List register allocation/release i','nfo in assembler file'#010+ + '*L2ap_Use pipes instead of creating temporary ','assembler files'#010+ + '**2ar_List register allocation/release info in assembler file'#010+ '**2at_List temp allocation/release info in assembler file'#010+ '**1A<x>_Output format:'#010+ '**2Adefault_Use default assembler'#010+ '3*2Aas_Assemble using GNU AS'#010+ - '3*2Anasmcoff_COFF (Go32v2) file using Nasm'#010+ - '3*2Anasmelf_ELF32 (Linux) file ','using Nasm'#010+ + '3*2Anasmcoff_COFF ','(Go32v2) file using Nasm'#010+ + '3*2Anasmelf_ELF32 (Linux) file using Nasm'#010+ '3*2Anasmwin32_Win32 object file using Nasm'#010+ '3*2Anasmwdosx_Win32/WDOSX object file using Nasm'#010+ '3*2Awasm_Obj file using Wasm (Watcom)'#010+ '3*2Anasmobj_Obj file using Nasm'#010+ - '3*2Amasm_Obj file using Masm (Microsoft)'#010+ - '3*2Atasm_Obj file using Ta','sm (Borland)'#010+ + '3*2Amasm_Ob','j file using Masm (Microsoft)'#010+ + '3*2Atasm_Obj file using Tasm (Borland)'#010+ '3*2Aelf_ELF (Linux) using internal writer'#010+ '3*2Acoff_COFF (Go32v2) using internal writer'#010+ '3*2Apecoff_PE-COFF (Win32) using internal writer'#010+ '4*2Aas_Assemble using GNU AS'#010+ - '6*2Aas_Unix o-file using GNU AS'#010+ - '6*2Agas_GNU Motorola assembler',#010+ + '6*2Aas','_Unix o-file using GNU AS'#010+ + '6*2Agas_GNU Motorola assembler'#010+ '6*2Amit_MIT Syntax (old GAS)'#010+ '6*2Amot_Standard Motorola assembler'#010+ 'A*2Aas_Assemble using GNU AS'#010+ 'P*2Aas_Assemble using GNU AS'#010+ 'S*2Aas_Assemble using GNU AS'#010+ '**1b_Generate browser info'#010+ - '**2bl_Generate local symbol info'#010+ + '**2b','l_Generate local symbol info'#010+ '**1B_Build all modules'#010+ - '**1C','<x>_Code generation options:'#010+ + '**1C<x>_Code generation options:'#010+ '**2Ca<x>_Select ABI, see fpc -i for possible values'#010+ '**2Cb_Generate big-endian code'#010+ '**2Cc<x>_Set default calling convention to <x>'#010+ - '**2CD_Create also dynamic library (not supported)'#010+ - '**2Ce_Compilation with emulated',' floating point opcodes'#010+ + '**2CD_Create also dynamic',' library (not supported)'#010+ + '**2Ce_Compilation with emulated floating point opcodes'#010+ '**2Cf<x>_Select fpu instruction set to use, see fpc -i for possible va'+ 'lues'#010+ '**2CF<x>_Minimal floating point constant precision (default, 32, 64)'#010+ - '**2Cg_Generate PIC code'#010+ - '**2Ch<n>_<n> bytes heap (between 1023 and 671078','40)'#010+ + '**2Cg_Generate P','IC code'#010+ + '**2Ch<n>_<n> bytes heap (between 1023 and 67107840)'#010+ '**2Ci_IO-checking'#010+ '**2Cn_Omit linking stage'#010+ '**2Co_Check overflow of integer operations'#010+ '**2CO_Check for possible overflow of integer operations'#010+ - '**2Cp<x>_Select instruction set, see fpc -i for possible values'#010+ - '**2CP<x>=<y>_ packing settings',#010+ + '**2Cp<x>_Select instruction set, see f','pc -i for possible values'#010+ + '**2CP<x>=<y>_ packing settings'#010+ '**3CPPACKSET=<y>_ <y> set allocation: 0, 1 or DEFAULT or NORMAL, 2, 4 '+ 'and 8'#010+ '**2Cr_Range checking'#010+ '**2CR_Verify object method call validity'#010+ '**2Cs<n>_Set stack size to <n>'#010+ - '**2Ct_Stack checking'#010+ + '**2Ct_Stack ch','ecking'#010+ '**2CX_Create also smartlinked library'#010+ - '**1d<x>_Def','ines the symbol <x>'#010+ + '**1d<x>_Defines the symbol <x>'#010+ '**1D_Generate a DEF file'#010+ '**2Dd<x>_Set description to <x>'#010+ '**2Dv<x>_Set DLL version to <x>'#010+ '*O2Dw_PM application'#010+ '**1e<x>_Set path to executable'#010+ '**1E_Same as -Cn'#010+ - '**1fPIC_Same as -Cg'#010+ + '**1fPI','C_Same as -Cg'#010+ '**1F<x>_Set file names and paths:'#010+ - '**2Fa<x>','[,y]_(for a program) load units <x> and [y] before uses is p'+ - 'arsed'#010+ + '**2Fa<x>[,y]_(for a program) load units <x> and [y] before uses is par'+ + 'sed'#010+ '**2Fc<x>_Set input codepage to <x>'#010+ '**2FC<x>_Set RC compiler binary name to <x>'#010+ - '**2FD<x>_Set the directory where to search for compiler utilities'#010+ - '**2Fe<x>_Redirect error outpu','t to <x>'#010+ + '**2FD<x>_Set the directory where to sea','rch for compiler utilities'#010+ + '**2Fe<x>_Redirect error output to <x>'#010+ '**2Ff<x>_Add <x> to framework path (Darwin only)'#010+ '**2FE<x>_Set exe/unit output path to <x>'#010+ '**2Fi<x>_Add <x> to include path'#010+ '**2Fl<x>_Add <x> to library path'#010+ - '**2FL<x>_Use <x> as dynamic linker'#010+ - '**2Fm<x>_Load unicode conversion table f','rom <x>.txt in the compiler '+ - 'dir'#010+ + '**2FL<x>_Use <x> as',' dynamic linker'#010+ + '**2Fm<x>_Load unicode conversion table from <x>.txt in the compiler di'+ + 'r'#010+ '**2Fo<x>_Add <x> to object path'#010+ '**2Fr<x>_Load error message file <x>'#010+ '**2FR<x>_Set resource (.res) linker to <x>'#010+ '**2Fu<x>_Add <x> to unit path'#010+ - '**2FU<x>_Set unit output path to <x>, overrides -FE'#010+ - '*g1g_Generate ','debug information (default format for target)'#010+ + '**2FU<x>_S','et unit output path to <x>, overrides -FE'#010+ + '*g1g_Generate debug information (default format for target)'#010+ '*g2gc_Generate checks for pointers'#010+ '*g2gh_Use heaptrace unit (for memory leak/corruption debugging)'#010+ - '*g2gl_Use line info unit (show more info with backtraces)'#010+ - '*g2go<x>_Set debug information option','s'#010+ + '*g2gl_Use line info unit (show more inf','o with backtraces)'#010+ + '*g2go<x>_Set debug information options'#010+ '*g3godwarfsets_ Enable Dwarf set debug information (breaks gdb < 6.5)'#010+ '*g2gp_Preserve case in stabs symbol names'#010+ '*g2gs_Generate stabs debug information'#010+ - '*g2gt_Trash local variables (to detect uninitialized uses)'#010+ - '*g2gv_Generates programs tra','ceable with valgrind'#010+ + '*g2gt_Trash local variables (to',' detect uninitialized uses)'#010+ + '*g2gv_Generates programs traceable with valgrind'#010+ '*g2gw_Generate dwarf-2 debug information (same as -gw2)'#010+ '*g2gw2_Generate dwarf-2 debug information'#010+ '*g2gw3_Generate dwarf-3 debug information'#010+ '**1i_Information'#010+ - '**2iD_Return compiler date'#010+ - '**2iV_Return short compiler version',#010+ + '**2iD_','Return compiler date'#010+ + '**2iV_Return short compiler version'#010+ '**2iW_Return full compiler version'#010+ '**2iSO_Return compiler OS'#010+ '**2iSP_Return compiler host processor'#010+ '**2iTO_Return target OS'#010+ '**2iTP_Return target processor'#010+ - '**1I<x>_Add <x> to include path'#010+ + '**1I<x>_Add <x> to include pa','th'#010+ '**1k<x>_Pass <x> to the linker'#010+ '**1l_Write logo'#010+ - '**1M<x','>_Set language mode to <x>'#010+ + '**1M<x>_Set language mode to <x>'#010+ '**2Mfpc_Free Pascal dialect (default)'#010+ '**2Mobjfpc_FPC mode with Object Pascal support'#010+ '**2Mdelphi_Delphi 7 compatibility mode'#010+ - '**2Mtp_TP/BP 7.0 compatibility mode'#010+ - '**2Mmacpas_Macintosh Pascal dialects compatibility mo','de'#010+ + '**2Mtp_TP/BP 7.0 compatibility mo','de'#010+ + '**2Mmacpas_Macintosh Pascal dialects compatibility mode'#010+ '**1n_Do not read the default config files'#010+ '**1N<x>_Node tree optimizations'#010+ '**2Nu_Unroll loops'#010+ '**1o<x>_Change the name of the executable produced to <x>'#010+ '**1O<x>_Optimizations:'#010+ - '**2O-_Disable optimizations'#010+ - '**2O1_Level 1 optimizations (quick ','and debugger friendly)'#010+ + '**2O-_D','isable optimizations'#010+ + '**2O1_Level 1 optimizations (quick and debugger friendly)'#010+ '**2O2_Level 2 optimizations (-O1 + quick optimizations)'#010+ '**2O3_Level 3 optimizations (-O2 + slow optimizations)'#010+ '**2Oa<x>=<y>_Set alignment'#010+ - '**2Oo[NO]<x>_Enable or disable optimizations, see fpc -i for possible '+ - 'values'#010+ - '**','2Op<x>_Set target cpu for optimizing, see fpc -i for possible valu'+ - 'es'#010+ + '**2Oo[NO]<x>_Enable or ','disable optimizations, see fpc -i for possibl'+ + 'e values'#010+ + '**2Op<x>_Set target cpu for optimizing, see fpc -i for possible values'+ + #010+ '**2Os_Optimize for size rather than speed'#010+ '**1pg_Generate profile code for gprof (defines FPC_PROFILE)'#010+ - '**1R<x>_Assembler reading style:'#010+ - '**2Rdefault_Use default assembler fo','r target'#010+ + '**1R<x>_Assem','bler reading style:'#010+ + '**2Rdefault_Use default assembler for target'#010+ '3*2Ratt_Read AT&T style assembler'#010+ '3*2Rintel_Read Intel style assembler'#010+ '6*2RMOT_Read motorola style assembler'#010+ '**1S<x>_Syntax options:'#010+ '**2S2_Same as -Mobjfpc'#010+ - '**2Sc_Support operators like C (*=,+=,/= and -=)'#010+ + '**2Sc_Support opera','tors like C (*=,+=,/= and -=)'#010+ '**2Sa_Turn on assertions'#010+ - '*','*2Sd_Same as -Mdelphi'#010+ + '**2Sd_Same as -Mdelphi'#010+ '**2Se<x>_Error options. <x> is a combination of the following:'#010+ '**3*_<n> : Compiler halts after the <n> errors (default is 1)'#010+ - '**3*_w : Compiler also halts after warnings'#010+ + '**3*_w : Compiler also halts after wa','rnings'#010+ '**3*_n : Compiler also halts after notes'#010+ - '**3*_h :',' Compiler also halts after hints'#010+ + '**3*_h : Compiler also halts after hints'#010+ '**2Sg_Enable LABEL and GOTO (default in -Mtp and -Mdelphi)'#010+ '**2Sh_Use ansistrings by default instead of shortstrings'#010+ - '**2Si_Turn on inlining of procedures/functions declared as "inline"'#010+ - '**2Sk_Load fpcylix unit',#010+ + '**2Si_Turn on inlining of procedure','s/functions declared as "inline"'#010+ + '**2Sk_Load fpcylix unit'#010+ '**2SI<x>_Set interface style to <x>'#010+ '**3SIcom_COM compatible interface (default)'#010+ '**3SIcorba_CORBA compatible interface'#010+ '**2Sm_Support macros like C (global)'#010+ '**2So_Same as -Mtp'#010+ - '**2Ss_Constructor name must be init (destructor must be done)'#010+ - '**2','St_Allow static keyword in objects'#010+ + '**2Ss_Con','structor name must be init (destructor must be done)'#010+ + '**2St_Allow static keyword in objects'#010+ '**2Sx_Enable exception keywords (default in Delphi/ObjFPC modes)'#010+ '**1s_Do not call assembler and linker'#010+ '**2sh_Generate script to link on host'#010+ - '**2st_Generate script to link on target'#010+ - '**2sr_Skip register allo','cation phase (use with -alr)'#010+ + '**2st_Ge','nerate script to link on target'#010+ + '**2sr_Skip register allocation phase (use with -alr)'#010+ '**1T<x>_Target operating system:'#010+ '3*2Temx_OS/2 via EMX (including EMX/RSX extender)'#010+ '3*2Tfreebsd_FreeBSD'#010+ '3*2Tgo32v2_Version 2 of DJ Delorie DOS extender'#010+ - '3*2Tlinux_Linux'#010+ + '3*2T','linux_Linux'#010+ '3*2Tnetbsd_NetBSD'#010+ - '3*2Tnetware_Novell Netware',' Module (clib)'#010+ + '3*2Tnetware_Novell Netware Module (clib)'#010+ '3*2Tnetwlibc_Novell Netware Module (libc)'#010+ '3*2Topenbsd_OpenBSD'#010+ '3*2Tos2_OS/2 / eComStation'#010+ '3*2Tsunos_SunOS/Solaris'#010+ '3*2Tsymbian_Symbian OS'#010+ - '3*2Twatcom_Watcom compatible DOS extender'#010+ + '3*2Twatcom_Watcom compatible DOS ','extender'#010+ '3*2Twdosx_WDOSX DOS extender'#010+ - '3*2Twin32_Windows ','32 Bit'#010+ + '3*2Twin32_Windows 32 Bit'#010+ '3*2Twince_Windows CE'#010+ '4*2Tlinux_Linux'#010+ '6*2Tamiga_Commodore Amiga'#010+ @@ -1046,84 +1048,83 @@ const msgtxt : array[0..000196,1..240] of char=( '6*2Tlinux_Linux/m68k'#010+ '6*2Tmacos_Macintosh m68k (not supported)'#010+ '6*2Tpalmos_PalmOS'#010+ - 'A*2Tlinux_Linux'#010+ + 'A*2Tlinu','x_Linux'#010+ 'A*2Twince_Windows CE'#010+ - 'P*2Tamiga_AmigaOS on PowerP','C'#010+ + 'P*2Tamiga_AmigaOS on PowerPC'#010+ 'P*2Tdarwin_Darwin and Mac OS X on PowerPC'#010+ 'P*2Tlinux_Linux on PowerPC'#010+ 'P*2Tmacos_Mac OS (classic) on PowerPC'#010+ 'P*2Tmorphos_MorphOS'#010+ 'S*2Tlinux_Linux'#010+ '**1u<x>_Undefines the symbol <x>'#010+ - '**1U_Unit options:'#010+ - '**2Un_Do not check where the unit name matc','hes the file name'#010+ + '**1U_U','nit options:'#010+ + '**2Un_Do not check where the unit name matches the file name'#010+ '**2Ur_Generate release unit files (never automatically recompiled)'#010+ '**2Us_Compile a system unit'#010+ '**1v<x>_Be verbose. <x> is a combination of the following letters:'#010+ - '**2*_e : Show errors (default) 0 : Show nothing (excep','t errors'+ + '**2*','_e : Show errors (default) 0 : Show nothing (except errors'+ ')'#010+ '**2*_w : Show warnings u : Show unit info'#010+ '**2*_n : Show notes t : Show tried/used files'#010+ - '**2*_h : Show hints c : Show conditionals'#010+ - '**2*_i : Show general info d : Show debug ','info'#010+ + '**2*_h : Show hints c : Show condition','als'#010+ + '**2*_i : Show general info d : Show debug info'#010+ '**2*_l : Show linenumbers r : Rhide/GCC compatibility mode'#010+ '**2*_a : Show everything x : Executable info (Win32 only)'#010+ - '**2*_b : Write file names messages with full path'#010+ - '**2*_v : Write fpcdebug.txt with p : Writ','e tree.log with parse t'+ - 'ree'#010+ + '**2*_b : Write file names messages with',' full path'#010+ + '**2*_v : Write fpcdebug.txt with p : Write tree.log with parse tre'+ + 'e'#010+ '**2*_ lots of debugging info'#010+ '3*1W<x>_Target-specific options (targets)'#010+ 'A*1W<x>_Target-specific options (targets)'#010+ - 'P*1W<x>_Target-specific options (targets)'#010+ + 'P*1W<x>_Target-specific options (targets)',#010+ '3*2Wb_Create a bundle instead of a library (Darwin)'#010+ - 'P*2','Wb_Create a bundle instead of a library (Darwin)'#010+ + 'P*2Wb_Create a bundle instead of a library (Darwin)'#010+ 'p*2Wb_Create a bundle instead of a library (Darwin)'#010+ '3*2WB_Create a relocatable image (Windows)'#010+ - 'A*2WB_Create a relocatable image (Windows, Symbian)'#010+ - '3*2WC_Specify console type application (EMX,',' OS/2, Windows)'#010+ + 'A*2WB_Create a relocatable image (Window','s, Symbian)'#010+ + '3*2WC_Specify console type application (EMX, OS/2, Windows)'#010+ 'A*2WC_Specify console type application (Windows)'#010+ 'P*2WC_Specify console type application (Classic Mac OS)'#010+ '3*2WD_Use DEFFILE to export functions of DLL or EXE (Windows)'#010+ - 'A*2WD_Use DEFFILE to export functions of DLL or EXE (Wind','ows)'#010+ + 'A','*2WD_Use DEFFILE to export functions of DLL or EXE (Windows)'#010+ '3*2We_Use external resources (Darwin)'#010+ 'P*2We_Use external resources (Darwin)'#010+ 'p*2We_Use external resources (Darwin)'#010+ '3*2WF_Specify full-screen type application (EMX, OS/2)'#010+ - '3*2WG_Specify graphic type application (EMX, OS/2, Windows)'#010+ - 'A*2WG_','Specify graphic type application (Windows)'#010+ + '3*2WG_Spec','ify graphic type application (EMX, OS/2, Windows)'#010+ + 'A*2WG_Specify graphic type application (Windows)'#010+ 'P*2WG_Specify graphic type application (Classic Mac OS)'#010+ '3*2Wi_Use internal resources (Darwin)'#010+ 'P*2Wi_Use internal resources (Darwin)'#010+ - 'p*2Wi_Use internal resources (Darwin)'#010+ - '3*2WN_Do not generate reloc','ation code, needed for debugging (Windows'+ - ')'#010+ + 'p*2Wi_Use',' internal resources (Darwin)'#010+ + '3*2WN_Do not generate relocation code, needed for debugging (Windows)'#010+ 'A*2WN_Do not generate relocation code, needed for debugging (Windows)'#010+ '3*2WR_Generate relocation code (Windows)'#010+ - 'A*2WR_Generate relocation code (Windows)'#010+ - 'P*2WT_Specify MPW tool type application (Clas','sic Mac OS)'#010+ + 'A*2WR_Generate relocation code',' (Windows)'#010+ + 'P*2WT_Specify MPW tool type application (Classic Mac OS)'#010+ '**1X_Executable options:'#010+ '**2Xc_Pass --shared/-dynamic to the linker (BeOS, Darwin, FreeBSD, Lin'+ 'ux)'#010+ '**2Xd_Do not use standard library search path (needed for cross compil'+ - 'e)'#010+ + 'e)'#010, '**2Xe_Use external linker'#010+ - '**2Xg_Create debuginfo in a se','parate file and add a debuglink sectio'+ - 'n to executable'#010+ + '**2Xg_Create debuginfo in a separate file and add a debuglink section '+ + 'to executable'#010+ '**2XD_Try to link units dynamically (defines FPC_LINK_DYNAMIC)'#010+ '**2Xi_Use internal linker'#010+ '**2Xm_Generate link map'#010+ - '**2XM<x>_Set the name of the '#039'main'#039' program routine (default i'+ - 's '#039'mai','n'#039')'#010+ + '**2XM<x>_Set',' the name of the '#039'main'#039' program routine (default'+ + ' is '#039'main'#039')'#010+ '**2XP<x>_Prepend the binutils names with the prefix <x>'#010+ '**2Xr<x>_Set library search path to <x> (needed for cross compile) (Be'+ 'OS, Linux)'#010+ - '**2XR<x>_Prepend <x> to all linker search paths (BeOS, Darwin, FreeBSD'+ - ', Linux, Mac OS, Solaris)'#010+ - '**2','Xs_Strip all symbols from executable'#010+ + '**2XR<x>_Prepend <x> to all linker search p','aths (BeOS, Darwin, FreeB'+ + 'SD, Linux, Mac OS, Solaris)'#010+ + '**2Xs_Strip all symbols from executable'#010+ '**2XS_Try to link units statically (default, defines FPC_LINK_STATIC)'#010+ '**2Xt_Link with static libraries (-static is passed to linker)'#010+ - '**2XX_Try to smartlink units (defines FPC_LINK_SMART)'#010+ - '**1*','_'#010+ + '**2XX_Try to s','martlink units (defines FPC_LINK_SMART)'#010+ + '**1*_'#010+ '**1?_Show this help'#010+ '**1h_Shows this help without waiting'#000 ); diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas index 6fcef6a7fa..c37a32fb8e 100644 --- a/compiler/ogbase.pas +++ b/compiler/ogbase.pas @@ -197,7 +197,7 @@ interface function write(const d;l:aword):aword; function writestr(const s:string):aword; function WriteZeros(l:longword):aword; - procedure setmempos(var mpos:aword); + function setmempos(mpos:qword):qword; procedure setDatapos(var dpos:aword); procedure alloc(l:aword); procedure addsymReloc(ofs:aword;p:TObjSymbol;Reloctype:TObjRelocationType); @@ -412,6 +412,8 @@ interface FObjDataList : TFPObjectList; { Position calculation } FImageBase : aword; + FCurrMemPos : qword; + procedure SetCurrMemPos(const AValue: qword); protected { writer } FExeWriteMode : TExeWriteMode; @@ -426,8 +428,8 @@ interface property CObjData:TObjDataClass read FCObjData write FCObjData; procedure Order_ObjSectionList(ObjSectionList : TFPObjectList);virtual; public - CurrDataPos, - CurrMemPos : aword; + CurrDataPos : aword; + MaxMemPos : qword; IsSharedLibrary : boolean; constructor create;virtual; destructor destroy;override; @@ -480,6 +482,7 @@ interface property ImageBase:aword read FImageBase write FImageBase; property CurrExeSec:TExeSection read FCurrExeSec; property ExeWriteMode:TExeWriteMode read FExeWriteMode write FExeWriteMode; + property CurrMemPos:qword read FCurrMemPos write SetCurrMemPos; end; TExeOutputClass=class of TExeOutput; @@ -692,11 +695,11 @@ implementation end; - procedure TObjSection.setmempos(var mpos:aword); + function TObjSection.setmempos(mpos:qword):qword; begin mempos:=align(mpos,secalign); { return updated mempos } - mpos:=mempos+size; + result:=mempos+size; end; @@ -1660,7 +1663,7 @@ implementation for i:=0 to CurrExeSec.ObjSectionList.Count-1 do begin objsec:=TObjSection(CurrExeSec.ObjSectionList[i]); - objsec.setmempos(CurrMemPos); + CurrMemPos:=objsec.setmempos(CurrMemPos); end; { calculate size of the section } @@ -2577,6 +2580,20 @@ implementation end; + procedure TExeOutput.SetCurrMemPos(const AValue: qword); + var + m: qword; + begin + if not IsSharedLibrary then + m:=AValue+FImageBase + else + m:=AValue; + if m>MaxMemPos then + Message1(link_f_executable_too_big, target_os_string); + FCurrMemPos:=AValue; + end; + + {**************************************************************************** TObjInput ****************************************************************************} diff --git a/compiler/ogcoff.pas b/compiler/ogcoff.pas index 5526392be2..690d70ff42 100644 --- a/compiler/ogcoff.pas +++ b/compiler/ogcoff.pas @@ -1063,7 +1063,7 @@ const pemagic : array[0..3] of byte = ( procedure TCoffObjData.afteralloc; var - mempos : aword; + mempos : qword; i : longint; begin inherited afteralloc; @@ -1072,7 +1072,7 @@ const pemagic : array[0..3] of byte = ( begin mempos:=0; for i:=0 to ObjSectionList.Count-1 do - TObjSection(ObjSectionList[i]).setmempos(mempos); + mempos:=TObjSection(ObjSectionList[i]).setmempos(mempos); end; end; @@ -1919,6 +1919,13 @@ const pemagic : array[0..3] of byte = ( begin inherited create; win32:=awin32; + if target_info.system in [system_x86_64_win64] then + MaxMemPos:=$FFFFFFFF + else + if target_info.system in system_wince then + MaxMemPos:=$1FFFFF + else + MaxMemPos:=$7FFFFFFF; end; |