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

* fixed indentation of thlcgjvm.a_load_loc_stack() implementation

Browse Source 
git-svn-id: branches/jvmbackend@18365 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:52:22 +00:00
parent ab5b1fb686
commit 5fd205c130
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/jvm/hlcgcpu.pas
View File

@ -270,20 +270,20 @@ implementation
incstack(list,1);
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;
procedure thlcgjvm.a_loadfpu_const_stack(list: TAsmList; size: tdef; a: double);
begin