mirror of
git://gcc.gnu.org/git/gcc.git
synced 2024-12-24 17:09:15 +08:00
009186e083
* s-stoele.ads, s-stopoo.ads, s-stratt.ads, s-strops.ads, s-unstyp.ads, s-valboo.ads, s-valcha.ads, s-valdec.ads, s-valenu.ads, s-valint.ads, s-vallld.ads, s-vallli.ads, s-valllu.ads, s-valrea.ads, s-valuns.ads, s-valuti.ads, s-valwch.ads, s-veboop.ads, s-vector.ads, s-vercon.ads, s-wchcnv.ads, s-wchcon.ads, s-wchjis.ads, s-wchstw.ads, s-wchwts.ads, s-widboo.ads, s-widcha.ads, s-widenu.ads, s-widlli.ads, s-widllu.ads, s-widwch.ads, s-wwdcha.ads, s-wwdenu.ads, s-wwdwch.ads, system.ads, table.ads, types.ads, system-vms_64.ads, s-crtl-vms64.ads, s-addope.ads, system-darwin-ppc.ads, system-vxworks-x86.ads, s-vxwork-x86.ads, system-linux-ppc.ads, i-vxwork-x86.ads, a-numaux-darwin.ads, a-crbtgo.ads, a-crbtgk.ads, a-crbltr.ads, a-coprnu.ads, a-convec.ads, a-contai.ads, a-coinve.ads, a-cohata.ads, a-cohama.ads, a-cihama.ads, a-cidlli.ads, a-cdlili.ads, a-numaux-libc-x86.ads, a-numaux-vxworks.ads, system-linux-ia64.ads, system-freebsd-x86.ads, system-unixware.ads, system-lynxos-ppc.ads, system-lynxos-x86.ads, system-linux-x86_64.ads, system-tru64.ads, s-vxwork-alpha.ads, system-aix.ads, system-vxworks-sparcv9.ads, system-solaris-x86.ads, system-irix-o32.ads, system-irix-n32.ads, s-parame-hpux.ads, system-hpux.ads, system-vxworks-m68k.ads, s-vxwork-m68k.ads, system-linux-x86.ads, system-vxworks-mips.ads, s-vxwork-mips.ads, system-os2.ads, system-interix.ads, s-vxwork-ppc.ads, system-solaris-sparc.ads, s-vxwork-sparcv9.ads, system-solaris-sparcv9.ads, s-parame-vms.ads, system-vms.ads, s-osinte-mingw.ads, system-mingw.ads, s-parame-vms-restrict.ads, system-vms-zcx.ads, s-parame-ae653.ads, system-vxworks-ppc.ads, s-parame-vxworks.ads, system-vxworks-alpha.ads, interfac-vms.ads, a-numaux-x86.ads, a-astaco.ads, a-chahan.ads, a-charac.ads, a-chlat1.ads, a-chlat9.ads, a-colire.adb, a-colire.ads, a-comlin.ads, a-cwila1.ads, a-cwila9.ads, ada.ads, a-decima.ads, a-exextr.adb, a-filico.ads, a-finali.ads, a-interr.ads, a-ioexce.ads, a-dynpri.ads, a-ngcefu.ads, a-ngcefu.adb, a-ngcoty.adb, a-ngcoty.ads, a-ngelfu.ads, a-nudira.adb, a-nudira.ads, a-nuflra.adb, a-numaux.ads, a-numeri.ads, a-reatim.adb, a-stmaco.ads, a-storio.ads, a-strbou.ads, a-stream.ads, a-strfix.ads, a-string.ads, a-strmap.ads, a-strsea.ads, a-strsup.ads, a-strunb.ads, a-stunau.ads, a-stwibo.ads, a-stwifi.ads, a-stwima.ads, a-stwise.ads, a-stwisu.ads, a-stwiun.ads, a-swmwco.ads, a-textio.ads, csets.ads, debug.ads, dec.ads, g-curexc.ads, get_targ.ads, g-except.ads, system-linux-hppa.ads, a-chacon.ads, a-widcha.ads, a-zchara.ads, system-hpux-ia64.ads, a-ciorma.ads, a-coorma.ads, a-ciormu.ads, a-coormu.ads, a-rbtgso.ads, a-chzla1.ads, a-chzla9.ads, a-stzbou.ads, a-stzfix.ads, a-stzmap.ads, a-stzsea.ads, a-stzsup.ads, a-stzunb.ads, a-swunau.ads, a-szunau.ads, gnat.ads, g-regpat.ads, g-speche.ads, g-spitbo.ads, g-table.ads, g-tasloc.ads, g-trasym.ads, i-c.ads, i-cpoint.ads, i-cpp.ads, i-cstrin.ads, i-fortra.ads, interfac.ads, i-os2err.ads, i-os2lib.ads, i-os2syn.ads, i-os2thr.ads, i-vxwork.ads, output.ads, s-arit64.ads, s-atacco.ads, s-boarop.ads, s-casuti.ads, s-crtl.ads, s-exctab.ads, s-exnint.ads, s-exnllf.ads, s-exnlli.ads, s-expint.ads, s-explli.ads, s-expllu.ads, s-expmod.ads, s-expuns.ads, s-fatflt.ads, s-fatgen.ads, s-fatlfl.ads, s-fatllf.ads, s-fatsfl.ads, s-finimp.ads, s-finroo.ads, s-fore.ads, s-geveop.ads, s-htable.ads, s-imgbiu.ads, s-imgboo.ads, s-imgcha.ads, s-imgdec.ads, s-imgenu.ads, s-imgint.ads, s-imgllb.ads, s-imglld.ads, s-imglli.ads, s-imgllu.ads, s-imgllw.ads, s-imgrea.ads, s-imguns.ads, s-imgwch.ads, s-imgwiu.ads, s-io.ads, s-maccod.ads, s-mantis.ads, s-memcop.ads, s-pack03.ads, s-pack05.ads, s-pack06.ads, s-pack07.ads, s-pack09.ads, s-pack10.ads, s-pack11.ads, s-pack12.ads, s-pack13.ads, s-pack14.ads, s-pack15.ads, s-pack17.ads, s-pack18.ads, s-pack19.ads, s-pack20.ads, s-pack21.ads, s-pack22.ads, s-pack23.ads, s-pack24.ads, s-pack25.ads, s-pack26.ads, s-pack27.ads, s-pack28.ads, s-pack29.ads, s-pack30.ads, s-pack31.ads, s-pack33.ads, s-pack34.ads, s-pack35.ads, s-pack36.ads, s-pack37.ads, s-pack38.ads, s-pack39.ads, s-pack40.ads, s-pack41.ads, s-pack42.ads, s-pack43.ads, s-pack44.ads, s-pack45.ads, s-pack46.ads, s-pack47.ads, s-pack48.ads, s-pack49.ads, s-pack50.ads, s-pack51.ads, s-pack52.ads, s-pack53.ads, s-pack54.ads, s-pack55.ads, s-pack56.ads, s-pack57.ads, s-pack58.ads, s-pack59.ads, s-pack60.ads, s-pack61.ads, s-pack62.ads, s-pack63.ads, s-parame.ads, s-pooglo.ads, s-pooloc.ads, s-poosiz.ads, s-powtab.ads, s-purexc.ads, s-sopco3.ads, s-sopco4.ads, s-sopco5.ads: Minor reformatting: reindent pragma Pure/Preelaborate and always use the no parameter form for consistency. * gnat-style.texi: Document rules about Preelaborate/Pure pragmas. From-SVN: r103855
44 lines
2.8 KiB
Ada
44 lines
2.8 KiB
Ada
------------------------------------------------------------------------------
|
|
-- --
|
|
-- GNAT RUN-TIME COMPONENTS --
|
|
-- --
|
|
-- S Y S T E M . F O R E --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- Copyright (C) 1992-2005 Free Software Foundation, Inc. --
|
|
-- --
|
|
-- GNAT is free software; you can redistribute it and/or modify it under --
|
|
-- terms of the GNU General Public License as published by the Free Soft- --
|
|
-- ware Foundation; either version 2, or (at your option) any later ver- --
|
|
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
|
|
-- OUT 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 distributed with GNAT; see file COPYING. If not, write --
|
|
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
|
|
-- Boston, MA 02110-1301, USA. --
|
|
-- --
|
|
-- As a special exception, if other files instantiate generics from this --
|
|
-- unit, or you link this unit with other files to produce an executable, --
|
|
-- this unit does not by itself cause the resulting executable to be --
|
|
-- covered by the GNU General Public License. This exception does not --
|
|
-- however invalidate any other reasons why the executable file might be --
|
|
-- covered by the GNU Public License. --
|
|
-- --
|
|
-- GNAT was originally developed by the GNAT team at New York University. --
|
|
-- Extensive contributions were provided by Ada Core Technologies Inc. --
|
|
-- --
|
|
------------------------------------------------------------------------------
|
|
|
|
-- This package contains the routine used for the 'Fore attribute
|
|
|
|
package System.Fore is
|
|
pragma Pure;
|
|
|
|
function Fore (Lo, Hi : Long_Long_Float) return Natural;
|
|
-- Compute Fore attribute value for a fixed-point type. The parameters
|
|
-- are the low and high bounds values, converted to Long_Long_Float.
|
|
|
|
end System.Fore;
|