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

* cosmetics

Browse Source 
git-svn-id: trunk@44542 -
This commit is contained in:
florian 2020-04-03 20:15:25 +00:00
parent c1c201f93c
commit fc98a0db4f
1 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
compiler/nld.pas
View File

@ -430,8 +430,8 @@ implementation
;
constsym:
begin
if tconstsym(symtableentry).consttyp=constresourcestring then
expectloc:=LOC_CREFERENCE;
if tconstsym(symtableentry).consttyp=constresourcestring then
expectloc:=LOC_CREFERENCE;
end;
staticvarsym,
localvarsym,
@ -453,25 +453,25 @@ implementation
end;
end;
procsym :
begin
{ initialise left for nested procs if necessary }
if (m_nested_procvars in current_settings.modeswitches) then
setprocdef(fprocdef);
{ method pointer or nested proc ? }
if assigned(left) then
begin
expectloc:=LOC_CREGISTER;
firstpass(left);
end;
end;
labelsym :
begin
if not assigned(tlabelsym(symtableentry).asmblocklabel) and
not assigned(tlabelsym(symtableentry).code) then
Message(parser_e_label_outside_proc);
end
else
internalerror(200104143);
begin
{ initialise left for nested procs if necessary }
if (m_nested_procvars in current_settings.modeswitches) then
setprocdef(fprocdef);
{ method pointer or nested proc ? }
if assigned(left) then
begin
expectloc:=LOC_CREGISTER;
firstpass(left);
end;
end;
labelsym :
begin
if not assigned(tlabelsym(symtableentry).asmblocklabel) and
not assigned(tlabelsym(symtableentry).code) then
Message(parser_e_label_outside_proc);
end
else
internalerror(200104143);
end;
end;