From 158e36b9c56bda34b518ce10f8a4b498df4c2e61 Mon Sep 17 00:00:00 2001 From: florian Date: Wed, 6 Jan 2010 10:39:19 +0000 Subject: [PATCH] * white space and indention fixes git-svn-id: trunk@14553 - --- compiler/pdecsub.pas | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas index 4a3db89406..63c63b2a4f 100644 --- a/compiler/pdecsub.pas +++ b/compiler/pdecsub.pas @@ -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)));