paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:47:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* seperator => separator

Browse Source
This commit is contained in:
florian 2022-01-02 13:12:33 +01:00
parent d2447026de
commit 2a93e65511
15 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/armreg.dat
View File

@ -38,7 +38,7 @@ F7,$02,$00,$07,f7,32,23
; allocator because it cannot deal with D0 conflicting with both S0 and S1. ; allocator because it cannot deal with D0 conflicting with both S0 and S1.
; This unfortunately means that we can only use 16 single precision registers ; This unfortunately means that we can only use 16 single precision registers
; instead of 32, even if no double precision ones are used... ; instead of 32, even if no double precision ones are used...
; Nevertheless the odd numbered single registers must have seperate register ; Nevertheless the odd numbered single registers must have separate register
; numbers to allow implementation of the "EABI VFP hardfloat" calling convention. ; numbers to allow implementation of the "EABI VFP hardfloat" calling convention.
S0,$04,$06,$00,s0,0,0 S0,$04,$06,$00,s0,0,0

2
compiler/arm/cgcpu.pas
View File

@ -3301,7 +3301,7 @@ unit cgcpu;
end end
else else
handle_load_store(list,A_VSTR,PF_None,tmpmmreg,ref); handle_load_store(list,A_VSTR,PF_None,tmpmmreg,ref);
{ VSTR cannot generate an FPU exception, VCVT is handled seperately, so we do not need a check here } { VSTR cannot generate an FPU exception, VCVT is handled separately, so we do not need a check here }
end; end;

4
compiler/globals.pas
View File

@ -55,7 +55,7 @@ interface
m_pointer_2_procedure,m_autoderef,m_tp_procvar,m_initfinal,m_default_ansistring, m_pointer_2_procedure,m_autoderef,m_tp_procvar,m_initfinal,m_default_ansistring,
m_out,m_default_para,m_duplicate_names,m_hintdirective, m_out,m_default_para,m_duplicate_names,m_hintdirective,
m_property,m_default_inline,m_except,m_advanced_records, m_property,m_default_inline,m_except,m_advanced_records,
m_array_operators,m_prefixed_attributes,m_underscoreisseperator]; m_array_operators,m_prefixed_attributes,m_underscoreisseparator];
delphiunicodemodeswitches = delphimodeswitches + [m_systemcodepage,m_default_unicodestring]; delphiunicodemodeswitches = delphimodeswitches + [m_systemcodepage,m_default_unicodestring];
fpcmodeswitches = fpcmodeswitches =
[m_fpc,m_string_pchar,m_nested_comment,m_repeat_forward, [m_fpc,m_string_pchar,m_nested_comment,m_repeat_forward,
@ -306,7 +306,7 @@ interface
exepath : TPathStr; exepath : TPathStr;
{ Path to unicode charmap/collation binaries } { Path to unicode charmap/collation binaries }
unicodepath : TPathStr; unicodepath : TPathStr;
{ path for searching units, different paths can be seperated by ; } { path for searching units, different paths can be separated by ; }
librarysearchpath, librarysearchpath,
unitsearchpath, unitsearchpath,
objectsearchpath, objectsearchpath,

4
compiler/globtype.pas
View File

@ -528,7 +528,7 @@ interface
m_multi_helpers, { helpers can appear in multiple scopes simultaneously } m_multi_helpers, { helpers can appear in multiple scopes simultaneously }
m_array2dynarray, { regular arrays can be implicitly converted to dynamic arrays } m_array2dynarray, { regular arrays can be implicitly converted to dynamic arrays }
m_prefixed_attributes, { enable attributes that are defined before the type they belong to } m_prefixed_attributes, { enable attributes that are defined before the type they belong to }
m_underscoreisseperator{ _ can be used as seperator to group digits in numbers } m_underscoreisseparator{ _ can be used as separator to group digits in numbers }
); );
tmodeswitches = set of tmodeswitch; tmodeswitches = set of tmodeswitch;
@ -721,7 +721,7 @@ interface
'MULTIHELPERS', 'MULTIHELPERS',
'ARRAYTODYNARRAY', 'ARRAYTODYNARRAY',
'PREFIXEDATTRIBUTES', 'PREFIXEDATTRIBUTES',
'UNDERSCOREISSEPERATOR' 'UNDERSCOREISSEPARATOR'
); );

2
compiler/hlcgobj.pas
View File

@ -5478,7 +5478,7 @@ implementation
begin begin
pd:=search_system_proc('fpc_stackcheck'); pd:=search_system_proc('fpc_stackcheck');
paraloc1.init; paraloc1.init;
{ The parameter to fpc_stackcheck is loaded seperately via { The parameter to fpc_stackcheck is loaded separately via
gen_stack_check_size_para() } gen_stack_check_size_para() }
paramanager.getcgtempparaloc(list,pd,1,paraloc1); paramanager.getcgtempparaloc(list,pd,1,paraloc1);
paramanager.freecgpara(list,paraloc1); paramanager.freecgpara(list,paraloc1);

2
compiler/ngenutil.pas
View File

@ -493,7 +493,7 @@ implementation
if mf_classinits in current_module.moduleflags then if mf_classinits in current_module.moduleflags then
append_struct_initfinis(current_module, potype_class_constructor, stat); append_struct_initfinis(current_module, potype_class_constructor, stat);
end; end;
{ units have seperate code for initilization and finalization } { units have separate code for initilization and finalization }
potype_unitfinalize: ; potype_unitfinalize: ;
{ program init/final is generated in separate procedure } { program init/final is generated in separate procedure }
potype_proginit: ; potype_proginit: ;

8
compiler/scanner.pas
View File

@ -3625,7 +3625,7 @@ type
exit; exit;
repeat repeat
{ still more to read?, then change the #0 to a space so its seen { still more to read?, then change the #0 to a space so its seen
as a seperator, this can't be used for macro's which can change as a separator, this can't be used for macro's which can change
the place of the #0 in the buffer with tempopen } the place of the #0 in the buffer with tempopen }
if (c=#0) and (bufsize>0) and if (c=#0) and (bufsize>0) and
not(inputfile.is_macro) and not(inputfile.is_macro) and
@ -4233,7 +4233,7 @@ type
((base=16) and (c in ['A'..'F','a'..'f'])) or ((base=16) and (c in ['A'..'F','a'..'f'])) or
((base=8) and (c in ['0'..'7'])) or ((base=8) and (c in ['0'..'7'])) or
((base=2) and (c in ['0'..'1'])) or ((base=2) and (c in ['0'..'1'])) or
((m_underscoreisseperator in current_settings.modeswitches) and firstdigitread and (c='_')) do ((m_underscoreisseparator in current_settings.modeswitches) and firstdigitread and (c='_')) do
begin begin
if (i<255) and (c<>'_') then if (i<255) and (c<>'_') then
begin begin
@ -5012,7 +5012,7 @@ type
pattern:=pattern+'.'; pattern:=pattern+'.';
firstdigitread:=false; firstdigitread:=false;
while (c in ['0'..'9']) or while (c in ['0'..'9']) or
((m_underscoreisseperator in current_settings.modeswitches) and firstdigitread and (c='_')) do ((m_underscoreisseparator in current_settings.modeswitches) and firstdigitread and (c='_')) do
begin begin
if c<>'_' then if c<>'_' then
pattern:=pattern+c; pattern:=pattern+c;
@ -5042,7 +5042,7 @@ type
Illegal_Char(c); Illegal_Char(c);
firstdigitread:=false; firstdigitread:=false;
while (c in ['0'..'9']) or while (c in ['0'..'9']) or
((m_underscoreisseperator in current_settings.modeswitches) and firstdigitread and (c='_')) do ((m_underscoreisseparator in current_settings.modeswitches) and firstdigitread and (c='_')) do
begin begin
if c<>'_' then if c<>'_' then
pattern:=pattern+c; pattern:=pattern+c;

2
compiler/utils/ppuutils/ppudump.pp
View File

@ -2427,7 +2427,7 @@ const
'm_multi_helpers', { helpers can appear in multiple scopes simultaneously } 'm_multi_helpers', { helpers can appear in multiple scopes simultaneously }
'm_array2dynarray', { regular arrays can be implicitly converted to dynamic arrays } 'm_array2dynarray', { regular arrays can be implicitly converted to dynamic arrays }
'm_prefixed_attributes', { enable attributes that are defined before the type they belong to } 'm_prefixed_attributes', { enable attributes that are defined before the type they belong to }
'm_underscoreisseperator'{ _ can be used as seperator to group digits in numbers } 'm_underscoreisseparator'{ _ can be used as separator to group digits in numbers }
); );
{ optimizer } { optimizer }
optimizerswitchname : array[toptimizerswitch] of string[50] = optimizerswitchname : array[toptimizerswitch] of string[50] =

4
rtl/inc/text.inc
View File

@ -1631,7 +1631,7 @@ Begin
repeat repeat
prev := TextRec(f).BufPtr^[TextRec(f).BufPos]; prev := TextRec(f).BufPtr^[TextRec(f).BufPos];
inc(TextRec(f).BufPos); inc(TextRec(f).BufPos);
{ no system uses #10#13 as line seperator (#10 = *nix, #13 = Mac, } { no system uses #10#13 as line separator (#10 = *nix, #13 = Mac, }
{ #13#10 = Dos), so if we've got #10, we can safely exit } { #13#10 = Dos), so if we've got #10, we can safely exit }
if prev = #10 then if prev = #10 then
exit; exit;
@ -1686,7 +1686,7 @@ Begin
repeat repeat
prev := TextRec(f).BufPtr^[TextRec(f).BufPos]; prev := TextRec(f).BufPtr^[TextRec(f).BufPos];
inc(TextRec(f).BufPos); inc(TextRec(f).BufPos);
{ no system uses #10#13 as line seperator (#10 = *nix, #13 = Mac, } { no system uses #10#13 as line separator (#10 = *nix, #13 = Mac, }
{ #13#10 = Dos), so if we've got #10, we can safely exit } { #13#10 = Dos), so if we've got #10, we can safely exit }
if prev = #10 then if prev = #10 then
exit; exit;

4
rtl/objpas/sysutils/datih.inc
View File

@ -84,8 +84,8 @@ var
tt : longtimeformat tt : longtimeformat
am/pm : use 12 hour clock and display am and pm accordingly am/pm : use 12 hour clock and display am and pm accordingly
a/p : use 12 hour clock and display a and p accordingly a/p : use 12 hour clock and display a and p accordingly
/ : insert date seperator / : insert date separator
: : insert time seperator : : insert time separator
"xx" : literal text "xx" : literal text
'xx' : literal text 'xx' : literal text
} }

2
tests/tbf/tb0287.pp
View File

@ -1,5 +1,5 @@
{ %fail } { %fail }
{$modeswitch underscoreisseperator} {$modeswitch underscoreisseparator}
begin begin
writeln(_123567); writeln(_123567);

2
tests/tbf/tb0288.pp
View File

@ -1,5 +1,5 @@
{ %fail } { %fail }
{$modeswitch underscoreisseperator} {$modeswitch underscoreisseparator}
begin begin
writeln($_123567); writeln($_123567);

2
tests/tbf/tb0289.pp
View File

@ -1,5 +1,5 @@
{ %fail } { %fail }
{$modeswitch underscoreisseperator} {$modeswitch underscoreisseparator}
begin begin
writeln(123567._1234); writeln(123567._1234);

2
tests/tbf/tb0290.pp
View File

@ -1,5 +1,5 @@
{ %fail } { %fail }
{$modeswitch underscoreisseperator} {$modeswitch underscoreisseparator}
begin begin
writeln(123567.1234e_12); writeln(123567.1234e_12);

2
tests/tbs/tb0690.pp
View File

@ -1,4 +1,4 @@
{ %norun } { %norun }
{$modeswitch underscoreisseperator} {$modeswitch underscoreisseparator}
{$i ib0690.inc} {$i ib0690.inc}