Browse Source

* fixed indentation of thlcgjvm.a_load_loc_stack() implementation

git-svn-id: branches/jvmbackend@18365 -
Jonas Maebe 14 years ago
parent
commit
5fd205c130
1 changed files with 13 additions and 13 deletions
  1. 13 13
      compiler/jvm/hlcgcpu.pas

+ 13 - 13
compiler/jvm/hlcgcpu.pas

@@ -270,20 +270,20 @@ implementation
       incstack(list,1);
       incstack(list,1);
     end;
     end;
 
 
-    procedure thlcgjvm.a_load_loc_stack(list: TAsmList;size: tdef;const loc: tlocation);
-      begin
-        case loc.loc of
-          LOC_REGISTER,LOC_CREGISTER,
-          LOC_FPUREGISTER,LOC_CFPUREGISTER:
-            a_load_reg_stack(list,size,loc.register);
-          LOC_REFERENCE,LOC_CREFERENCE:
-            a_load_ref_stack(list,size,loc.reference,prepare_stack_for_ref(list,loc.reference,false));
-          LOC_CONSTANT:
-            a_load_const_stack(list,size,loc.value,def2regtyp(size));
-          else
-            internalerror(2011010401);
-        end;
+  procedure thlcgjvm.a_load_loc_stack(list: TAsmList;size: tdef;const loc: tlocation);
+    begin
+      case loc.loc of
+        LOC_REGISTER,LOC_CREGISTER,
+        LOC_FPUREGISTER,LOC_CFPUREGISTER:
+          a_load_reg_stack(list,size,loc.register);
+        LOC_REFERENCE,LOC_CREFERENCE:
+          a_load_ref_stack(list,size,loc.reference,prepare_stack_for_ref(list,loc.reference,false));
+        LOC_CONSTANT:
+          a_load_const_stack(list,size,loc.value,def2regtyp(size));
+        else
+          internalerror(2011010401);
       end;
       end;
+    end;
 
 
   procedure thlcgjvm.a_loadfpu_const_stack(list: TAsmList; size: tdef; a: double);
   procedure thlcgjvm.a_loadfpu_const_stack(list: TAsmList; size: tdef; a: double);
     begin
     begin