瀏覽代碼

formatting

git-svn-id: trunk@16672 -
paul 14 年之前
父節點
當前提交
fc33a2542b
共有 1 個文件被更改,包括 5 次插入5 次删除
  1. 5 5
      compiler/symdef.pas

+ 5 - 5
compiler/symdef.pas

@@ -175,8 +175,8 @@ interface
 
        tabstractrecorddef= class(tstoreddef)
           objname,
-          objrealname: PShortString;
-          symtable : TSymtable;
+          objrealname    : PShortString;
+          symtable       : TSymtable;
           cloneddef      : tabstractrecorddef;
           cloneddefderef : tderef;
           objectoptions  : tobjectoptions;
@@ -2638,10 +2638,10 @@ implementation
 
     function tabstractrecorddef.GetSymtable(t:tGetSymtable):TSymtable;
       begin
-         if t=gs_record then
-         GetSymtable:=symtable
+        if t=gs_record then
+          GetSymtable:=symtable
         else
-         GetSymtable:=nil;
+          GetSymtable:=nil;
       end;