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

* white space and indention fixes

Browse Source 
git-svn-id: trunk@14553 -
This commit is contained in:
florian 2010-01-06 10:39:19 +00:00
parent bf45b463bc
commit 158e36b9c5
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/pdecsub.pas
View File

@ -847,21 +847,21 @@ implementation
{ test again if assigned, it can be reset to recover }
if not assigned(aprocsym) then
begin
{ create a new procsym and set the real filepos }
current_tokenpos:=procstartfilepos;
{ for operator we have only one procsym for each overloaded
operation }
if (potype=potype_operator) then
begin
Aprocsym:=Tprocsym(symtablestack.top.Find(sp));
if Aprocsym=nil then
Aprocsym:=tprocsym.create('$'+sp);
end
else
aprocsym:=tprocsym.create(orgsp);
symtablestack.top.insert(aprocsym);
end;
begin
{ create a new procsym and set the real filepos }
current_tokenpos:=procstartfilepos;
{ for operator we have only one procsym for each overloaded
operation }
if (potype=potype_operator) then
begin
Aprocsym:=Tprocsym(symtablestack.top.Find(sp));
if Aprocsym=nil then
Aprocsym:=tprocsym.create('$'+sp);
end
else
aprocsym:=tprocsym.create(orgsp);
symtablestack.top.insert(aprocsym);
end;
{ to get the correct symtablelevel we must ignore ObjectSymtables }
st:=nil;
@ -1447,7 +1447,7 @@ begin
end;
pt:=comp_expr(true);
{ message is 1-character long }
if is_constcharnode(pt) then
if is_constcharnode(pt) then
begin
include(pd.procoptions,po_msgstr);
tprocdef(pd).messageinf.str:=stringdup(chr(byte(tordconstnode(pt).value.uvalue and $FF)));