paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 14:37:22 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed some messages and smaller msgtxt.inc

Browse Source
This commit is contained in:
peter 1998-08-11 14:09:06 +00:00
parent 90fc7e176d
commit ea8a7d2a4f
7 changed files with 615 additions and 1355 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/compiler.pas
View File

@ -173,7 +173,7 @@ begin
InitCompiler(cmd); InitCompiler(cmd);
{ show some info } { show some info }
Message1(general_i_compilername,FixFileName(paramstr(0))); Message1(general_u_compilername,FixFileName(paramstr(0)));
Message1(general_d_sourceos,source_os.name); Message1(general_d_sourceos,source_os.name);
Message1(general_i_targetos,target_os.name); Message1(general_i_targetos,target_os.name);
Message1(general_u_exepath,exepath); Message1(general_u_exepath,exepath);
@ -226,7 +226,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.3 1998-08-11 00:01:20 peter Revision 1.4 1998-08-11 14:09:06 peter
* fixed some messages and smaller msgtxt.inc
Revision 1.3 1998/08/11 00:01:20 peter
* -vu displays now all searchpaths * -vu displays now all searchpaths
Revision 1.2 1998/08/10 14:49:56 peter Revision 1.2 1998/08/10 14:49:56 peter

6
compiler/files.pas
View File

@ -867,6 +867,7 @@ unit files;
linkofiles.init; linkofiles.init;
linkstaticlibs.init; linkstaticlibs.init;
linksharedlibs.init; linksharedlibs.init;
current_index:=0;
ppufile:=nil; ppufile:=nil;
scanner:=nil; scanner:=nil;
map:=nil; map:=nil;
@ -1003,7 +1004,10 @@ unit files;
end. end.
{ {
$Log$ $Log$
Revision 1.32 1998-08-10 14:49:58 peter Revision 1.33 1998-08-11 14:09:08 peter
* fixed some messages and smaller msgtxt.inc
Revision 1.32 1998/08/10 14:49:58 peter
+ localswitches, moduleswitches, globalswitches splitting + localswitches, moduleswitches, globalswitches splitting
Revision 1.31 1998/07/14 14:46:48 peter Revision 1.31 1998/07/14 14:46:48 peter

2
compiler/msgidx.inc
View File

@ -51,7 +51,7 @@
} }
type type
tmsgconst = ( tmsgconst = (
general_i_compilername, general_u_compilername,
general_d_sourceos, general_d_sourceos,
general_i_targetos, general_i_targetos,
general_u_exepath, general_u_exepath,

1419
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

486
compiler/optmsg.inc
View File

@ -1,336 +1,150 @@
const optiontxt : array[1..05020] of char=( const optiontxt : array[0..00019,1..255] of char=(
' ','[','o','p','t','i','o','n','s',']',' ','<','i','n','p', ' [options] <inputfile> [options]'#000+
'u','t','f','i','l','e','>',' ','[','o','p','t','i','o','n', 'Only one source file supported'#000+
's',']',#000,'O','n','l','y',' ','o','n','e',' ','s','o','u', 'DEF file can be created only for OS/2'#000+
'r','c','e',' ','f','i','l','e',' ','s','u','p','p','o','r', 'nested response files are not supported'#000+
't','e','d',#000,'D','E','F',' ','f','i','l','e',' ','c','a', 'No source file name in command line'#000+
'n',' ','b','e',' ','c','r','e','a','t','e','d',' ','o','n', 'Illegal parameter: $1'#000+
'l','y',' ','f','o','r',' ','O','S','/','2',#000,'n','e','s', '-? writes help pages'#000+
't','e','d',' ','r','e','s','p','o','n','s','e',' ','f','i', 'Unable to open file $1'#000+
'l','e','s',' ','a','r','e',' ','n','o','t',' ','s','u','p', 'Reading fur','ther options from $1'#000+
'p','o','r','t','e','d',#000,'N','o',' ','s','o','u','r','c', 'Target is already set to: $1'#000+
'e',' ','f','i','l','e',' ','n','a','m','e',' ','i','n',' ', 'Shared libs not supported on DOS platform, reverting to static'#000+
'c','o','m','m','a','n','d',' ','l','i','n','e',#000,'I','l', 'too many IF(N)DEFs'#000+
'l','e','g','a','l',' ','p','a','r','a','m','e','t','e','r', 'too many ENDIFs'#000+
':',' ','$','1',#000,'-','?',' ','w','r','i','t','e','s',' ', 'open conditional at the end of the file'#000+
'h','e','l','p',' ','p','a','g','e','s',#000,'U','n','a','b', 'Debug information generation is not supported by this executable'#000+
'l','e',' ','t','o',' ','o','p','e','n',' ','f','i','l','e', 'Tr','y recompiling with -dGDB'#000+
' ','$','1',#000,'R','e','a','d','i','n','g',' ','f','u','r', 'Free Pascal Compiler version $VER for $TARGET'#000+
't','h','e','r',' ','o','p','t','i','o','n','s',' ','f','r', 'Copyright (c) 1993-98 by Florian Klaempfl'#000+
'o','m',' ','$','1',#000,'T','a','r','g','e','t',' ','i','s', 'Free Pascal Compiler version $VER'#000+
' ','a','l','r','e','a','d','y',' ','s','e','t',' ','t','o', #000+
':',' ','$','1',#000,'S','h','a','r','e','d',' ','l','i','b', 'This program comes under the GNU General Public Licence'#000+
's',' ','n','o','t',' ','s','u','p','p','o','r','t','e','d', 'For more information read COPYING'#000+
' ','o','n',' ','D','O','S',' ','p','l','a','t','f','o','r', #000+
'm',',',' ','r','e','v','e','r','t','i','n','g',' ','t','o', 'Report bugs,sugg','estions etc to:'#000+
' ','s','t','a','t','i','c',#000,'t','o','o',' ','m','a','n', ' ba2395@fen.baynet.de'#000+
'y',' ','I','F','(','N',')','D','E','F','s',#000,'t','o','o', '**0*_+ switch option on, - off'#000+
' ','m','a','n','y',' ','E','N','D','I','F','s',#000,'o','p', '**1a_the compiler doesn'#039't delete the generated assembler file'#000+
'e','n',' ','c','o','n','d','i','t','i','o','n','a','l',' ', '*t1b_use EMS'#000+
'a','t',' ','t','h','e',' ','e','n','d',' ','o','f',' ','t', '**1B+_build'#000+
'h','e',' ','f','i','l','e',#000,'D','e','b','u','g',' ','i', '**1C_code generation options'#000+
'n','f','o','r','m','a','t','i','o','n',' ','g','e','n','e', '**2Ca_not implemented'#000+
'r','a','t','i','o','n',' ','i','s',' ','n','o','t',' ','s', '**2Ce_not implemented'#000+
'u','p','p','o','r','t','e','d',' ','b','y',' ','t','h','i', '3*2CD_Dynam','ic linking'#000+
's',' ','e','x','e','c','u','t','a','b','l','e',#000,'T','r', '**2Ch<n>_<n> bytes heap (between 1023 and 67107840)'#000+
'y',' ','r','e','c','o','m','p','i','l','i','n','g',' ','w', '**2Ci_IO-checking'#000+
'i','t','h',' ','-','d','G','D','B',#000,'F','r','e','e',' ', '**2Cn_omit linking stage'#000+
'P','a','s','c','a','l',' ','C','o','m','p','i','l','e','r', '**2Co_check overflow of integer operations'#000+
' ','v','e','r','s','i','o','n',' ','$','V','E','R',' ','f', '**2Cr_range checking'#000+
'o','r',' ','$','T','A','R','G','E','T',#000,'C','o','p','y', '*O2Cs<n>_set stack size to <n>'#000+
'r','i','g','h','t',' ','(','c',')',' ','1','9','9','3','-', '**2Ct_stack checking'#000+
'9','8',' ','b','y',' ','F','l','o','r','i','a','n',' ','K', '3*2CS_static linking'#000+
'l','a','e','m','p','f','l',#000,'F','r','e','e',' ','P','a', '**1d<x>_defi','nes the symbol <x>'#000+
's','c','a','l',' ','C','o','m','p','i','l','e','r',' ','v', '*O1D_controls the generation of DEF file (only OS/2)'#000+
'e','r','s','i','o','n',' ','$','V','E','R',#000,#000,'l','f', '*O2Dd<x>_set description to <x>'#000+
'>',#010,'T','h','i','s',' ','p','r','o','g','r','a','m',' ', '*O2Do_generate DEF file'#000+
'c','o','m','e','s',' ','u','n','d','e','r',' ','t','h','e', '*O2Dw_PM application'#000+
' ','G','N','U',' ','G','e','n','e','r','a','l',' ','P','u', '*L1e<x>_set path to executables'#000+
'b','l','i','c',' ','L','i','c','e','n','c','e',#000,'F','o', '**1E_same as -Cn'#000+
'r',' ','m','o','r','e',' ','i','n','f','o','r','m','a','t', '**1g_generate debugger information'#000+
'i','o','n',' ','r','e','a','d',' ','C','O','P','Y','I','N', '**1F_set file names an','d paths'#000+
'G',#000,#000,'l','f','>',#010,'R','e','p','o','r','t',' ','b', '**2Fe<x>_redirect error output to <x>'#000+
'u','g','s',',','s','u','g','g','e','s','t','i','o','n','s', '*L2Fg<x>_<x> search path for the GNU C lib'#000+
' ','e','t','c',' ','t','o',':',#000,' ',' ',' ',' ',' ',' ', '*L2Fr<x>_<x> search path for the error message file'#000+
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','b','a','2','3','9', '**2Fi<x>_adds <x> to include path'#000+
'5','@','f','e','n','.','b','a','y','n','e','t','.','d','e', '**2Fl<x>_adds <x> to library path'#000+
#000,'*','*','0','*','_','+',' ','s','w','i','t','c','h',' ', '*L2FL<x>_uses <x> as dynamic linker'#000+
'o','p','t','i','o','n',' ','o','n',',',' ','-',' ','o','f', '**2Fu<x>_a','dds <x> to unit path'#000+
'f',#000,'*','*','1','a','_','t','h','e',' ','c','o','m','p', '**1k<x>_Pass <x> to the linker'#000+
'i','l','e','r',' ','d','o','e','s','n',#039,'t',' ','d','e', '**1L_set language'#000+
'l','e','t','e',' ','t','h','e',' ','g','e','n','e','r','a', '**2LD_german'#000+
't','e','d',' ','a','s','s','e','m','b','l','e','r',' ','f', '**2LE_english'#000+
'i','l','e',#000,'*','t','1','b','_','u','s','e',' ','E','M', '**2LN_dutch'#000+
'S',#000,'*','*','1','B','+','_','b','u','i','l','d',#000,'*', '**1l_write logo'#000+
'*','1','C','_','c','o','d','e',' ','g','e','n','e','r','a', '**1i_information'#000+
't','i','o','n',' ','o','p','t','i','o','n','s',#000,'*','*', '**1n_don'#039't read the default config file'#000+
'2','C','a','_','n','o','t',' ','i','m','p','l','e','m','e', '**1o<x>_change the name of the executable produced to <x>'#000+
'n','t','e','d',#000,'*','*','2','C','e','_','n','o','t',' ', '**1pg_generate ','profile code for gprof'#000+
'i','m','p','l','e','m','e','n','t','e','d',#000,'3','*','2', '*L1P_use pipes instead of creating temporary assembler files'#000+
'C','D','_','D','y','n','a','m','i','c',' ','l','i','n','k', '**1S_syntax options'#000+
'i','n','g',#000,'*','*','2','C','h','<','n','>','_','<','n', '**2S2_switch some Delphi 2 extension on'#000+
'>',' ','b','y','t','e','s',' ','h','e','a','p',' ','(','b', '**2Sc_supports operators like C (*=,+=,/= and -=)'#000+
'e','t','w','e','e','n',' ','1','0','2','3',' ','a','n','d', '**2Sd_compiler disposes asm lists (uses less memory but slowe','r)'#000+
' ','6','7','1','0','7','8','4','0',')',#000,'*','*','2','C', '**2Se_compiler stops after the first error'#000+
'i','_','I','O','-','c','h','e','c','k','i','n','g',#000,'*', '**2Sg_allows LABEL and GOTO'#000+
'*','2','C','n','_','o','m','i','t',' ','l','i','n','k','i', '**2Si_support C++ stlyed INLINE'#000+
'n','g',' ','s','t','a','g','e',#000,'*','*','2','C','o','_', '**2Sm_support macros like C (global)'#000+
'c','h','e','c','k',' ','o','v','e','r','f','l','o','w',' ', '**2So_tries to be TP/BP 7.0 compatible'#000+
'o','f',' ','i','n','t','e','g','e','r',' ','o','p','e','r', '**2Ss_constructor name must be init (destructor must be done)'#000+
'a','t','i','o','n','s',#000,'*','*','2','C','r','_','r','a', '**2St_allow','s static keyword in objects'#000+
'n','g','e',' ','c','h','e','c','k','i','n','g',#000,'*','O', '**1s_don'#039't call assembler and linker (only with -a)'#000+
'2','C','s','<','n','>','_','s','e','t',' ','s','t','a','c', '**1T<x>_Target operating system'#000+
'k',' ','s','i','z','e',' ','t','o',' ','<','n','>',#000,'*', '3*2TGO32V1_version 1 of DJ Delorie DOS extender'#000+
'*','2','C','t','_','s','t','a','c','k',' ','c','h','e','c', '3*2TGO32V2_version 2 of DJ Delorie DOS extender'#000+
'k','i','n','g',#000,'3','*','2','C','S','_','s','t','a','t', '3*2TLINUX_Linux'#000+
'i','c',' ','l','i','n','k','i','n','g',#000,'*','*','1','d', '3*2TOS2_OS/2 2.x'#000+
'<','x','>','_','d','e','f','i','n','e','s',' ','t','h','e', '3*2TWin32_Wind','ows 32 Bit'#000+
' ','s','y','m','b','o','l',' ','<','x','>',#000,'*','O','1', '6*2TAMIGA_Commodore Amiga'#000+
'D','_','c','o','n','t','r','o','l','s',' ','t','h','e',' ', '6*2TATARI_Atari ST/STe/TT'#000+
'g','e','n','e','r','a','t','i','o','n',' ','o','f',' ','D', '6*2TMACOS_Macintosh m68k'#000+
'E','F',' ','f','i','l','e',' ','(','o','n','l','y',' ','O', '6*2TLINUX_Linux-68k'#000+
'S','/','2',')',#000,'*','O','2','D','d','<','x','>','_','s', '**1u<x>_undefines the symbol <x>'#000+
'e','t',' ','d','e','s','c','r','i','p','t','i','o','n',' ', '**1U_unit options'#000+
't','o',' ','<','x','>',#000,'*','O','2','D','o','_','g','e', '**2Uls_make static library from unit'#000+
'n','e','r','a','t','e',' ','D','E','F',' ','f','i','l','e', '**2Uld_make dynamic library from unit'#000+
#000,'*','O','2','D','w','_','P','M',' ','a','p','p','l','i', '**2Un_don'#039't check the',' unit name'#000+
'c','a','t','i','o','n',#000,'*','L','1','e','<','x','>','_', '**2Up<x>_same as -Fu<x>'#000+
's','e','t',' ','p','a','t','h',' ','t','o',' ','e','x','e', '**2Us_compile a system unit'#000+
'c','u','t','a','b','l','e','s',#000,'*','*','1','E','_','s', '**1v<x>_Be verbose. <x> is a combination of the following letters :'#000+
'a','m','e',' ','a','s',' ','-','C','n',#000,'*','*','1','g', '**2*_e : Show errors (default) d : Show debug info'#000+
'_','g','e','n','e','r','a','t','e',' ','d','e','b','u','g', '**2*_w : Show warnings u : Show used files'#000+
'g','e','r',' ','i','n','f','o','r','m','a','t','i','o','n', '**2*_n : S','how notes t : Show tried files'#000+
#000,'*','*','1','F','_','s','e','t',' ','f','i','l','e',' ', '**2*_h : Show hints m : Show defined macros'#000+
'n','a','m','e','s',' ','a','n','d',' ','p','a','t','h','s', '**2*_i : Show general info p : Show compiled procedures'#000+
#000,'*','*','2','F','e','<','x','>','_','r','e','d','i','r', '**2*_l : Show linenumbers c : Show conditionals'#000+
'e','c','t',' ','e','r','r','o','r',' ','o','u','t','p','u', '**2*_a : Show everyth','ing 0 : Show nothing (except errors'+
't',' ','t','o',' ','<','x','>',#000,'*','L','2','F','g','<', ')'#000+
'x','>','_','<','x','>',' ','s','e','a','r','c','h',' ','p', '**1X_executable options'#000+
'a','t','h',' ','f','o','r',' ','t','h','e',' ','G','N','U', '*L2Xc_link with the c library'#000+
' ','C',' ','l','i','b',#000,'*','L','2','F','r','<','x','>', '**2Xs_strip all symbols from executable'#000+
'_','<','x','>',' ','s','e','a','r','c','h',' ','p','a','t', '**0*_Processor specific options:'#000+
'h',' ','f','o','r',' ','t','h','e',' ','e','r','r','o','r', '3*1A_output format'#000+
' ','m','e','s','s','a','g','e',' ','f','i','l','e',#000,'*', '3*2Ao_coff file using GNU AS'#000+
'*','2','F','i','<','x','>','_','a','d','d','s',' ','<','x', '3*2Anasmcoff_coff file using Na','sm'#000+
'>',' ','t','o',' ','i','n','c','l','u','d','e',' ','p','a', '3*2Anasmelf_elf32 (linux) file using Nasm'#000+
't','h',#000,'*','*','2','F','l','<','x','>','_','a','d','d', '3*2Anasmobj_obj file using Nasm'#000+
's',' ','<','x','>',' ','t','o',' ','l','i','b','r','a','r', '3*2Amasm_obj using Masm (Mircosoft)'#000+
'y',' ','p','a','t','h',#000,'*','L','2','F','L','<','x','>', '3*2Atasm_obj using Tasm (Borland)'#000+
'_','u','s','e','s',' ','<','x','>',' ','a','s',' ','d','y', '3*1R_assembler reading style'#000+
'n','a','m','i','c',' ','l','i','n','k','e','r',#000,'*','*', '3*2Ratt_read AT&T style assembler'#000+
'2','F','u','<','x','>','_','a','d','d','s',' ','<','x','>', '3*2Rintel_read Intel style assembler'#000+
' ','t','o',' ','u','n','i','t',' ','p','a','t','h',#000,'*', '3*2Rdire','ct_copy assembler text directly to assembler file'#000+
'*','1','k','<','x','>','_','P','a','s','s',' ','<','x','>', '3*1O_optimizations'#000+
' ','t','o',' ','t','h','e',' ','l','i','n','k','e','r',#000, '3*2Oa_turn on the optimizer'#000+
'*','*','1','L','_','s','e','t',' ','l','a','n','g','u','a', '3*2Og_generate smaller code'#000+
'g','e',#000,'*','*','2','L','D','_','g','e','r','m','a','n', '3*2OG_generate faster code (default)'#000+
#000,'*','*','2','L','E','_','e','n','g','l','i','s','h',#000, '3*2Ox_optimize maximum (still BUGGY!!!)'#000+
'*','*','2','L','N','_','d','u','t','c','h',#000,'*','*','1', '3*2Oz_uncertain optimizations (see docs)'#000+
'l','_','w','r','i','t','e',' ','l','o','g','o',#000,'*','*', '3*2O2_set ta','rget processor to Pentium II (tm)'#000+
'1','i','_','i','n','f','o','r','m','a','t','i','o','n',#000, '3*2O3_set target processor to i386'#000+
'*','*','1','n','_','d','o','n',#039,'t',' ','r','e','a','d', '3*2O4_set target processor to i486'#000+
' ','t','h','e',' ','d','e','f','a','u','l','t',' ','c','o', '3*2O5_set target processor to Pentium (tm)'#000+
'n','f','i','g',' ','f','i','l','e',#000,'*','*','1','o','<', '3*2O6_set target processor to PentiumPro (tm)'#000+
'x','>','_','c','h','a','n','g','e',' ','t','h','e',' ','n', '3*2O7_set target processor to Cyrix 6x86'#000+
'a','m','e',' ','o','f',' ','t','h','e',' ','e','x','e','c', '3*2O8_set target proc','essor to AMD K6'#000+
'u','t','a','b','l','e',' ','p','r','o','d','u','c','e','d', '6*1A_output format'#000+
' ','t','o',' ','<','x','>',#000,'*','*','1','p','g','_','g', '6*2Ao_Unix o-file using GNU AS'#000+
'e','n','e','r','a','t','e',' ','p','r','o','f','i','l','e', '6*2Agas_GNU Motorola assembler'#000+
' ','c','o','d','e',' ','f','o','r',' ','g','p','r','o','f', '6*2Amit_MIT Syntax (old GAS)'#000+
#000,'*','L','1','P','_','u','s','e',' ','p','i','p','e','s', '6*2Amot_Standard Motorola assembler'#000+
' ','i','n','s','t','e','a','d',' ','o','f',' ','c','r','e', '6*1O_optimizations'#000+
'a','t','i','n','g',' ','t','e','m','p','o','r','a','r','y', '6*2Oa_ turn on the optimizer'#000+
' ','a','s','s','e','m','b','l','e','r',' ','f','i','l','e', '6*2Og_ generate smaller code'#000+
's',#000,'*','*','1','S','_','s','y','n','t','a','x',' ','o', '6*2OG_ generate ','faster code (default)'#000+
'p','t','i','o','n','s',#000,'*','*','2','S','2','_','s','w', '6*2Ox_optimize maximum (still BUGGY!!!)'#000+
'i','t','c','h',' ','s','o','m','e',' ','D','e','l','p','h', '6*2O2_set target processor to a MC68020+'#000+
'i',' ','2',' ','e','x','t','e','n','s','i','o','n',' ','o', '**1*_'#000+
'n',#000,'*','*','2','S','c','_','s','u','p','p','o','r','t', '**1?_shows this help'#000+
's',' ','o','p','e','r','a','t','o','r','s',' ','l','i','k', '**1h_shows this help without waiting'#000
'e',' ','C',' ','(','*','=',',','+','=',',','/','=',' ','a', );
'n','d',' ','-','=',')',#000,'*','*','2','S','d','_','c','o',
'm','p','i','l','e','r',' ','d','i','s','p','o','s','e','s',
' ','a','s','m',' ','l','i','s','t','s',' ','(','u','s','e',
's',' ','l','e','s','s',' ','m','e','m','o','r','y',' ','b',
'u','t',' ','s','l','o','w','e','r',')',#000,'*','*','2','S',
'e','_','c','o','m','p','i','l','e','r',' ','s','t','o','p',
's',' ','a','f','t','e','r',' ','t','h','e',' ','f','i','r',
's','t',' ','e','r','r','o','r',#000,'*','*','2','S','g','_',
'a','l','l','o','w','s',' ','L','A','B','E','L',' ','a','n',
'd',' ','G','O','T','O',#000,'*','*','2','S','i','_','s','u',
'p','p','o','r','t',' ','C','+','+',' ','s','t','l','y','e',
'd',' ','I','N','L','I','N','E',#000,'*','*','2','S','m','_',
's','u','p','p','o','r','t',' ','m','a','c','r','o','s',' ',
'l','i','k','e',' ','C',' ','(','g','l','o','b','a','l',')',
#000,'*','*','2','S','o','_','t','r','i','e','s',' ','t','o',
' ','b','e',' ','T','P','/','B','P',' ','7','.','0',' ','c',
'o','m','p','a','t','i','b','l','e',#000,'*','*','2','S','s',
'_','c','o','n','s','t','r','u','c','t','o','r',' ','n','a',
'm','e',' ','m','u','s','t',' ','b','e',' ','i','n','i','t',
' ','(','d','e','s','t','r','u','c','t','o','r',' ','m','u',
's','t',' ','b','e',' ','d','o','n','e',')',#000,'*','*','2',
'S','t','_','a','l','l','o','w','s',' ','s','t','a','t','i',
'c',' ','k','e','y','w','o','r','d',' ','i','n',' ','o','b',
'j','e','c','t','s',#000,'*','*','1','s','_','d','o','n',#039,
't',' ','c','a','l','l',' ','a','s','s','e','m','b','l','e',
'r',' ','a','n','d',' ','l','i','n','k','e','r',' ','(','o',
'n','l','y',' ','w','i','t','h',' ','-','a',')',#000,'*','*',
'1','T','<','x','>','_','T','a','r','g','e','t',' ','o','p',
'e','r','a','t','i','n','g',' ','s','y','s','t','e','m',#000,
'3','*','2','T','G','O','3','2','V','1','_','v','e','r','s',
'i','o','n',' ','1',' ','o','f',' ','D','J',' ','D','e','l',
'o','r','i','e',' ','D','O','S',' ','e','x','t','e','n','d',
'e','r',#000,'3','*','2','T','G','O','3','2','V','2','_','v',
'e','r','s','i','o','n',' ','2',' ','o','f',' ','D','J',' ',
'D','e','l','o','r','i','e',' ','D','O','S',' ','e','x','t',
'e','n','d','e','r',#000,'3','*','2','T','L','I','N','U','X',
'_','L','i','n','u','x',#000,'3','*','2','T','O','S','2','_',
'O','S','/','2',' ','2','.','x',#000,'3','*','2','T','W','i',
'n','3','2','_','W','i','n','d','o','w','s',' ','3','2',' ',
'B','i','t',#000,'6','*','2','T','A','M','I','G','A','_','C',
'o','m','m','o','d','o','r','e',' ','A','m','i','g','a',#000,
'6','*','2','T','A','T','A','R','I','_','A','t','a','r','i',
' ','S','T','/','S','T','e','/','T','T',#000,'6','*','2','T',
'M','A','C','O','S','_','M','a','c','i','n','t','o','s','h',
' ','m','6','8','k',#000,'6','*','2','T','L','I','N','U','X',
'_','L','i','n','u','x','-','6','8','k',#000,'*','*','1','u',
'<','x','>','_','u','n','d','e','f','i','n','e','s',' ','t',
'h','e',' ','s','y','m','b','o','l',' ','<','x','>',#000,'*',
'*','1','U','_','u','n','i','t',' ','o','p','t','i','o','n',
's',#000,'*','*','2','U','l','s','_','m','a','k','e',' ','s',
't','a','t','i','c',' ','l','i','b','r','a','r','y',' ','f',
'r','o','m',' ','u','n','i','t',#000,'*','*','2','U','l','d',
'_','m','a','k','e',' ','d','y','n','a','m','i','c',' ','l',
'i','b','r','a','r','y',' ','f','r','o','m',' ','u','n','i',
't',#000,'*','*','2','U','n','_','d','o','n',#039,'t',' ','c',
'h','e','c','k',' ','t','h','e',' ','u','n','i','t',' ','n',
'a','m','e',#000,'*','*','2','U','p','<','x','>','_','s','a',
'm','e',' ','a','s',' ','-','F','u','<','x','>',#000,'*','*',
'2','U','s','_','c','o','m','p','i','l','e',' ','a',' ','s',
'y','s','t','e','m',' ','u','n','i','t',#000,'*','*','1','v',
'<','x','>','_','B','e',' ','v','e','r','b','o','s','e','.',
' ','<','x','>',' ','i','s',' ','a',' ','c','o','m','b','i',
'n','a','t','i','o','n',' ','o','f',' ','t','h','e',' ','f',
'o','l','l','o','w','i','n','g',' ','l','e','t','t','e','r',
's',' ',':',#000,'*','*','2','*','_','e',' ',':',' ','S','h',
'o','w',' ','e','r','r','o','r','s',' ','(','d','e','f','a',
'u','l','t',')',' ',' ',' ',' ',' ',' ',' ','d',' ',':',' ',
'S','h','o','w',' ','d','e','b','u','g',' ','i','n','f','o',
#000,'*','*','2','*','_','w',' ',':',' ','S','h','o','w',' ',
'w','a','r','n','i','n','g','s',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ','u',' ',':',' ','S','h','o',
'w',' ','u','s','e','d',' ','f','i','l','e','s',#000,'*','*',
'2','*','_','n',' ',':',' ','S','h','o','w',' ','n','o','t',
'e','s',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ',' ','t',' ',':',' ','S','h','o','w',' ','t',
'r','i','e','d',' ','f','i','l','e','s',#000,'*','*','2','*',
'_','h',' ',':',' ','S','h','o','w',' ','h','i','n','t','s',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ','m',' ',':',' ','S','h','o','w',' ','d','e','f',
'i','n','e','d',' ','m','a','c','r','o','s',#000,'*','*','2',
'*','_','i',' ',':',' ','S','h','o','w',' ','g','e','n','e',
'r','a','l',' ','i','n','f','o',' ',' ',' ',' ',' ',' ',' ',
' ',' ',' ',' ','p',' ',':',' ','S','h','o','w',' ','c','o',
'm','p','i','l','e','d',' ','p','r','o','c','e','d','u','r',
'e','s',#000,'*','*','2','*','_','l',' ',':',' ','S','h','o',
'w',' ','l','i','n','e','n','u','m','b','e','r','s',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ',' ','c',' ',':',' ','S',
'h','o','w',' ','c','o','n','d','i','t','i','o','n','a','l',
's',#000,'*','*','2','*','_','a',' ',':',' ','S','h','o','w',
' ','e','v','e','r','y','t','h','i','n','g',' ',' ',' ',' ',
' ',' ',' ',' ',' ',' ',' ',' ',' ','0',' ',':',' ','S','h',
'o','w',' ','n','o','t','h','i','n','g',' ','(','e','x','c',
'e','p','t',' ','e','r','r','o','r','s',')',#000,'*','*','1',
'X','_','e','x','e','c','u','t','a','b','l','e',' ','o','p',
't','i','o','n','s',#000,'*','L','2','X','c','_','l','i','n',
'k',' ','w','i','t','h',' ','t','h','e',' ','c',' ','l','i',
'b','r','a','r','y',#000,'*','*','2','X','s','_','s','t','r',
'i','p',' ','a','l','l',' ','s','y','m','b','o','l','s',' ',
'f','r','o','m',' ','e','x','e','c','u','t','a','b','l','e',
#000,'*','*','0','*','_','P','r','o','c','e','s','s','o','r',
' ','s','p','e','c','i','f','i','c',' ','o','p','t','i','o',
'n','s',':',#000,'3','*','1','A','_','o','u','t','p','u','t',
' ','f','o','r','m','a','t',#000,'3','*','2','A','o','_','c',
'o','f','f',' ','f','i','l','e',' ','u','s','i','n','g',' ',
'G','N','U',' ','A','S',#000,'3','*','2','A','n','a','s','m',
'c','o','f','f','_','c','o','f','f',' ','f','i','l','e',' ',
'u','s','i','n','g',' ','N','a','s','m',#000,'3','*','2','A',
'n','a','s','m','e','l','f','_','e','l','f','3','2',' ','(',
'l','i','n','u','x',')',' ','f','i','l','e',' ','u','s','i',
'n','g',' ','N','a','s','m',#000,'3','*','2','A','n','a','s',
'm','o','b','j','_','o','b','j',' ','f','i','l','e',' ','u',
's','i','n','g',' ','N','a','s','m',#000,'3','*','2','A','m',
'a','s','m','_','o','b','j',' ','u','s','i','n','g',' ','M',
'a','s','m',' ','(','M','i','r','c','o','s','o','f','t',')',
#000,'3','*','2','A','t','a','s','m','_','o','b','j',' ','u',
's','i','n','g',' ','T','a','s','m',' ','(','B','o','r','l',
'a','n','d',')',#000,'3','*','1','R','_','a','s','s','e','m',
'b','l','e','r',' ','r','e','a','d','i','n','g',' ','s','t',
'y','l','e',#000,'3','*','2','R','a','t','t','_','r','e','a',
'd',' ','A','T','&','T',' ','s','t','y','l','e',' ','a','s',
's','e','m','b','l','e','r',#000,'3','*','2','R','i','n','t',
'e','l','_','r','e','a','d',' ','I','n','t','e','l',' ','s',
't','y','l','e',' ','a','s','s','e','m','b','l','e','r',#000,
'3','*','2','R','d','i','r','e','c','t','_','c','o','p','y',
' ','a','s','s','e','m','b','l','e','r',' ','t','e','x','t',
' ','d','i','r','e','c','t','l','y',' ','t','o',' ','a','s',
's','e','m','b','l','e','r',' ','f','i','l','e',#000,'3','*',
'1','O','_','o','p','t','i','m','i','z','a','t','i','o','n',
's',#000,'3','*','2','O','a','_','t','u','r','n',' ','o','n',
' ','t','h','e',' ','o','p','t','i','m','i','z','e','r',#000,
'3','*','2','O','g','_','g','e','n','e','r','a','t','e',' ',
's','m','a','l','l','e','r',' ','c','o','d','e',#000,'3','*',
'2','O','G','_','g','e','n','e','r','a','t','e',' ','f','a',
's','t','e','r',' ','c','o','d','e',' ','(','d','e','f','a',
'u','l','t',')',#000,'3','*','2','O','x','_','o','p','t','i',
'm','i','z','e',' ','m','a','x','i','m','u','m',' ','(','s',
't','i','l','l',' ','B','U','G','G','Y','!','!','!',')',#000,
'3','*','2','O','z','_','u','n','c','e','r','t','a','i','n',
' ','o','p','t','i','m','i','z','a','t','i','o','n','s',' ',
'(','s','e','e',' ','d','o','c','s',')',#000,'3','*','2','O',
'2','_','s','e','t',' ','t','a','r','g','e','t',' ','p','r',
'o','c','e','s','s','o','r',' ','t','o',' ','P','e','n','t',
'i','u','m',' ','I','I',' ','(','t','m',')',#000,'3','*','2',
'O','3','_','s','e','t',' ','t','a','r','g','e','t',' ','p',
'r','o','c','e','s','s','o','r',' ','t','o',' ','i','3','8',
'6',#000,'3','*','2','O','4','_','s','e','t',' ','t','a','r',
'g','e','t',' ','p','r','o','c','e','s','s','o','r',' ','t',
'o',' ','i','4','8','6',#000,'3','*','2','O','5','_','s','e',
't',' ','t','a','r','g','e','t',' ','p','r','o','c','e','s',
's','o','r',' ','t','o',' ','P','e','n','t','i','u','m',' ',
'(','t','m',')',#000,'3','*','2','O','6','_','s','e','t',' ',
't','a','r','g','e','t',' ','p','r','o','c','e','s','s','o',
'r',' ','t','o',' ','P','e','n','t','i','u','m','P','r','o',
' ','(','t','m',')',#000,'3','*','2','O','7','_','s','e','t',
' ','t','a','r','g','e','t',' ','p','r','o','c','e','s','s',
'o','r',' ','t','o',' ','C','y','r','i','x',' ','6','x','8',
'6',#000,'3','*','2','O','8','_','s','e','t',' ','t','a','r',
'g','e','t',' ','p','r','o','c','e','s','s','o','r',' ','t',
'o',' ','A','M','D',' ','K','6',#000,'6','*','1','A','_','o',
'u','t','p','u','t',' ','f','o','r','m','a','t',#000,'6','*',
'2','A','o','_','U','n','i','x',' ','o','-','f','i','l','e',
' ','u','s','i','n','g',' ','G','N','U',' ','A','S',#000,'6',
'*','2','A','g','a','s','_','G','N','U',' ','M','o','t','o',
'r','o','l','a',' ','a','s','s','e','m','b','l','e','r',#000,
'6','*','2','A','m','i','t','_','M','I','T',' ','S','y','n',
't','a','x',' ','(','o','l','d',' ','G','A','S',')',#000,'6',
'*','2','A','m','o','t','_','S','t','a','n','d','a','r','d',
' ','M','o','t','o','r','o','l','a',' ','a','s','s','e','m',
'b','l','e','r',#000,'6','*','1','O','_','o','p','t','i','m',
'i','z','a','t','i','o','n','s',#000,'6','*','2','O','a','_',
' ','t','u','r','n',' ','o','n',' ','t','h','e',' ','o','p',
't','i','m','i','z','e','r',#000,'6','*','2','O','g','_',' ',
'g','e','n','e','r','a','t','e',' ','s','m','a','l','l','e',
'r',' ','c','o','d','e',#000,'6','*','2','O','G','_',' ','g',
'e','n','e','r','a','t','e',' ','f','a','s','t','e','r',' ',
'c','o','d','e',' ','(','d','e','f','a','u','l','t',')',#000,
'6','*','2','O','x','_','o','p','t','i','m','i','z','e',' ',
'm','a','x','i','m','u','m',' ','(','s','t','i','l','l',' ',
'B','U','G','G','Y','!','!','!',')',#000,'6','*','2','O','2',
'_','s','e','t',' ','t','a','r','g','e','t',' ','p','r','o',
'c','e','s','s','o','r',' ','t','o',' ','a',' ','M','C','6',
'8','0','2','0','+',#000,'*','*','1','*','_',#000,'*','*','1',
'?','_','s','h','o','w','s',' ','t','h','i','s',' ','h','e',
'l','p',#000,'*','*','1','h','_','s','h','o','w','s',' ','t',
'h','i','s',' ','h','e','l','p',' ','w','i','t','h','o','u',
't',' ','w','a','i','t','i','n','g',#000);

4
compiler/todo.txt
View File

@ -66,5 +66,5 @@ compiler version and your short cut.
- $B - $B
- fix all bugs of the bug directory - fix all bugs of the bug directory
- include/exclude - include/exclude
- make dec/inc internal - make dec/inc internal................................... 0.99.6 (PFV)
- make length internal.................................... 0.99.6 (PFV) - make length internal

40
compiler/verbose.pas
View File

@ -57,8 +57,6 @@ Const
var var
msg : pmessage; msg : pmessage;
lastfileidx,
lastmoduleidx : longint;
procedure SetRedirectFile(const fn:string); procedure SetRedirectFile(const fn:string);
function SetVerbosity(const s:string):boolean; function SetVerbosity(const s:string):boolean;
@ -217,6 +215,25 @@ begin
end; end;
var
lastfileidx,
lastmoduleidx : longint;
Procedure UpdateStatus;
begin
{ fix status }
status.currentline:=aktfilepos.line;
status.currentcolumn:=aktfilepos.column;
if assigned(current_module) and
((current_module^.unit_index<>lastmoduleidx) or
(current_module^.current_index<>lastfileidx)) then
begin
status.currentsource:=current_module^.sourcefiles.get_file_name(current_module^.current_index);
lastmoduleidx:=current_module^.unit_index;
lastfileidx:=current_module^.current_index;
end;
end;
procedure stop; procedure stop;
begin begin
{$ifndef TP} {$ifndef TP}
@ -229,6 +246,7 @@ end;
procedure ShowStatus; procedure ShowStatus;
begin begin
UpdateStatus;
{$ifndef TP} {$ifndef TP}
if do_status() then if do_status() then
stop; stop;
@ -253,17 +271,8 @@ begin
dostop:=((l and V_Fatal)<>0); dostop:=((l and V_Fatal)<>0);
if (l and V_Error)<>0 then if (l and V_Error)<>0 then
inc(status.errorcount); inc(status.errorcount);
{ fix status } { Create status info }
status.currentline:=aktfilepos.line; UpdateStatus;
status.currentcolumn:=aktfilepos.column;
if assigned(current_module) and
((current_module^.unit_index<>lastmoduleidx) or
(current_module^.current_index<>lastfileidx)) then
begin
status.currentsource:=current_module^.sourcefiles.get_file_name(current_module^.current_index);
lastmoduleidx:=current_module^.unit_index;
lastfileidx:=current_module^.current_index;
end;
{ show comment } { show comment }
if do_comment(l,s) or dostop or (status.errorcount>=status.maxerrorcount) then if do_comment(l,s) or dostop or (status.errorcount>=status.maxerrorcount) then
stop stop
@ -376,7 +385,10 @@ end.
{ {
$Log$ $Log$
Revision 1.13 1998-08-10 14:50:37 peter Revision 1.14 1998-08-11 14:09:15 peter
* fixed some messages and smaller msgtxt.inc
Revision 1.13 1998/08/10 14:50:37 peter
+ localswitches, moduleswitches, globalswitches splitting + localswitches, moduleswitches, globalswitches splitting
Revision 1.12 1998/08/10 10:18:37 peter Revision 1.12 1998/08/10 10:18:37 peter