paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 08:38:14 +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.
; This unfortunately means that we can only use 16 single precision registers
; 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.
S0,$04,$06,$00,s0,0,0

2
compiler/arm/cgcpu.pas
View File

@ -3301,7 +3301,7 @@ unit cgcpu;
end
else
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;

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_out,m_default_para,m_duplicate_names,m_hintdirective,
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];
fpcmodeswitches =
[m_fpc,m_string_pchar,m_nested_comment,m_repeat_forward,
@ -306,7 +306,7 @@ interface
exepath : TPathStr;
{ Path to unicode charmap/collation binaries }
unicodepath : TPathStr;
{ path for searching units, different paths can be seperated by ; }
{ path for searching units, different paths can be separated by ; }
librarysearchpath,
unitsearchpath,
objectsearchpath,

4
compiler/globtype.pas
View File

@ -528,7 +528,7 @@ interface
m_multi_helpers, { helpers can appear in multiple scopes simultaneously }
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_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;
@ -721,7 +721,7 @@ interface
'MULTIHELPERS',
'ARRAYTODYNARRAY',
'PREFIXEDATTRIBUTES',
'UNDERSCOREISSEPERATOR'
'UNDERSCOREISSEPARATOR'
);

2
compiler/hlcgobj.pas
View File

@ -5478,7 +5478,7 @@ implementation
begin
pd:=search_system_proc('fpc_stackcheck');
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() }
paramanager.getcgtempparaloc(list,pd,1,paraloc1);
paramanager.freecgpara(list,paraloc1);

2
compiler/ngenutil.pas
View File

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

8
compiler/scanner.pas
View File

@ -3625,7 +3625,7 @@ type
exit;
repeat
{ 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 }
if (c=#0) and (bufsize>0) and
not(inputfile.is_macro) and
@ -4233,7 +4233,7 @@ type
((base=16) and (c in ['A'..'F','a'..'f'])) or
((base=8) and (c in ['0'..'7'])) 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
if (i<255) and (c<>'_') then
begin
@ -5012,7 +5012,7 @@ type
pattern:=pattern+'.';
firstdigitread:=false;
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
if c<>'_' then
pattern:=pattern+c;
@ -5042,7 +5042,7 @@ type
Illegal_Char(c);
firstdigitread:=false;
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
if c<>'_' then
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_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_underscoreisseperator'{ _ can be used as seperator to group digits in numbers }
'm_underscoreisseparator'{ _ can be used as separator to group digits in numbers }
);
{ optimizer }
optimizerswitchname : array[toptimizerswitch] of string[50] =

4
rtl/inc/text.inc
View File

@ -1631,7 +1631,7 @@ Begin
repeat
prev := TextRec(f).BufPtr^[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 }
if prev = #10 then
exit;
@ -1686,7 +1686,7 @@ Begin
repeat
prev := TextRec(f).BufPtr^[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 }
if prev = #10 then
exit;

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

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

2
tests/tbf/tb0287.pp
View File

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

2
tests/tbf/tb0288.pp
View File

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

2
tests/tbf/tb0289.pp
View File

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

2
tests/tbf/tb0290.pp
View File

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

2
tests/tbs/tb0690.pp
View File

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