diff options
Diffstat (limited to 'closures/compiler/arm/narmcon.pas')
| -rw-r--r-- | closures/compiler/arm/narmcon.pas | 140 |
1 files changed, 140 insertions, 0 deletions
diff --git a/closures/compiler/arm/narmcon.pas b/closures/compiler/arm/narmcon.pas new file mode 100644 index 0000000000..edfeedc529 --- /dev/null +++ b/closures/compiler/arm/narmcon.pas @@ -0,0 +1,140 @@ +{ + Copyright (c) 2005 by Florian Klaempfl + + Code generation for const nodes on the ARM + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. + + **************************************************************************** +} +unit narmcon; + +{$i fpcdefs.inc} + +interface + + uses + node,ncgcon,cpubase; + + type + tarmrealconstnode = class(tcgrealconstnode) + procedure pass_generate_code;override; + end; + + implementation + + uses + verbose, + globtype,globals, + cpuinfo, + aasmbase,aasmtai,aasmdata, + symconst,symdef, + defutil, + cgbase,cgutils, + procinfo, + ncon; + +{***************************************************************************** + TARMREALCONSTNODE +*****************************************************************************} + + procedure tarmrealconstnode.pass_generate_code; + { I suppose the parser/pass_1 must make sure the generated real } + { constants are actually supported by the target processor? (JM) } + const + floattype2ait:array[tfloattype] of taitype= + (ait_real_32bit,ait_real_64bit,ait_real_80bit,ait_real_80bit,ait_comp_64bit,ait_comp_64bit,ait_real_128bit); + var + lastlabel : tasmlabel; + realait : taitype; + hiloswapped : boolean; + + begin + location_reset_ref(location,LOC_CREFERENCE,def_cgsize(resultdef),4); + lastlabel:=nil; + realait:=floattype2ait[tfloatdef(resultdef).floattype]; + hiloswapped:=is_double_hilo_swapped; + { const already used ? } + if not assigned(lab_real) then + begin + current_asmdata.getjumplabel(lastlabel); + lab_real:=lastlabel; + current_procinfo.aktlocaldata.concat(Tai_label.Create(lastlabel)); + location.reference.symboldata:=current_procinfo.aktlocaldata.last; + case realait of + ait_real_32bit : + begin + current_procinfo.aktlocaldata.concat(Tai_real_32bit.Create(ts32real(value_real))); + { range checking? } + if ((cs_check_range in current_settings.localswitches) or + (cs_check_overflow in current_settings.localswitches)) and + (tai_real_32bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then + Message(parser_e_range_check_error); + end; + + ait_real_64bit : + begin + if hiloswapped then + current_procinfo.aktlocaldata.concat(Tai_real_64bit.Create_hiloswapped(ts64real(value_real))) + else + current_procinfo.aktlocaldata.concat(Tai_real_64bit.Create(ts64real(value_real))); + + { range checking? } + if ((cs_check_range in current_settings.localswitches) or + (cs_check_overflow in current_settings.localswitches)) and + (tai_real_64bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then + Message(parser_e_range_check_error); + end; + + ait_real_80bit : + begin + current_procinfo.aktlocaldata.concat(Tai_real_80bit.Create(value_real,tfloatdef(resultdef).size)); + + { range checking? } + if ((cs_check_range in current_settings.localswitches) or + (cs_check_overflow in current_settings.localswitches)) and + (tai_real_80bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then + Message(parser_e_range_check_error); + end; +{$ifdef cpufloat128} + ait_real_128bit : + begin + current_procinfo.aktlocaldata.concat(Tai_real_128bit.Create(value_real)); + + { range checking? } + if ((cs_check_range in current_settings.localswitches) or + (cs_check_overflow in current_settings.localswitches)) and + (tai_real_128bit(current_procinfo.aktlocaldata.last).value=MathInf.Value) then + Message(parser_e_range_check_error); + end; +{$endif cpufloat128} + + { the round is necessary for native compilers where comp isn't a float } + ait_comp_64bit : + if (value_real>9223372036854775807.0) or (value_real<-9223372036854775808.0) then + message(parser_e_range_check_error) + else + current_procinfo.aktlocaldata.concat(Tai_comp_64bit.Create(round(value_real))); + else + internalerror(2005092401); + end; + end; + location.reference.symbol:=lab_real; + location.reference.base:=NR_R15; + end; + +begin + crealconstnode:=tarmrealconstnode; +end. |