summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2013-12-11 16:54:49 -0700
committerKarl Williamson <public@khwilliamson.com>2014-01-04 13:33:03 -0700
commit87755cd9fa6144875541cb560b7f0487e52c8626 (patch)
treedfabc10c695005f549fa404c824364c68601853d /perl.h
parent3eab96cadf1e1423d9c6e7051d14906c9d419edb (diff)
downloadperl-87755cd9fa6144875541cb560b7f0487e52c8626.tar.gz
perl.h: Move some macro definitions
This places related definitions together in the file.
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl.h b/perl.h
index bb2ed3d9a0..42c4a4c721 100644
--- a/perl.h
+++ b/perl.h
@@ -5212,12 +5212,6 @@ typedef struct am_table_short AMTS;
#ifdef USE_LOCALE_NUMERIC
-#define SET_NUMERIC_STANDARD() \
- set_numeric_standard();
-
-#define SET_NUMERIC_LOCAL() \
- set_numeric_local();
-
/* Returns non-zero If the plain locale pragma without a parameter is in effect
*/
#define IN_LOCALE_RUNTIME (CopHINTS_get(PL_curcop) & HINT_LOCALE)
@@ -5236,6 +5230,12 @@ typedef struct am_table_short AMTS;
(IN_PERL_COMPILETIME ? IN_SOME_LOCALE_FORM_COMPILETIME \
: IN_SOME_LOCALE_FORM_RUNTIME)
+#define SET_NUMERIC_STANDARD() \
+ set_numeric_standard();
+
+#define SET_NUMERIC_LOCAL() \
+ set_numeric_local();
+
#define STORE_NUMERIC_LOCAL_SET_STANDARD() \
bool was_local = PL_numeric_local && IN_LOCALE; \
if (was_local) SET_NUMERIC_STANDARD();