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

Fix a few typos discovered by Blaise

Browse Source 
git-svn-id: trunk@32640 -
This commit is contained in:
svenbarth 2015-12-11 16:31:00 +00:00
parent 092a0af0ec
commit 8bd79f95be
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pdecsub.pas
View File

@ -86,10 +86,10 @@ interface
procedure insert_record_hidden_paras(astruct: trecorddef); procedure insert_record_hidden_paras(astruct: trecorddef);
{ helper functions - they insert nested objects hierarcy to the symtablestack { helper functions - they insert nested objects hierarchy to the symtablestack
with object hierarchy with object hierarchy
} }
function push_child_hierarcy(obj:tabstractrecorddef):integer; function push_child_hierarchy(obj:tabstractrecorddef):integer;
function pop_child_hierarchy(obj:tabstractrecorddef):integer; function pop_child_hierarchy(obj:tabstractrecorddef):integer;
function push_nested_hierarchy(obj:tabstractrecorddef):integer; function push_nested_hierarchy(obj:tabstractrecorddef):integer;
function pop_nested_hierarchy(obj:tabstractrecorddef):integer; function pop_nested_hierarchy(obj:tabstractrecorddef):integer;
@ -125,7 +125,7 @@ implementation
Declaring it as string here results in an error when compiling (PFV) } Declaring it as string here results in an error when compiling (PFV) }
current_procinfo = 'error'; current_procinfo = 'error';
function push_child_hierarcy(obj:tabstractrecorddef):integer; function push_child_hierarchy(obj:tabstractrecorddef):integer;
var var
_class,hp : tobjectdef; _class,hp : tobjectdef;
begin begin
@ -153,7 +153,7 @@ implementation
result:=0; result:=0;
if obj.owner.symtabletype in [ObjectSymtable,recordsymtable] then if obj.owner.symtabletype in [ObjectSymtable,recordsymtable] then
inc(result,push_nested_hierarchy(tabstractrecorddef(obj.owner.defowner))); inc(result,push_nested_hierarchy(tabstractrecorddef(obj.owner.defowner)));
inc(result,push_child_hierarcy(obj)); inc(result,push_child_hierarchy(obj));
end; end;
function pop_child_hierarchy(obj:tabstractrecorddef):integer; function pop_child_hierarchy(obj:tabstractrecorddef):integer;
@ -1600,7 +1600,7 @@ implementation
parse_record_proc_directives(result); parse_record_proc_directives(result);
{ since records have no inheritance, don't allow non-static { since records have no inheritance, don't allow non-static
class methods. Selphi does the same. } class methods. Delphi does the same. }
if (result.proctypeoption<>potype_operator) and if (result.proctypeoption<>potype_operator) and
is_classdef and is_classdef and
not (po_staticmethod in result.procoptions) then not (po_staticmethod in result.procoptions) then

2
compiler/psub.pas
View File

@ -2071,7 +2071,7 @@ implementation
begin begin
pd.forwarddef:=true; pd.forwarddef:=true;
{ set also the interface flag, for better error message when the { set also the interface flag, for better error message when the
implementation doesn't much this header } implementation doesn't match this header }
pd.interfacedef:=true; pd.interfacedef:=true;
include(pd.procoptions,po_global); include(pd.procoptions,po_global);
pdflags:=[pd_interface]; pdflags:=[pd_interface];