paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ allow use of unit var in exports of DLL for win32

Browse Source 
by using direct export writing by default instead of use of DEFFILE
    that does not allow assembler labels that do not
    start with an underscore.
    Use -WD to force use of Deffile for Win32 DLL
This commit is contained in:
pierre 1999-12-08 10:39:59 +00:00
parent 1fe7793288
commit 5169b7b86b
9 changed files with 238 additions and 158 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ag386att.pas
View File

@ -855,7 +855,7 @@ unit ag386att;
Writetree(importssection);
{ exports are written by DLLTOOL
if we use it so don't insert it twice (PM) }
if not RelocSection then
if not UseDeffileForExport and assigned(exportssection) then
Writetree(exportssection);
Writetree(resourcesection);
countlabelref:=true;
@ -871,7 +871,14 @@ unit ag386att;
end.
{
$Log$
Revision 1.20 1999-11-06 14:34:16 peter
Revision 1.21 1999-12-08 10:39:59 pierre
+ allow use of unit var in exports of DLL for win32
by using direct export writing by default instead of use of DEFFILE
that does not allow assembler labels that do not
start with an underscore.
Use -WD to force use of Deffile for Win32 DLL
Revision 1.20 1999/11/06 14:34:16 peter
* truncated log to 20 revs
Revision 1.19 1999/11/02 15:06:56 peter

11
compiler/ag386bin.pas
View File

@ -869,7 +869,7 @@ unit ag386bin;
addlist(bsssegment);
if assigned(importssection) then
addlist(importssection);
if assigned(exportssection) and not RelocSection then
if assigned(exportssection) and not UseDeffileForExport then
addlist(exportssection);
if assigned(resourcesection) then
addlist(resourcesection);
@ -910,7 +910,14 @@ unit ag386bin;
end.
{
$Log$
Revision 1.29 1999-12-01 22:05:13 pierre
Revision 1.30 1999-12-08 10:39:59 pierre
+ allow use of unit var in exports of DLL for win32
by using direct export writing by default instead of use of DEFFILE
that does not allow assembler labels that do not
start with an underscore.
Use -WD to force use of Deffile for Win32 DLL
Revision 1.29 1999/12/01 22:05:13 pierre
* problem with unused external symbol in stabs solved
Revision 1.28 1999/11/30 10:40:42 peter

8
compiler/errore.msg
View File

@ -808,6 +808,8 @@ parser_e_procname_to_short_for_export=E_Procedure name to short to be exported
% The length of the procedure/function name must be at least 2 characters
% long. This is because of a bug in dlltool which doesn't parse the .def
% file correct with a name of length 1.
parser_e_dlltool_unit_var_problem=E_No DEFFILE entry can be generated for unit global vars
parser_e_dlltool_unit_var_problem2=E_Compile without -WD option
% \end{description}
#
# Type Checking
@ -1691,6 +1693,12 @@ ol119=3*2TGO32V2_version 2 of DJ Delorie DOS extender
ol120=3*2TLINUX_Linux
ol121=3*2TOS2_OS/2 2.x
ol122=3*2TWin32_Windows 32 Bit
ol001W=3*2WB<x> Set Image base to Hexadecimal <x> value
ol002W=3*2WC Specify console type application
ol003W=3*2WD Use DEFFILE to export functions of DLL or EXE
ol004W=3*2WG Specify graphic type application
ol005W=3*2WN Do not generate relocation code (necessary for debugging)
ol006W=3*2WR Generate relocation code
ol123=6*1A<x>_output format
ol124=6*2Aas_Unix o-file using GNU AS
ol125=6*2Agas_GNU Motorola assembler

21
compiler/globals.pas
View File

@ -186,6 +186,8 @@ unit globals;
RelocSectionSetExplicitly : boolean = false;
DLLsource : boolean = false;
DLLImageBase : pstring = nil;
UseDeffileForExport : boolean = true;
ForceDeffileForExport : boolean = false;
{ used to set all registers used for each global function
this should dramatically decrease the number of
@ -1328,9 +1330,13 @@ implementation
procedure DoneGlobals;
begin
initdefines.done;
if assigned(DLLImageBase) then
StringDispose(DLLImageBase);
initdefines.done;
if assigned(DLLImageBase) then
StringDispose(DLLImageBase);
RelocSection:=true;
RelocSectionSetExplicitly:=false;
DLLsource:=false;
UseDeffileForExport:=true;
librarysearchpath.Done;
unitsearchpath.Done;
objectsearchpath.Done;
@ -1412,7 +1418,14 @@ begin
end.
{
$Log$
Revision 1.38 1999-12-06 18:21:03 peter
Revision 1.39 1999-12-08 10:40:00 pierre
+ allow use of unit var in exports of DLL for win32
by using direct export writing by default instead of use of DEFFILE
that does not allow assembler labels that do not
start with an underscore.
Use -WD to force use of Deffile for Win32 DLL
Revision 1.38 1999/12/06 18:21:03 peter
* support !ENVVAR for long commandlines
* win32/go32v2 write short pathnames to link.res so c:\Program Files\ is
finally supported as installdir.

8
compiler/msgidx.inc
View File

@ -216,6 +216,8 @@ type tmsgconst=(
parser_e_proc_directive_expected,
parser_e_invalid_property_index_value,
parser_e_procname_to_short_for_export,
parser_e_dlltool_unit_var_problem,
parser_e_dlltool_unit_var_problem2,
type_e_mismatch,
type_e_incompatible_types,
type_e_not_equal_types,
@ -637,6 +639,12 @@ type tmsgconst=(
ol120,
ol121,
ol122,
ol001W,
ol002W,
ol003W,
ol004W,
ol005W,
ol006W,
ol123,
ol124,
ol125,

294
compiler/msgtxt.inc
View File

@ -1,7 +1,7 @@
{$ifdef Delphi}
const msgtxt : array[0..000105] of string[240]=(
const msgtxt : array[0..000106] of string[240]=(
{$else Delphi}
const msgtxt : array[0..000105,1..240] of char=(
const msgtxt : array[0..000106,1..240] of char=(
{$endif Delphi}
'T_Compiler: $1'#000+
'D_Compiler OS: $1'#000+
@ -231,243 +231,245 @@ const msgtxt : array[0..000105,1..240] of char=(
'E_Procedure directive expected'#000+
'E_The',' value for a property index must be of an ordinal type'#000+
'E_Procedure name to short to be exported'#000+
'E_No DEFFILE entry can be generated for unit global vars'#000+
'E_Compile without -WD option'#000+
'E_Type mismatch'#000+
'E_Incompatible types: got "$1" expected "$2"'#000+
'E_Incompatible types: got "$1" expected "$','2"'#000+
'E_Type mismatch between $1 and $2'#000+
'E_Type identifier expected'#000+
'E_Variable identifier ','expected'#000+
'E_Variable identifier expected'#000+
'E_Integer expression expected, but got "$1"'#000+
'E_Boolean expression expected, but got "$1"'#000+
'E_Ordinal expression expected'#000+
'E_pointer type expected, but got "$1"'#000+
'E_pointer type expected, bu','t got "$1"'#000+
'E_class type expected, but got "$1"'#000+
'E_Variable or type indentifier expected',#000+
'E_Variable or type indentifier expected'#000+
'E_Can'#039't evaluate constant expression'#000+
'E_Set elements are not compatible'#000+
'E_Operation not implemented for sets'#000+
'W_Automatic type conversion from floating type to COMP which is an int'+
'eger type'#000+
'W_Automatic type conversion from floating typ','e to COMP which is an i'+
'nteger type'#000+
'H_use DIV instead to get an integer result'#000+
'E_string',' types doesn'#039't match, because of $V+ mode'#000+
'E_string types doesn'#039't match, because of $V+ mode'#000+
'E_succ or pred on enums with assignments not possible'#000+
'E_Can'#039't read or write variables of this type'#000+
'E_Type conflict between set elements'#000+
'E_Type confli','ct between set elements'#000+
'W_lo/hi(dword/qword) returns the upper/lower word/dword'#000+
'E_Inte','ger or real expression expected'#000+
'E_Integer or real expression expected'#000+
'E_Wrong type $1 in array constructor'#000+
'E_Incompatible type for arg no. $1: Got $2, expected $3'#000+
'E_Method (variable) and Procedure (variable) are not compatible'#000+
'E_Illegal constant passed to internal math function',#000+
'E_Method (variable) and Proce','dure (variable) are not compatible'#000+
'E_Illegal constant passed to internal math function'#000+
'E_Can'#039't get the address of constants'#000+
'E_Argument can'#039't be assigned to'#000+
'E_Can'#039't assign local procedure/function to procedure variable'#000+
'E_Can'#039't assign values to an address'#000+
'E_Can'#039't assign values ','to an address'#000+
'E_Can'#039't assign values to const variable'#000+
'E_Identifier not found $1'#000+
'F_Inte','rnal Error in SymTableStack()'#000+
'F_Internal Error in SymTableStack()'#000+
'E_Duplicate identifier $1'#000+
'H_Identifier already defined in $1 at line $2'#000+
'E_Unknown identifier $1'#000+
'E_Forward declaration not solved $1'#000+
'E_Forward declaration not so','lved $1'#000+
'F_Identifier type already defined as type'#000+
'E_Error in type definition'#000+
'E_Type id','entifier not defined'#000+
'E_Type identifier not defined'#000+
'E_Forward type not resolved $1'#000+
'E_Only static variables can be used in static methods or outside metho'+
'ds'#000+
'E_Invalid call to tvarsym.mangledname()'#000+
'E_Invalid call to tvarsym.man','gledname()'#000+
'F_record or class type expected'#000+
'E_Instances of classes or objects with an a','bstract method are not al'+
'lowed'#000+
'E_Instances of classes or objects with an abstract method are not allo'+
'wed'#000+
'W_Label not defined $1'#000+
'E_Label used but not defined $1'#000+
'E_Illegal label declaration'#000+
'E_GOTO and LABEL are not supported (use switch -Sg)'#000+
'E_GOTO and LABEL are not supported (use ','switch -Sg)'#000+
'E_Label not found'#000+
'E_identifier isn'#039't a label'#000+
'E_label already defined'#000+
'E_ill','egal type declaration of set elements'#000+
'E_illegal type declaration of set elements'#000+
'E_Forward class definition not resolved $1'#000+
'H_Parameter $1 not used'#000+
'N_Local variable $1 not used'#000+
'H_Value parameter $1 is assigned but never used'#000+
'H_Value parameter $1',' is assigned but never used'#000+
'N_Local variable $1 is assigned but never used'#000+
'H_Local $1 ','$2 is not used'#000+
'H_Local $1 $2 is not used'#000+
'N_Private field $1.$2 is never used'#000+
'N_Private field $1.$2 is assigned but never used'#000+
'N_Private method $1.$2 never used'#000+
'E_Set type expected'#000+
'E_Set type expected'#000,
'W_Function result does not seem to be set'#000+
'E_Unknown record field identifier $1'#000+
'W_Local',' variable $1 does not seem to be initialized'#000+
'W_Local variable $1 does not seem to be initialized'#000+
'W_Variable $1 does not seem to be initialized'#000+
'E_identifier idents no member $1'#000+
'B_Found declaration: $1'#000+
'E_Data segment too large (max. 2GB)'#000+
'E_Data',' segment too large (max. 2GB)'#000+
'E_BREAK not allowed'#000+
'E_CONTINUE not allowed'#000+
'E_Expression ','too complicated - FPU stack overflow'#000+
'E_Expression too complicated - FPU stack overflow'#000+
'E_Illegal expression'#000+
'E_Invalid integer expression'#000+
'E_Illegal qualifier'#000+
'E_High range limit < low range limit'#000+
'E_Illegal counter variable'#000+
'E_Illegal ','counter variable'#000+
'E_Can'#039't determine which overloaded function to call'#000+
'E_Parameter list ','size exceeds 65535 bytes'#000+
'E_Parameter list size exceeds 65535 bytes'#000+
'E_Illegal type conversion'#000+
'D_Conversion between ordinals and pointers is not portable across plat'+
'forms'#000+
'E_File types must be var parameters'#000+
'E_File types must be var pa','rameters'#000+
'E_The use of a far pointer isn'#039't allowed there'#000+
'E_illegal call by reference pa','rameters'#000+
'E_illegal call by reference parameters'#000+
'E_EXPORT declared functions can'#039't be called'#000+
'W_Possible illegal call of constructor or destructor (doesn'#039't matc'+
'h to this context)'#000+
'N_Inefficient code'#000+
'N_Inefficient co','de'#000+
'W_unreachable code'#000+
'E_procedure call with stackframe ESP/SP'#000+
'E_Abstract methods can'#039't',' be called directly'#000+
'E_Abstract methods can'#039't be called directly'#000+
'F_Internal Error in getfloatreg(), allocation failure'#000+
'F_Unknown float type'#000+
'F_SecondVecn() base defined twice'#000+
'F_Extended cg68k not supported'#000+
'F_Extended cg68k not supp','orted'#000+
'F_32-bit unsigned not supported in MC68000 mode'#000+
'F_Internal Error in secondinline','()'#000+
'F_Internal Error in secondinline()'#000+
'D_Register $1 weight $2 $3'#000+
'E_Stack limit excedeed in local routine'#000+
'D_Stack frame is omitted'#000+
'E_Object or class methods can'#039't be inline.'#000+
'E_Procvar calls can'#039't be inline.'#000+
'E_Procvar calls ','can'#039't be inline.'#000+
'E_No code for inline procedure stored'#000+
'E_Direct call of interrupt proc','edure $1 is not possible'#000+
'E_Direct call of interrupt procedure $1 is not possible'#000+
'E_Element zero of an ansi/wide- or longstring can'#039't be accessed, u'+
'se (set)length instead'#000+
'E_Include and exclude not implemented in this case'#000+
'E_Include and exclude not implemented in',' this case'#000+
'E_Constructors or destructors can not be called inside a '#039'with'#039+
' clause'#000+
'E_Ca','nnot call message handler method directly'#000+
'E_Cannot call message handler method directly'#000+
'D_Starting $1 styled assembler parsing'#000+
'D_Finished $1 styled assembler parsing'#000+
'E_Non-label pattern contains @'#000+
'W_Override operator not supported'#000+
'W_O','verride operator not supported'#000+
'E_Error building record offset'#000+
'E_OFFSET used without id','entifier'#000+
'E_OFFSET used without identifier'#000+
'E_TYPE used without identifier'#000+
'E_Cannot use local variable or parameters here'#000+
'E_need to use OFFSET here'#000+
'E_Cannot use multiple relocatable symbols'#000+
'E_Cannot use multiple relocatable symbols',#000+
'E_Relocatable symbol can only be added'#000+
'E_Invalid constant expression'#000+
'E_Relocatable sy','mbol is not allowed'#000+
'E_Relocatable symbol is not allowed'#000+
'E_Invalid reference syntax'#000+
'E_Local symbols/labels aren'#039't allowed as references'#000+
'E_Invalid base and index register usage'#000+
'E_Wrong scale factor specified'#000+
'E_Wrong scale f','actor specified'#000+
'E_Multiple index register usage'#000+
'E_Invalid operand type'#000+
'E_Invalid strin','g as opcode operand: $1'#000+
'E_Invalid string as opcode operand: $1'#000+
'W_@CODE and @DATA not supported'#000+
'E_Null label references are not allowed'#000+
'F_Divide by zero in asm evaluator'#000+
'F_Evaluator stack overflow'#000+
'F_Evaluator stack overfl','ow'#000+
'F_Evaluator stack underflow'#000+
'F_Invalid numeric format in asm evaluator'#000+
'F_Invalid Ope','rator in asm evaluator'#000+
'F_Invalid Operator in asm evaluator'#000+
'E_escape sequence ignored: $1'#000+
'E_Invalid symbol reference'#000+
'W_Fwait can cause emulation problems with emu387'#000+
'W_Calling an overload function in assembler'#000+
'W_Calling an overload fun','ction in assembler'#000+
'E_Unsupported symbol type for operand'#000+
'E_Constant value out of bound','s'#000+
'E_Constant value out of bounds'#000+
'E_Error converting decimal $1'#000+
'E_Error converting octal $1'#000+
'E_Error converting binary $1'#000+
'E_Error converting hexadecimal $1'#000+
'H_$1 translated to $2'#000+
'W_$1 is associated to an overloaded function'#000+
'W_$1 is a','ssociated to an overloaded function'#000+
'E_Cannot use SELF outside a method'#000+
'E_Cannot use OL','DEBP outside a nested procedure'#000+
'E_Cannot use OLDEBP outside a nested procedure'#000+
'W_Functions with void return value can'#039't return any value in asm c'+
'ode'#000+
'E_SEG not supported'#000+
'E_Size suffix and destination or source size do not match'#000+
'E_Size suffix and destination or',' source size do not match'#000+
'W_Size suffix and destination or source size do not match'#000+
'E_','Assembler syntax error'#000+
'E_Assembler syntax error'#000+
'E_Invalid combination of opcode and operands'#000+
'E_Assemler syntax error in operand'#000+
'E_Assemler syntax error in constant'#000+
'E_Invalid String expression'#000+
'E_Invalid Strin','g expression'#000+
'32bit constant created for address'#000+
'E_Invalid or missing opcode'#000+
'E_Invalid ','combination of prefix and opcode: $1'#000+
'E_Invalid combination of prefix and opcode: $1'#000+
'E_Invalid combination of override and opcode: $1'#000+
'E_Too many operands on line'#000+
'W_NEAR ignored'#000+
'W_FAR ignored'#000+
'E_Duplicate local symbol $1'#000+
'E_Duplicate',' local symbol $1'#000+
'E_Undefined local symbol $1'#000+
'E_Unknown label identifier $1'#000+
'E_Invalid f','loating point register name'#000+
'E_Invalid floating point register name'#000+
'E_NOR not supported'#000+
'W_Modulo not supported'#000+
'E_Invalid floating point constant $1'#000+
'E_Invalid floating point expression'#000+
'E_Wrong symbol type'#000+
'E_Wrong sy','mbol type'#000+
'E_Cannot index a local var or parameter with a register'#000+
'E_Invalid segment ov','erride expression'#000+
'E_Invalid segment override expression'#000+
'W_Identifier $1 supposed external'#000+
'E_Strings not allowed as constants'#000+
'No type of variable specified'#000+
'E_assembler code not returned to text section'#000+
'E_assembler code not returned to text',' section'#000+
'E_Not a directive or local symbol $1'#000+
'E_Using a defined name as a local label'#000,
'E_Using a defined name as a local label'#000+
'E_Dollar token is used without an identifier'#000+
'W_32bit constant created for address'#000+
'N_.align is target specific, use .balign or .p2align'#000+
'E_Can'#039't access fields directly for parameters'#000+
'E_Can'#039't access fiel','ds directly for parameters'#000+
'E_Can'#039't access fields of objects/classes directly'#000+
'F_Too man','y assembler files'#000+
'F_Too many assembler files'#000+
'F_Selected assembler output not supported'#000+
'F_Comp not supported'#000+
'F_Direct not support for binary writers'#000+
'E_Allocating of data is only allowed in bss section'#000+
'E_Allocating of data is only allo','wed in bss section'#000+
'F_No binary writer selected'#000+
'E_Asm: Opcode $1 not in table'#000+
'E_Asm: $1',' invalid combination of opcode and operands'#000+
'E_Asm: $1 invalid combination of opcode and operands'#000+
'E_Asm: 16 Bit references not supported'#000+
'E_Asm: Invalid effective address'#000+
'E_Asm: Immediate or reference expected'#000+
'E_Asm: Immediate or reference expected',#000+
'E_Asm: $1 value exceeds bounds $2'#000+
'E_Asm: Short jump is out of range $1'#000+
'W_Source opera','ting system redefined'#000+
'W_Source operating system redefined'#000+
'I_Assembling (pipe) $1'#000+
'E_Can'#039't create assember file $1'#000+
'W_Assembler $1 not found, switching to external assembling'#000+
'T_Using assembler: $1'#000+
'T_Using assembler:',' $1'#000+
'W_Error while assembling exitcode $1'#000+
'W_Can'#039't call the assembler, error $1 switchin','g to external assem'+
'bling'#000+
'W_Can'#039't call the assembler, error $1 switching to external assembl'+
'ing'#000+
'I_Assembling $1'#000+
'I_Assembling smartlink $1'#000+
'W_Object $1 not found, Linking may fail !'#000+
'W_Library $1 not found, Linking may fail !'#000+
'W_Error while linking'#000+
'W_','Error while linking'#000+
'W_Can'#039't call the linker, switching to external linking'#000+
'I_Linking $','1'#000+
'I_Linking $1'#000+
'W_Util $1 not found, switching to external linking'#000+
'T_Using util $1'#000+
'E_Creation of Executables not supported'#000+
'E_Creation of Dynamic/Shared Libraries not supported'#000+
'E_Creation of Dynamic/Shared Libraries not su','pported'#000+
'I_Closing script $1'#000+
'W_resource compiler not found, switching to external mode'#000,
'W_resource compiler not found, switching to external mode'#000+
'I_Compiling resource $1'#000+
'F_Can'#039't post process executable $1'#000+
'F_Can'#039't open executable $1'#000+
'X_Size of Code: $1 bytes'#000+
'X_Size of initialized data: $1 bytes'#000+
'X_Size of uninitialized data: $1 bytes'#000+
'X_Size',' of uninitialized data: $1 bytes'#000+
'X_Stack space reserved: $1 bytes'#000+
'X_Stack space commit','ed: $1 bytes'#000+
'X_Stack space commited: $1 bytes'#000+
'T_Unitsearch: $1'#000+
'T_PPU Loading $1'#000+
'U_PPU Name: $1'#000+
@ -475,212 +477,218 @@ const msgtxt : array[0..000105,1..240] of char=(
'U_PPU Crc: $1'#000+
'U_PPU Time: $1'#000+
'U_PPU File too short'#000+
'U_PPU Invalid Header (no PPU at the begin)'#000+
'U_PPU Invalid Header (no P','PU at the begin)'#000+
'U_PPU Invalid Version $1'#000+
'U_PPU is compiled for an other processor'#000+
'U_P','PU is compiled for an other target'#000+
'U_PPU is compiled for an other target'#000+
'U_PPU Source: $1'#000+
'U_Writing $1'#000+
'F_Can'#039't Write PPU-File'#000+
'F_reading PPU-File'#000+
'F_unexpected end of PPU-File'#000+
'F_Invalid PPU-File entry: $1'#000+
'F_Invalid PPU-File',' entry: $1'#000+
'F_PPU Dbx count problem'#000+
'E_Illegal unit name: $1'#000+
'F_Too much units'#000+
'F_Circular',' unit reference between $1 and $2'#000+
'F_Circular unit reference between $1 and $2'#000+
'F_Can'#039't compile unit $1, no sources available'#000+
'F_Can'#039't find unit $1'#000+
'W_Unit $1 was not found but $2 exists'#000+
'F_Unit $1 searched but $2 found'#000+
'F_Unit $1 searc','hed but $2 found'#000+
'W_Compiling the system unit requires the -Us switch'#000+
'F_There were $1 e','rrors compiling module, stopping'#000+
'F_There were $1 errors compiling module, stopping'#000+
'U_Load from $1 ($2) unit $3'#000+
'U_Recompiling $1, checksum changed for $2'#000+
'U_Recompiling $1, source found only'#000+
'U_Recompiling unit, static lib is older than ppufile'#000+
'U_Recompiling unit, shared lib is older than ppu','file'#000+
'U_Recompiling u','nit, static lib is older than ppufile'#000+
'U_Recompiling unit, shared lib is older than ppufile'#000+
'U_Recompiling unit, obj and asm are older than ppufile'#000+
'U_Recompiling unit, obj is older than asm'#000+
'U_Parsing interface of $1'#000+
'U_Parsing implementation of $1'#000+
'U_Parsing implementation o','f $1'#000+
'U_Second load for unit $1'#000+
'U_PPU Check file $1 time $2'#000+
'$1 [options] <inputfile> [o','ptions]'#000+
'$1 [options] <inputfile> [options]'#000+
'W_Only one source file supported'#000+
'W_DEF file can be created only for OS/2'#000+
'E_nested response files are not supported'#000+
'F_No source file name in command line'#000+
'F_No source file name in comman','d line'#000+
'E_Illegal parameter: $1'#000+
'H_-? writes help pages'#000+
'F_Too many config files nested'#000+
'F','_Unable to open file $1'#000+
'F_Unable to open file $1'#000+
'N_Reading further options from $1'#000+
'W_Target is already set to: $1'#000+
'W_Shared libs not supported on DOS platform, reverting to static'#000+
'W_Shared libs not supported on DOS platform, reverting to static'#000,
'F_too many IF(N)DEFs'#000+
'F_too many ENDIFs'#000+
'F_open conditional at the end of the file'#000+
'W_Deb','ug information generation is not supported by this executable'#000+
'W_Debug information generation is not supported by this executable'#000+
'H_Try recompiling with -dGDB'#000+
'E_You are using the obsolete switch $1'#000+
'E_You are using the obsolete switch $1, please use $2'#000+
'N_Switching assembler to default source writing assemble','r'#000+
'E_You are using the obso','lete switch $1, please use $2'#000+
'N_Switching assembler to default source writing assembler'#000+
'Free Pascal Compiler version $FPCVER [$FPCDATE] for $FPCTARGET'#000+
'Copyright (c) 1993-1999 by Florian Klaempfl'#000+
'Free Pascal Compiler version $FPCVER'#000+
#000+
'Compiler Date : $FPCDATE'#000+
'Compile','r Date : $FPCDATE'#000+
'Compiler Target: $FPCTARGET'#000+
#000+
'This program comes under the GNU Gener','al Public Licence'#000+
'This program comes under the GNU General Public Licence'#000+
'For more information read COPYING.FPC'#000+
#000+
'Report bugs,suggestions etc to:'#000+
' fpc-devel@vekoll.saturnus.vein.hu'#000+
'**0*_put + after a boolean switch option to enable it, - to disable it'+
#000+
'**1a_the compiler doesn'#039't del','ete the generated assembler file'#000+
'**0*_put + aft','er a boolean switch option to enable it, - to disable '+
'it'#000+
'**1a_the compiler doesn'#039't delete the generated assembler file'#000+
'**2al_list sourcecode lines in assembler file'#000+
'**2ar_list register allocation/release info in assembler file'#000+
'**2at_list temp allocation/release info in assembler file'#000+
'**2at_list te','mp allocation/release info in assembler file'#000+
'**1b_generate browser info'#000+
'**2bl_generate',' local symbol info'#000+
'**2bl_generate local symbol info'#000+
'**1B_build all modules'#000+
'**1C<x>_code generation options:'#000+
'3*2CD_create dynamic library'#000+
'**2Ch<n>_<n> bytes heap (between 1023 and 67107840)'#000+
'**2Ch<n>_<n> bytes heap (between 1023 and 67107840',')'#000+
'**2Ci_IO-checking'#000+
'**2Cn_omit linking stage'#000+
'**2Co_check overflow of integer operation','s'#000+
'**2Co_check overflow of integer operations'#000+
'**2Cr_range checking'#000+
'**2Cs<n>_set stack size to <n>'#000+
'**2Ct_stack checking'#000+
'**2CD_create also dynamic library (* doesn'#039't work yet *)'#000+
'**2CX_create also smartlinked library'#000+
'**2CX_create also smar','tlinked library'#000+
'**1d<x>_defines the symbol <x>'#000+
'*O1D_generate a DEF file'#000+
'*O2Dd<x>_set d','escription to <x>'#000+
'*O2Dd<x>_set description to <x>'#000+
'*O2Dw_PM application'#000+
'**1e<x>_set path to executable'#000+
'**1E_same as -Cn'#000+
'**1F<x>_set file names and paths:'#000+
'**2FD<x>_sets the directory where to search for compiler utilities'#000+
'**2FD<x>_sets the directory where',' to search for compiler utilities'#000+
'**2Fe<x>_redirect error output to <x>'#000+
'**2FE<x>_set e','xe/unit output path to <x>'#000+
'**2FE<x>_set exe/unit output path to <x>'#000+
'**2Fi<x>_adds <x> to include path'#000+
'**2Fl<x>_adds <x> to library path'#000+
'*L2FL<x>_uses <x> as dynamic linker'#000+
'**2Fo<x>_adds <x> to object path'#000+
'**2Fo<x>_adds <x> to ob','ject path'#000+
'**2Fr<x>_load error message file <x>'#000+
'**2Fu<x>_adds <x> to unit path'#000+
'**2FU<x>','_set unit output path to <x>, overrides -FE'#000+
'**2FU<x>_set unit output path to <x>, overrides -FE'#000+
'*g1g<x>_generate debugger information:'#000+
'*g2gg_use gsym'#000+
'*g2gd_use dbx'#000+
'*g2gh_use heap trace unit'#000+
'*g2gc_generate checks for pointers'#000+
'*g2gc_generate c','hecks for pointers'#000+
'**1i_information'#000+
'**2iD_return compiler date'#000+
'**2iV_return compiler v','ersion'#000+
'**2iV_return compiler version'#000+
'**2iSO_return compiler OS'#000+
'**2iSP_return compiler processor'#000+
'**2iTO_return target OS'#000+
'**2iTP_return target processor'#000+
'**1I<x>_adds <x> to include path'#000+
'**1I<x>_adds <x> to include path'#000,
'**1k<x>_Pass <x> to the linker'#000+
'**1l_write logo'#000+
'**1n_don'#039't read the default config file',#000+
'**1n_don'#039't read the default config file'#000+
'**1o<x>_change the name of the executable produced to <x>'#000+
'**1pg_generate profile code for gprof (defines FPC_PROFILE)'#000+
'*L1P_use pipes instead of creating temporary assembler files'#000+
'*L1P_use pipes instead of creating ','temporary assembler files'#000+
'**1S<x>_syntax options:'#000+
'**2S2_switch some Delphi 2 extension','s on'#000+
'**2S2_switch some Delphi 2 extensions on'#000+
'**2Sc_supports operators like C (*=,+=,/= and -=)'#000+
'**2Sd_tries to be Delphi compatible'#000+
'**2Se<x>_compiler stops after the <x> errors (default is 1)'#000+
'**2Sg_allow LABEL and GOTO'#000+
'**2','Sg_allow LABEL and GOTO'#000+
'**2Sh_Use ansistrings'#000+
'**2Si_support C++ styled INLINE'#000+
'**2Sm_su','pport macros like C (global)'#000+
'**2Sm_support macros like C (global)'#000+
'**2So_tries to be TP/BP 7.0 compatible'#000+
'**2Sp_tries to be gpc compatible'#000+
'**2Ss_constructor name must be init (destructor must be done)'#000+
'**2Ss_constructor name must be init (destructor must ','be done)'#000+
'**2St_allow static keyword in objects'#000+
'**1s_don'#039't call assembler and linker (o','nly with -a)'#000+
'**1s_don'#039't call assembler and linker (only with -a)'#000+
'**1u<x>_undefines the symbol <x>'#000+
'**1U_unit options:'#000+
'**2Un_don'#039't check the unit name'#000+
'**2Us_compile a system unit'#000+
'**1v<x>_Be verbose. <x> is a combination of the following letters:'#000+
'**2*_e : Show errors (default) d : Show de','bug info'#000+
'**1v<x>_Be verbose. <x> is a ','combination of the following letters:'#000+
'**2*_e : Show errors (default) d : Show debug info'#000+
'**2*_w : Show warnings u : Show unit info'#000+
'**2*_n : Show notes t : Show tried/used files'#000+
'**2*_h : Show hints m : Show defined macros'#000+
'**2*_i : Show general info p : Show compi','led procedures'#000+
'**2*_h : Show hints ',' m : Show defined macros'#000+
'**2*_i : Show general info p : Show compiled procedures'#000+
'**2*_l : Show linenumbers c : Show conditionals'#000+
'**2*_a : Show everything 0 : Show nothing (except errors)'#000+
'**2*_b : Show all procedure r : Rhide/GCC compatibility mode'#000+
'**2*_ declarations if a','n error x : Executable info (Win32 only'+
')'#000+
'**2*_b : S','how all procedure r : Rhide/GCC compatibility mod'+
'e'#000+
'**2*_ declarations if an error x : Executable info (Win32 only)'#000+
'**2*_ occurs'#000+
'**1X_executable options:'#000+
'*L2Xc_link with the c library'#000+
'**2Xs_strip all symbols from executable'#000+
'**2Xs_strip all symbols from executable',#000+
'**2XD_try to link dynamic (defines FPC_LINK_DYNAMIC)'#000+
'**2XS_try to link stati','c (default) (defines FPC_LINK_STATIC)'#000+
'**2XS_try to link static (default) (defines FPC_LINK_STATIC)'#000+
'**2XX_try to link smart (defines FPC_LINK_SMART)'#000+
'**0*_Processor specific options:'#000+
'3*1A<x>_output format:'#000+
'3*1A<x>_output format:'#000,
'3*2Aas_assemble using GNU AS'#000+
'3*2Aasaout_assemble using GNU AS for aout (Go32v1)'#000+
'3*2Ana','smcoff_coff (Go32v2) file using Nasm'#000+
'3*2Anasmcoff_coff (Go32v2) file using Nasm'#000+
'3*2Anasmelf_elf32 (Linux) file using Nasm'#000+
'3*2Anasmobj_obj file using Nasm'#000+
'3*2Amasm_obj file using Masm (Microsoft)'#000+
'3*2Atasm_obj file using Tasm (Borland)'#000+
'3*','2Atasm_obj file using Tasm (Borland)'#000+
'3*2Acoff_coff (Go32v2) using internal writer'#000+
'3*2A','pecoff_pecoff (Win32) using internal writer'#000+
'3*2Apecoff_pecoff (Win32) using internal writer'#000+
'3*1R<x>_assembler reading style:'#000+
'3*2Ratt_read AT&T style assembler'#000+
'3*2Rintel_read Intel style assembler'#000+
'3*2Rdirect_copy assembler text directly to assembler file'#000+
'3*2Rdi','rect_copy assembler text directly to assembler file'#000+
'3*1O<x>_optimizations:'#000+
'3*2Og_gener','ate smaller code'#000+
'3*2Og_generate smaller code'#000+
'3*2OG_generate faster code (default)'#000+
'3*2Or_keep certain variables in registers (still BUGGY!!!)'#000+
'3*2Ou_enable uncertain optimizations (see docs)'#000+
'3*2Ou_enable uncertain optimizations (see',' docs)'#000+
'3*2O1_level 1 optimizations (quick optimizations)'#000+
'3*2O2_level 2 optimizations (','-O1 + slower optimizations)'#000+
'3*2O2_level 2 optimizations (-O1 + slower optimizations)'#000+
'3*2O3_level 3 optimizations (same as -O2u)'#000+
'3*2Op<x>_target processor:'#000+
'3*3Op1_set target processor to 386/486'#000+
'3*3Op2_set target processor to Pentium/PentiumMMX (tm)'#000+
'3*3Op3_set target processor to PPro/PII/c6x86/K6',' (tm)'#000+
'3*3Op2_set target',' processor to Pentium/PentiumMMX (tm)'#000+
'3*3Op3_set target processor to PPro/PII/c6x86/K6 (tm)'#000+
'3*1T<x>_Target operating system:'#000+
'3*2TGO32V1_version 1 of DJ Delorie DOS extender'#000+
'3*2TGO32V2_version 2 of DJ Delorie DOS extender'#000+
'3*2TLINUX_Linux'#000+
'3*2TOS2_OS/2 2.x'#000+
'3*2','TOS2_OS/2 2.x'#000+
'3*2TWin32_Windows 32 Bit'#000+
'3*2WB<x> Set Image base to Hexadecimal <x> value'#000+
'3*2WC Specify console type application'#000+
'3*2WD Use DEFFILE to export functions of DLL or EXE'#000+
'3*2WG Specify graphic type application'#000+
'3*2WN Do not generate ','relocation code (necessary for debugging)'#000+
'3*2WR Generate relocation code'#000+
'6*1A<x>_output format'#000+
'6*2Aas_Unix o-file using ','GNU AS'#000+
'6*2Aas_Unix o-file using GNU AS'#000+
'6*2Agas_GNU Motorola assembler'#000+
'6*2Amit_MIT Syntax (old GAS)'#000+
'6*2Amot_Standard Motorola assembler'#000+
'6*1O_optimizations:'#000+
'6*1O_optimization','s:'#000+
'6*2Oa_turn on the optimizer'#000+
'6*2Og_generate smaller code'#000+
'6*2OG_generate faster code (default)'#000+
'6*2Ox_optimize maximum (','still BUGGY!!!)'#000+
'6*2Ox_optimize maximum (still BUGGY!!!)'#000+
'6*2O2_set target processor to a MC68020+'#000+
'6*1R<x>_assembler reading style:'#000+
'6*2RMOT_read motorola style assembler'#000+
'6*2RMOT_read motorola style as','sembler'#000+
'6*1T<x>_Target operating system:'#000+
'6*2TAMIGA_Commodore Amiga'#000+
'6*2TATARI_Atari ST/STe/TT'#000+
'6*2TMACOS_Macintosh m68k'#000+
'6*','2TLINUX_Linux-68k'#000+
'6*2TLINUX_Linux-68k'#000+
'**1*_'#000+
'**1?_shows this help'#000+
'**1h_shows this help without waiting'#000

10
compiler/options.pas
View File

@ -732,6 +732,7 @@ begin
break;
end;
'C': apptype:=at_cui;
'D': ForceDeffileForExport:=true;
'G': apptype:=at_gui;
'N': begin
RelocSection:=false;
@ -1331,7 +1332,14 @@ end;
end.
{
$Log$
Revision 1.39 1999-12-06 18:21:03 peter
Revision 1.40 1999-12-08 10:40:01 pierre
+ allow use of unit var in exports of DLL for win32
by using direct export writing by default instead of use of DEFFILE
that does not allow assembler labels that do not
start with an underscore.
Use -WD to force use of Deffile for Win32 DLL
Revision 1.39 1999/12/06 18:21:03 peter
* support !ENVVAR for long commandlines
* win32/go32v2 write short pathnames to link.res so c:\Program Files\ is
finally supported as installdir.

16
compiler/pexports.pas
View File

@ -77,7 +77,12 @@ unit pexports;
{ This is wrong if the first is not
an underline }
if InternalProcName[1]='_' then
delete(InternalProcName,1,1);
delete(InternalProcName,1,1)
else if (target_os.id=os_i386_win32) and UseDeffileForExport then
begin
Message(parser_e_dlltool_unit_var_problem);
Message(parser_e_dlltool_unit_var_problem2);
end;
if length(InternalProcName)<2 then
Message(parser_e_procname_to_short_for_export);
DefString:=ProcName+'='+InternalProcName;
@ -136,7 +141,14 @@ end.
{
$Log$
Revision 1.15 1999-11-22 22:20:43 pierre
Revision 1.16 1999-12-08 10:40:01 pierre
+ allow use of unit var in exports of DLL for win32
by using direct export writing by default instead of use of DEFFILE
that does not allow assembler labels that do not
start with an underscore.
Use -WD to force use of Deffile for Win32 DLL
Revision 1.15 1999/11/22 22:20:43 pierre
* Def file syntax for win32 with index corrected
* direct output of .edata leads to same indexes
(index 5 leads to next export being 6 unless otherwise

17
compiler/t_win32.pas
View File

@ -618,6 +618,8 @@ begin
{ allow duplicated libs (PM) }
SharedLibFiles.doubles:=true;
StaticLibFiles.doubles:=true;
If not ForceDeffileForExport then
UseDeffileForExport:=false;
end;
Procedure TLinkerWin32.SetDefaultInfo;
@ -626,7 +628,7 @@ begin
begin
ExeCmd[1]:='ldw $OPT $STRIP $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
DllCmd[1]:='ldw $OPT $STRIP --dll $APPTYPE $IMAGEBASE $RELOC -o $EXE $RES';
if RelocSection then
if UseDeffileForExport then
begin
ExeCmd[2]:='dlltool --as $ASBIN --dllname $EXE --output-exp exp.$$$ $RELOC $DEF';
ExeCmd[3]:='ldw $OPT $STRIP $APPTYPE $IMAGEBASE -o $EXE $RES exp.$$$';
@ -743,7 +745,7 @@ begin
ImageBaseStr:='';
StripStr:='';
AsBinStr:=FindExe('asw',found);
if RelocSection then
if UseDeffileForExport then
RelocStr:='--base-file base.$$$';
if apptype=at_gui then
AppTypeStr:='--subsystem windows';
@ -819,7 +821,7 @@ begin
ImageBaseStr:='';
StripStr:='';
AsBinStr:=FindExe('asw',found);
if RelocSection then
if UseDeffileForExport then
RelocStr:='--base-file base.$$$';
if apptype=at_gui then
AppTypeStr:='--subsystem windows';
@ -1058,7 +1060,14 @@ end;
end.
{
$Log$
Revision 1.11 1999-12-06 18:21:04 peter
Revision 1.12 1999-12-08 10:40:01 pierre
+ allow use of unit var in exports of DLL for win32
by using direct export writing by default instead of use of DEFFILE
that does not allow assembler labels that do not
start with an underscore.
Use -WD to force use of Deffile for Win32 DLL
Revision 1.11 1999/12/06 18:21:04 peter
* support !ENVVAR for long commandlines
* win32/go32v2 write short pathnames to link.res so c:\Program Files\ is
finally supported as installdir.