1 /*******************************************************************************
2 Copyright (c) 2016, Michael Wallner <mike@php.net>.
5 Redistribution and use in source and binary forms, with or without
6 modification, are permitted provided that the following conditions are met:
8 * Redistributions of source code must retain the above copyright notice,
9 this list of conditions and the following disclaimer.
10 * Redistributions in binary form must reproduce the above copyright
11 notice, this list of conditions and the following disclaimer in the
12 documentation and/or other materials provided with the distribution.
14 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
15 AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
17 DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
18 FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
20 SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
21 CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
22 OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
23 OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
24 *******************************************************************************/
30 static inline token_t
psi_calc_cmp_eq(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
36 res
->u8
= v1
->i8
== v2
->i8
;
39 res
->u8
= v1
->i8
== v2
->u8
;
42 res
->u8
= v1
->i8
== v2
->i16
;
45 res
->u8
= v1
->i8
== v2
->u16
;
48 res
->u8
= v1
->i8
== v2
->i32
;
51 res
->u8
= v1
->i8
== v2
->u32
;
54 res
->u8
= v1
->i8
== v2
->i64
;
57 res
->u8
= v1
->i8
== v2
->u64
;
61 res
->u8
= v1
->i8
== v2
->i128
;
67 res
->u8
= v1
->i8
== v2
->u128
;
72 res
->u8
= v1
->i8
== v2
->fval
;
75 res
->u8
= v1
->i8
== v2
->dval
;
78 case PSI_T_LONG_DOUBLE
:
79 res
->u8
= v1
->i8
== v2
->ldval
;
91 res
->u8
= v1
->u8
== v2
->i8
;
94 res
->u8
= v1
->u8
== v2
->u8
;
97 res
->u8
= v1
->u8
== v2
->i16
;
100 res
->u8
= v1
->u8
== v2
->u16
;
103 res
->u8
= v1
->u8
== v2
->i32
;
106 res
->u8
= v1
->u8
== v2
->u32
;
109 res
->u8
= v1
->u8
== v2
->i64
;
112 res
->u8
= v1
->u8
== v2
->u64
;
116 res
->u8
= v1
->u8
== v2
->i128
;
122 res
->u8
= v1
->u8
== v2
->u128
;
127 res
->u8
= v1
->u8
== v2
->fval
;
130 res
->u8
= v1
->u8
== v2
->dval
;
132 # if HAVE_LONG_DOUBLE
133 case PSI_T_LONG_DOUBLE
:
134 res
->u8
= v1
->u8
== v2
->ldval
;
146 res
->u8
= v1
->i16
== v2
->i8
;
149 res
->u8
= v1
->i16
== v2
->u8
;
152 res
->u8
= v1
->i16
== v2
->i16
;
155 res
->u8
= v1
->i16
== v2
->u16
;
158 res
->u8
= v1
->i16
== v2
->i32
;
161 res
->u8
= v1
->i16
== v2
->u32
;
164 res
->u8
= v1
->i16
== v2
->i64
;
167 res
->u8
= v1
->i16
== v2
->u64
;
171 res
->u8
= v1
->i16
== v2
->i128
;
177 res
->u8
= v1
->i16
== v2
->u128
;
182 res
->u8
= v1
->i16
== v2
->fval
;
185 res
->u8
= v1
->i16
== v2
->dval
;
187 # if HAVE_LONG_DOUBLE
188 case PSI_T_LONG_DOUBLE
:
189 res
->u8
= v1
->i16
== v2
->ldval
;
201 res
->u8
= v1
->u16
== v2
->i8
;
204 res
->u8
= v1
->u16
== v2
->u8
;
207 res
->u8
= v1
->u16
== v2
->i16
;
210 res
->u8
= v1
->u16
== v2
->u16
;
213 res
->u8
= v1
->u16
== v2
->i32
;
216 res
->u8
= v1
->u16
== v2
->u32
;
219 res
->u8
= v1
->u16
== v2
->i64
;
222 res
->u8
= v1
->u16
== v2
->u64
;
226 res
->u8
= v1
->u16
== v2
->i128
;
232 res
->u8
= v1
->u16
== v2
->u128
;
237 res
->u8
= v1
->u16
== v2
->fval
;
240 res
->u8
= v1
->u16
== v2
->dval
;
242 # if HAVE_LONG_DOUBLE
243 case PSI_T_LONG_DOUBLE
:
244 res
->u8
= v1
->u16
== v2
->ldval
;
256 res
->u8
= v1
->i32
== v2
->i8
;
259 res
->u8
= v1
->i32
== v2
->u8
;
262 res
->u8
= v1
->i32
== v2
->i16
;
265 res
->u8
= v1
->i32
== v2
->u16
;
268 res
->u8
= v1
->i32
== v2
->i32
;
271 res
->u8
= v1
->i32
== v2
->u32
;
274 res
->u8
= v1
->i32
== v2
->i64
;
277 res
->u8
= v1
->i32
== v2
->u64
;
281 res
->u8
= v1
->i32
== v2
->i128
;
287 res
->u8
= v1
->i32
== v2
->u128
;
292 res
->u8
= v1
->i32
== v2
->fval
;
295 res
->u8
= v1
->i32
== v2
->dval
;
297 # if HAVE_LONG_DOUBLE
298 case PSI_T_LONG_DOUBLE
:
299 res
->u8
= v1
->i32
== v2
->ldval
;
311 res
->u8
= v1
->u32
== v2
->i8
;
314 res
->u8
= v1
->u32
== v2
->u8
;
317 res
->u8
= v1
->u32
== v2
->i16
;
320 res
->u8
= v1
->u32
== v2
->u16
;
323 res
->u8
= v1
->u32
== v2
->i32
;
326 res
->u8
= v1
->u32
== v2
->u32
;
329 res
->u8
= v1
->u32
== v2
->i64
;
332 res
->u8
= v1
->u32
== v2
->u64
;
336 res
->u8
= v1
->u32
== v2
->i128
;
342 res
->u8
= v1
->u32
== v2
->u128
;
347 res
->u8
= v1
->u32
== v2
->fval
;
350 res
->u8
= v1
->u32
== v2
->dval
;
352 # if HAVE_LONG_DOUBLE
353 case PSI_T_LONG_DOUBLE
:
354 res
->u8
= v1
->u32
== v2
->ldval
;
366 res
->u8
= v1
->i64
== v2
->i8
;
369 res
->u8
= v1
->i64
== v2
->u8
;
372 res
->u8
= v1
->i64
== v2
->i16
;
375 res
->u8
= v1
->i64
== v2
->u16
;
378 res
->u8
= v1
->i64
== v2
->i32
;
381 res
->u8
= v1
->i64
== v2
->u32
;
384 res
->u8
= v1
->i64
== v2
->i64
;
387 res
->u8
= v1
->i64
== v2
->u64
;
391 res
->u8
= v1
->i64
== v2
->i128
;
397 res
->u8
= v1
->i64
== v2
->u128
;
402 res
->u8
= v1
->i64
== v2
->fval
;
405 res
->u8
= v1
->i64
== v2
->dval
;
407 # if HAVE_LONG_DOUBLE
408 case PSI_T_LONG_DOUBLE
:
409 res
->u8
= v1
->i64
== v2
->ldval
;
421 res
->u8
= v1
->u64
== v2
->i8
;
424 res
->u8
= v1
->u64
== v2
->u8
;
427 res
->u8
= v1
->u64
== v2
->i16
;
430 res
->u8
= v1
->u64
== v2
->u16
;
433 res
->u8
= v1
->u64
== v2
->i32
;
436 res
->u8
= v1
->u64
== v2
->u32
;
439 res
->u8
= v1
->u64
== v2
->i64
;
442 res
->u8
= v1
->u64
== v2
->u64
;
446 res
->u8
= v1
->u64
== v2
->i128
;
452 res
->u8
= v1
->u64
== v2
->u128
;
457 res
->u8
= v1
->u64
== v2
->fval
;
460 res
->u8
= v1
->u64
== v2
->dval
;
462 # if HAVE_LONG_DOUBLE
463 case PSI_T_LONG_DOUBLE
:
464 res
->u8
= v1
->u64
== v2
->ldval
;
477 res
->u8
= v1
->i128
== v2
->i8
;
480 res
->u8
= v1
->i128
== v2
->u8
;
483 res
->u8
= v1
->i128
== v2
->i16
;
486 res
->u8
= v1
->i128
== v2
->u16
;
489 res
->u8
= v1
->i128
== v2
->i32
;
492 res
->u8
= v1
->i128
== v2
->u32
;
495 res
->u8
= v1
->i128
== v2
->i64
;
498 res
->u8
= v1
->i128
== v2
->u64
;
502 res
->u8
= v1
->i128
== v2
->i128
;
508 res
->u8
= v1
->i128
== v2
->u128
;
513 res
->u8
= v1
->i128
== v2
->fval
;
516 res
->u8
= v1
->i128
== v2
->dval
;
518 # if HAVE_LONG_DOUBLE
519 case PSI_T_LONG_DOUBLE
:
520 res
->u8
= v1
->i128
== v2
->ldval
;
535 res
->u8
= v1
->u128
== v2
->i8
;
538 res
->u8
= v1
->u128
== v2
->u8
;
541 res
->u8
= v1
->u128
== v2
->i16
;
544 res
->u8
= v1
->u128
== v2
->u16
;
547 res
->u8
= v1
->u128
== v2
->i32
;
550 res
->u8
= v1
->u128
== v2
->u32
;
553 res
->u8
= v1
->u128
== v2
->i64
;
556 res
->u8
= v1
->u128
== v2
->u64
;
560 res
->u8
= v1
->u128
== v2
->i128
;
566 res
->u8
= v1
->u128
== v2
->u128
;
571 res
->u8
= v1
->u128
== v2
->fval
;
574 res
->u8
= v1
->u128
== v2
->dval
;
576 # if HAVE_LONG_DOUBLE
577 case PSI_T_LONG_DOUBLE
:
578 res
->u8
= v1
->u128
== v2
->ldval
;
592 res
->u8
= v1
->fval
== v2
->i8
;
595 res
->u8
= v1
->fval
== v2
->u8
;
598 res
->u8
= v1
->fval
== v2
->i16
;
601 res
->u8
= v1
->fval
== v2
->u16
;
604 res
->u8
= v1
->fval
== v2
->i32
;
607 res
->u8
= v1
->fval
== v2
->u32
;
610 res
->u8
= v1
->fval
== v2
->i64
;
613 res
->u8
= v1
->fval
== v2
->u64
;
617 res
->u8
= v1
->fval
== v2
->i128
;
623 res
->u8
= v1
->fval
== v2
->u128
;
628 res
->u8
= v1
->fval
== v2
->fval
;
631 res
->u8
= v1
->fval
== v2
->dval
;
633 # if HAVE_LONG_DOUBLE
634 case PSI_T_LONG_DOUBLE
:
635 res
->u8
= v1
->fval
== v2
->ldval
;
647 res
->u8
= v1
->dval
== v2
->i8
;
650 res
->u8
= v1
->dval
== v2
->u8
;
653 res
->u8
= v1
->dval
== v2
->i16
;
656 res
->u8
= v1
->dval
== v2
->u16
;
659 res
->u8
= v1
->dval
== v2
->i32
;
662 res
->u8
= v1
->dval
== v2
->u32
;
665 res
->u8
= v1
->dval
== v2
->i64
;
668 res
->u8
= v1
->dval
== v2
->u64
;
672 res
->u8
= v1
->dval
== v2
->i128
;
678 res
->u8
= v1
->dval
== v2
->u128
;
683 res
->u8
= v1
->dval
== v2
->fval
;
686 res
->u8
= v1
->dval
== v2
->dval
;
688 # if HAVE_LONG_DOUBLE
689 case PSI_T_LONG_DOUBLE
:
690 res
->u8
= v1
->dval
== v2
->ldval
;
700 case PSI_T_LONG_DOUBLE
:
703 res
->u8
= v1
->ldval
== v2
->i8
;
706 res
->u8
= v1
->ldval
== v2
->u8
;
709 res
->u8
= v1
->ldval
== v2
->i16
;
712 res
->u8
= v1
->ldval
== v2
->u16
;
715 res
->u8
= v1
->ldval
== v2
->i32
;
718 res
->u8
= v1
->ldval
== v2
->u32
;
721 res
->u8
= v1
->ldval
== v2
->i64
;
724 res
->u8
= v1
->ldval
== v2
->u64
;
728 res
->u8
= v1
->ldval
== v2
->i128
;
734 res
->u8
= v1
->ldval
== v2
->u128
;
739 res
->u8
= v1
->ldval
== v2
->fval
;
742 res
->u8
= v1
->ldval
== v2
->dval
;
744 # if HAVE_LONG_DOUBLE
745 case PSI_T_LONG_DOUBLE
:
746 res
->u8
= v1
->ldval
== v2
->ldval
;
764 static inline token_t
psi_calc_cmp_ne(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
770 res
->u8
= v1
->i8
!= v2
->i8
;
773 res
->u8
= v1
->i8
!= v2
->u8
;
776 res
->u8
= v1
->i8
!= v2
->i16
;
779 res
->u8
= v1
->i8
!= v2
->u16
;
782 res
->u8
= v1
->i8
!= v2
->i32
;
785 res
->u8
= v1
->i8
!= v2
->u32
;
788 res
->u8
= v1
->i8
!= v2
->i64
;
791 res
->u8
= v1
->i8
!= v2
->u64
;
795 res
->u8
= v1
->i8
!= v2
->i128
;
801 res
->u8
= v1
->i8
!= v2
->u128
;
806 res
->u8
= v1
->i8
!= v2
->fval
;
809 res
->u8
= v1
->i8
!= v2
->dval
;
811 # if HAVE_LONG_DOUBLE
812 case PSI_T_LONG_DOUBLE
:
813 res
->u8
= v1
->i8
!= v2
->ldval
;
825 res
->u8
= v1
->u8
!= v2
->i8
;
828 res
->u8
= v1
->u8
!= v2
->u8
;
831 res
->u8
= v1
->u8
!= v2
->i16
;
834 res
->u8
= v1
->u8
!= v2
->u16
;
837 res
->u8
= v1
->u8
!= v2
->i32
;
840 res
->u8
= v1
->u8
!= v2
->u32
;
843 res
->u8
= v1
->u8
!= v2
->i64
;
846 res
->u8
= v1
->u8
!= v2
->u64
;
850 res
->u8
= v1
->u8
!= v2
->i128
;
856 res
->u8
= v1
->u8
!= v2
->u128
;
861 res
->u8
= v1
->u8
!= v2
->fval
;
864 res
->u8
= v1
->u8
!= v2
->dval
;
866 # if HAVE_LONG_DOUBLE
867 case PSI_T_LONG_DOUBLE
:
868 res
->u8
= v1
->u8
!= v2
->ldval
;
880 res
->u8
= v1
->i16
!= v2
->i8
;
883 res
->u8
= v1
->i16
!= v2
->u8
;
886 res
->u8
= v1
->i16
!= v2
->i16
;
889 res
->u8
= v1
->i16
!= v2
->u16
;
892 res
->u8
= v1
->i16
!= v2
->i32
;
895 res
->u8
= v1
->i16
!= v2
->u32
;
898 res
->u8
= v1
->i16
!= v2
->i64
;
901 res
->u8
= v1
->i16
!= v2
->u64
;
905 res
->u8
= v1
->i16
!= v2
->i128
;
911 res
->u8
= v1
->i16
!= v2
->u128
;
916 res
->u8
= v1
->i16
!= v2
->fval
;
919 res
->u8
= v1
->i16
!= v2
->dval
;
921 # if HAVE_LONG_DOUBLE
922 case PSI_T_LONG_DOUBLE
:
923 res
->u8
= v1
->i16
!= v2
->ldval
;
935 res
->u8
= v1
->u16
!= v2
->i8
;
938 res
->u8
= v1
->u16
!= v2
->u8
;
941 res
->u8
= v1
->u16
!= v2
->i16
;
944 res
->u8
= v1
->u16
!= v2
->u16
;
947 res
->u8
= v1
->u16
!= v2
->i32
;
950 res
->u8
= v1
->u16
!= v2
->u32
;
953 res
->u8
= v1
->u16
!= v2
->i64
;
956 res
->u8
= v1
->u16
!= v2
->u64
;
960 res
->u8
= v1
->u16
!= v2
->i128
;
966 res
->u8
= v1
->u16
!= v2
->u128
;
971 res
->u8
= v1
->u16
!= v2
->fval
;
974 res
->u8
= v1
->u16
!= v2
->dval
;
976 # if HAVE_LONG_DOUBLE
977 case PSI_T_LONG_DOUBLE
:
978 res
->u8
= v1
->u16
!= v2
->ldval
;
990 res
->u8
= v1
->i32
!= v2
->i8
;
993 res
->u8
= v1
->i32
!= v2
->u8
;
996 res
->u8
= v1
->i32
!= v2
->i16
;
999 res
->u8
= v1
->i32
!= v2
->u16
;
1002 res
->u8
= v1
->i32
!= v2
->i32
;
1005 res
->u8
= v1
->i32
!= v2
->u32
;
1008 res
->u8
= v1
->i32
!= v2
->i64
;
1011 res
->u8
= v1
->i32
!= v2
->u64
;
1015 res
->u8
= v1
->i32
!= v2
->i128
;
1021 res
->u8
= v1
->i32
!= v2
->u128
;
1026 res
->u8
= v1
->i32
!= v2
->fval
;
1029 res
->u8
= v1
->i32
!= v2
->dval
;
1031 # if HAVE_LONG_DOUBLE
1032 case PSI_T_LONG_DOUBLE
:
1033 res
->u8
= v1
->i32
!= v2
->ldval
;
1045 res
->u8
= v1
->u32
!= v2
->i8
;
1048 res
->u8
= v1
->u32
!= v2
->u8
;
1051 res
->u8
= v1
->u32
!= v2
->i16
;
1054 res
->u8
= v1
->u32
!= v2
->u16
;
1057 res
->u8
= v1
->u32
!= v2
->i32
;
1060 res
->u8
= v1
->u32
!= v2
->u32
;
1063 res
->u8
= v1
->u32
!= v2
->i64
;
1066 res
->u8
= v1
->u32
!= v2
->u64
;
1070 res
->u8
= v1
->u32
!= v2
->i128
;
1076 res
->u8
= v1
->u32
!= v2
->u128
;
1081 res
->u8
= v1
->u32
!= v2
->fval
;
1084 res
->u8
= v1
->u32
!= v2
->dval
;
1086 # if HAVE_LONG_DOUBLE
1087 case PSI_T_LONG_DOUBLE
:
1088 res
->u8
= v1
->u32
!= v2
->ldval
;
1100 res
->u8
= v1
->i64
!= v2
->i8
;
1103 res
->u8
= v1
->i64
!= v2
->u8
;
1106 res
->u8
= v1
->i64
!= v2
->i16
;
1109 res
->u8
= v1
->i64
!= v2
->u16
;
1112 res
->u8
= v1
->i64
!= v2
->i32
;
1115 res
->u8
= v1
->i64
!= v2
->u32
;
1118 res
->u8
= v1
->i64
!= v2
->i64
;
1121 res
->u8
= v1
->i64
!= v2
->u64
;
1125 res
->u8
= v1
->i64
!= v2
->i128
;
1131 res
->u8
= v1
->i64
!= v2
->u128
;
1136 res
->u8
= v1
->i64
!= v2
->fval
;
1139 res
->u8
= v1
->i64
!= v2
->dval
;
1141 # if HAVE_LONG_DOUBLE
1142 case PSI_T_LONG_DOUBLE
:
1143 res
->u8
= v1
->i64
!= v2
->ldval
;
1155 res
->u8
= v1
->u64
!= v2
->i8
;
1158 res
->u8
= v1
->u64
!= v2
->u8
;
1161 res
->u8
= v1
->u64
!= v2
->i16
;
1164 res
->u8
= v1
->u64
!= v2
->u16
;
1167 res
->u8
= v1
->u64
!= v2
->i32
;
1170 res
->u8
= v1
->u64
!= v2
->u32
;
1173 res
->u8
= v1
->u64
!= v2
->i64
;
1176 res
->u8
= v1
->u64
!= v2
->u64
;
1180 res
->u8
= v1
->u64
!= v2
->i128
;
1186 res
->u8
= v1
->u64
!= v2
->u128
;
1191 res
->u8
= v1
->u64
!= v2
->fval
;
1194 res
->u8
= v1
->u64
!= v2
->dval
;
1196 # if HAVE_LONG_DOUBLE
1197 case PSI_T_LONG_DOUBLE
:
1198 res
->u8
= v1
->u64
!= v2
->ldval
;
1211 res
->u8
= v1
->i128
!= v2
->i8
;
1214 res
->u8
= v1
->i128
!= v2
->u8
;
1217 res
->u8
= v1
->i128
!= v2
->i16
;
1220 res
->u8
= v1
->i128
!= v2
->u16
;
1223 res
->u8
= v1
->i128
!= v2
->i32
;
1226 res
->u8
= v1
->i128
!= v2
->u32
;
1229 res
->u8
= v1
->i128
!= v2
->i64
;
1232 res
->u8
= v1
->i128
!= v2
->u64
;
1236 res
->u8
= v1
->i128
!= v2
->i128
;
1242 res
->u8
= v1
->i128
!= v2
->u128
;
1247 res
->u8
= v1
->i128
!= v2
->fval
;
1250 res
->u8
= v1
->i128
!= v2
->dval
;
1252 # if HAVE_LONG_DOUBLE
1253 case PSI_T_LONG_DOUBLE
:
1254 res
->u8
= v1
->i128
!= v2
->ldval
;
1269 res
->u8
= v1
->u128
!= v2
->i8
;
1272 res
->u8
= v1
->u128
!= v2
->u8
;
1275 res
->u8
= v1
->u128
!= v2
->i16
;
1278 res
->u8
= v1
->u128
!= v2
->u16
;
1281 res
->u8
= v1
->u128
!= v2
->i32
;
1284 res
->u8
= v1
->u128
!= v2
->u32
;
1287 res
->u8
= v1
->u128
!= v2
->i64
;
1290 res
->u8
= v1
->u128
!= v2
->u64
;
1294 res
->u8
= v1
->u128
!= v2
->i128
;
1300 res
->u8
= v1
->u128
!= v2
->u128
;
1305 res
->u8
= v1
->u128
!= v2
->fval
;
1308 res
->u8
= v1
->u128
!= v2
->dval
;
1310 # if HAVE_LONG_DOUBLE
1311 case PSI_T_LONG_DOUBLE
:
1312 res
->u8
= v1
->u128
!= v2
->ldval
;
1326 res
->u8
= v1
->fval
!= v2
->i8
;
1329 res
->u8
= v1
->fval
!= v2
->u8
;
1332 res
->u8
= v1
->fval
!= v2
->i16
;
1335 res
->u8
= v1
->fval
!= v2
->u16
;
1338 res
->u8
= v1
->fval
!= v2
->i32
;
1341 res
->u8
= v1
->fval
!= v2
->u32
;
1344 res
->u8
= v1
->fval
!= v2
->i64
;
1347 res
->u8
= v1
->fval
!= v2
->u64
;
1351 res
->u8
= v1
->fval
!= v2
->i128
;
1357 res
->u8
= v1
->fval
!= v2
->u128
;
1362 res
->u8
= v1
->fval
!= v2
->fval
;
1365 res
->u8
= v1
->fval
!= v2
->dval
;
1367 # if HAVE_LONG_DOUBLE
1368 case PSI_T_LONG_DOUBLE
:
1369 res
->u8
= v1
->fval
!= v2
->ldval
;
1381 res
->u8
= v1
->dval
!= v2
->i8
;
1384 res
->u8
= v1
->dval
!= v2
->u8
;
1387 res
->u8
= v1
->dval
!= v2
->i16
;
1390 res
->u8
= v1
->dval
!= v2
->u16
;
1393 res
->u8
= v1
->dval
!= v2
->i32
;
1396 res
->u8
= v1
->dval
!= v2
->u32
;
1399 res
->u8
= v1
->dval
!= v2
->i64
;
1402 res
->u8
= v1
->dval
!= v2
->u64
;
1406 res
->u8
= v1
->dval
!= v2
->i128
;
1412 res
->u8
= v1
->dval
!= v2
->u128
;
1417 res
->u8
= v1
->dval
!= v2
->fval
;
1420 res
->u8
= v1
->dval
!= v2
->dval
;
1422 # if HAVE_LONG_DOUBLE
1423 case PSI_T_LONG_DOUBLE
:
1424 res
->u8
= v1
->dval
!= v2
->ldval
;
1433 #if HAVE_LONG_DOUBLE
1434 case PSI_T_LONG_DOUBLE
:
1437 res
->u8
= v1
->ldval
!= v2
->i8
;
1440 res
->u8
= v1
->ldval
!= v2
->u8
;
1443 res
->u8
= v1
->ldval
!= v2
->i16
;
1446 res
->u8
= v1
->ldval
!= v2
->u16
;
1449 res
->u8
= v1
->ldval
!= v2
->i32
;
1452 res
->u8
= v1
->ldval
!= v2
->u32
;
1455 res
->u8
= v1
->ldval
!= v2
->i64
;
1458 res
->u8
= v1
->ldval
!= v2
->u64
;
1462 res
->u8
= v1
->ldval
!= v2
->i128
;
1468 res
->u8
= v1
->ldval
!= v2
->u128
;
1473 res
->u8
= v1
->ldval
!= v2
->fval
;
1476 res
->u8
= v1
->ldval
!= v2
->dval
;
1478 # if HAVE_LONG_DOUBLE
1479 case PSI_T_LONG_DOUBLE
:
1480 res
->u8
= v1
->ldval
!= v2
->ldval
;
1498 static inline token_t
psi_calc_cmp_lt(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
1504 res
->u8
= v1
->i8
< v2
->i8
;
1507 res
->u8
= v1
->i8
< v2
->u8
;
1510 res
->u8
= v1
->i8
< v2
->i16
;
1513 res
->u8
= v1
->i8
< v2
->u16
;
1516 res
->u8
= v1
->i8
< v2
->i32
;
1519 res
->u8
= v1
->i8
< v2
->u32
;
1522 res
->u8
= v1
->i8
< v2
->i64
;
1525 res
->u8
= v1
->i8
< v2
->u64
;
1529 res
->u8
= v1
->i8
< v2
->i128
;
1535 res
->u8
= v1
->i8
< v2
->u128
;
1540 res
->u8
= v1
->i8
< v2
->fval
;
1543 res
->u8
= v1
->i8
< v2
->dval
;
1545 # if HAVE_LONG_DOUBLE
1546 case PSI_T_LONG_DOUBLE
:
1547 res
->u8
= v1
->i8
< v2
->ldval
;
1559 res
->u8
= v1
->u8
< v2
->i8
;
1562 res
->u8
= v1
->u8
< v2
->u8
;
1565 res
->u8
= v1
->u8
< v2
->i16
;
1568 res
->u8
= v1
->u8
< v2
->u16
;
1571 res
->u8
= v1
->u8
< v2
->i32
;
1574 res
->u8
= v1
->u8
< v2
->u32
;
1577 res
->u8
= v1
->u8
< v2
->i64
;
1580 res
->u8
= v1
->u8
< v2
->u64
;
1584 res
->u8
= v1
->u8
< v2
->i128
;
1590 res
->u8
= v1
->u8
< v2
->u128
;
1595 res
->u8
= v1
->u8
< v2
->fval
;
1598 res
->u8
= v1
->u8
< v2
->dval
;
1600 # if HAVE_LONG_DOUBLE
1601 case PSI_T_LONG_DOUBLE
:
1602 res
->u8
= v1
->u8
< v2
->ldval
;
1614 res
->u8
= v1
->i16
< v2
->i8
;
1617 res
->u8
= v1
->i16
< v2
->u8
;
1620 res
->u8
= v1
->i16
< v2
->i16
;
1623 res
->u8
= v1
->i16
< v2
->u16
;
1626 res
->u8
= v1
->i16
< v2
->i32
;
1629 res
->u8
= v1
->i16
< v2
->u32
;
1632 res
->u8
= v1
->i16
< v2
->i64
;
1635 res
->u8
= v1
->i16
< v2
->u64
;
1639 res
->u8
= v1
->i16
< v2
->i128
;
1645 res
->u8
= v1
->i16
< v2
->u128
;
1650 res
->u8
= v1
->i16
< v2
->fval
;
1653 res
->u8
= v1
->i16
< v2
->dval
;
1655 # if HAVE_LONG_DOUBLE
1656 case PSI_T_LONG_DOUBLE
:
1657 res
->u8
= v1
->i16
< v2
->ldval
;
1669 res
->u8
= v1
->u16
< v2
->i8
;
1672 res
->u8
= v1
->u16
< v2
->u8
;
1675 res
->u8
= v1
->u16
< v2
->i16
;
1678 res
->u8
= v1
->u16
< v2
->u16
;
1681 res
->u8
= v1
->u16
< v2
->i32
;
1684 res
->u8
= v1
->u16
< v2
->u32
;
1687 res
->u8
= v1
->u16
< v2
->i64
;
1690 res
->u8
= v1
->u16
< v2
->u64
;
1694 res
->u8
= v1
->u16
< v2
->i128
;
1700 res
->u8
= v1
->u16
< v2
->u128
;
1705 res
->u8
= v1
->u16
< v2
->fval
;
1708 res
->u8
= v1
->u16
< v2
->dval
;
1710 # if HAVE_LONG_DOUBLE
1711 case PSI_T_LONG_DOUBLE
:
1712 res
->u8
= v1
->u16
< v2
->ldval
;
1724 res
->u8
= v1
->i32
< v2
->i8
;
1727 res
->u8
= v1
->i32
< v2
->u8
;
1730 res
->u8
= v1
->i32
< v2
->i16
;
1733 res
->u8
= v1
->i32
< v2
->u16
;
1736 res
->u8
= v1
->i32
< v2
->i32
;
1739 res
->u8
= v1
->i32
< v2
->u32
;
1742 res
->u8
= v1
->i32
< v2
->i64
;
1745 res
->u8
= v1
->i32
< v2
->u64
;
1749 res
->u8
= v1
->i32
< v2
->i128
;
1755 res
->u8
= v1
->i32
< v2
->u128
;
1760 res
->u8
= v1
->i32
< v2
->fval
;
1763 res
->u8
= v1
->i32
< v2
->dval
;
1765 # if HAVE_LONG_DOUBLE
1766 case PSI_T_LONG_DOUBLE
:
1767 res
->u8
= v1
->i32
< v2
->ldval
;
1779 res
->u8
= v1
->u32
< v2
->i8
;
1782 res
->u8
= v1
->u32
< v2
->u8
;
1785 res
->u8
= v1
->u32
< v2
->i16
;
1788 res
->u8
= v1
->u32
< v2
->u16
;
1791 res
->u8
= v1
->u32
< v2
->i32
;
1794 res
->u8
= v1
->u32
< v2
->u32
;
1797 res
->u8
= v1
->u32
< v2
->i64
;
1800 res
->u8
= v1
->u32
< v2
->u64
;
1804 res
->u8
= v1
->u32
< v2
->i128
;
1810 res
->u8
= v1
->u32
< v2
->u128
;
1815 res
->u8
= v1
->u32
< v2
->fval
;
1818 res
->u8
= v1
->u32
< v2
->dval
;
1820 # if HAVE_LONG_DOUBLE
1821 case PSI_T_LONG_DOUBLE
:
1822 res
->u8
= v1
->u32
< v2
->ldval
;
1834 res
->u8
= v1
->i64
< v2
->i8
;
1837 res
->u8
= v1
->i64
< v2
->u8
;
1840 res
->u8
= v1
->i64
< v2
->i16
;
1843 res
->u8
= v1
->i64
< v2
->u16
;
1846 res
->u8
= v1
->i64
< v2
->i32
;
1849 res
->u8
= v1
->i64
< v2
->u32
;
1852 res
->u8
= v1
->i64
< v2
->i64
;
1855 res
->u8
= v1
->i64
< v2
->u64
;
1859 res
->u8
= v1
->i64
< v2
->i128
;
1865 res
->u8
= v1
->i64
< v2
->u128
;
1870 res
->u8
= v1
->i64
< v2
->fval
;
1873 res
->u8
= v1
->i64
< v2
->dval
;
1875 # if HAVE_LONG_DOUBLE
1876 case PSI_T_LONG_DOUBLE
:
1877 res
->u8
= v1
->i64
< v2
->ldval
;
1889 res
->u8
= v1
->u64
< v2
->i8
;
1892 res
->u8
= v1
->u64
< v2
->u8
;
1895 res
->u8
= v1
->u64
< v2
->i16
;
1898 res
->u8
= v1
->u64
< v2
->u16
;
1901 res
->u8
= v1
->u64
< v2
->i32
;
1904 res
->u8
= v1
->u64
< v2
->u32
;
1907 res
->u8
= v1
->u64
< v2
->i64
;
1910 res
->u8
= v1
->u64
< v2
->u64
;
1914 res
->u8
= v1
->u64
< v2
->i128
;
1920 res
->u8
= v1
->u64
< v2
->u128
;
1925 res
->u8
= v1
->u64
< v2
->fval
;
1928 res
->u8
= v1
->u64
< v2
->dval
;
1930 # if HAVE_LONG_DOUBLE
1931 case PSI_T_LONG_DOUBLE
:
1932 res
->u8
= v1
->u64
< v2
->ldval
;
1945 res
->u8
= v1
->i128
< v2
->i8
;
1948 res
->u8
= v1
->i128
< v2
->u8
;
1951 res
->u8
= v1
->i128
< v2
->i16
;
1954 res
->u8
= v1
->i128
< v2
->u16
;
1957 res
->u8
= v1
->i128
< v2
->i32
;
1960 res
->u8
= v1
->i128
< v2
->u32
;
1963 res
->u8
= v1
->i128
< v2
->i64
;
1966 res
->u8
= v1
->i128
< v2
->u64
;
1970 res
->u8
= v1
->i128
< v2
->i128
;
1976 res
->u8
= v1
->i128
< v2
->u128
;
1981 res
->u8
= v1
->i128
< v2
->fval
;
1984 res
->u8
= v1
->i128
< v2
->dval
;
1986 # if HAVE_LONG_DOUBLE
1987 case PSI_T_LONG_DOUBLE
:
1988 res
->u8
= v1
->i128
< v2
->ldval
;
2003 res
->u8
= v1
->u128
< v2
->i8
;
2006 res
->u8
= v1
->u128
< v2
->u8
;
2009 res
->u8
= v1
->u128
< v2
->i16
;
2012 res
->u8
= v1
->u128
< v2
->u16
;
2015 res
->u8
= v1
->u128
< v2
->i32
;
2018 res
->u8
= v1
->u128
< v2
->u32
;
2021 res
->u8
= v1
->u128
< v2
->i64
;
2024 res
->u8
= v1
->u128
< v2
->u64
;
2028 res
->u8
= v1
->u128
< v2
->i128
;
2034 res
->u8
= v1
->u128
< v2
->u128
;
2039 res
->u8
= v1
->u128
< v2
->fval
;
2042 res
->u8
= v1
->u128
< v2
->dval
;
2044 # if HAVE_LONG_DOUBLE
2045 case PSI_T_LONG_DOUBLE
:
2046 res
->u8
= v1
->u128
< v2
->ldval
;
2060 res
->u8
= v1
->fval
< v2
->i8
;
2063 res
->u8
= v1
->fval
< v2
->u8
;
2066 res
->u8
= v1
->fval
< v2
->i16
;
2069 res
->u8
= v1
->fval
< v2
->u16
;
2072 res
->u8
= v1
->fval
< v2
->i32
;
2075 res
->u8
= v1
->fval
< v2
->u32
;
2078 res
->u8
= v1
->fval
< v2
->i64
;
2081 res
->u8
= v1
->fval
< v2
->u64
;
2085 res
->u8
= v1
->fval
< v2
->i128
;
2091 res
->u8
= v1
->fval
< v2
->u128
;
2096 res
->u8
= v1
->fval
< v2
->fval
;
2099 res
->u8
= v1
->fval
< v2
->dval
;
2101 # if HAVE_LONG_DOUBLE
2102 case PSI_T_LONG_DOUBLE
:
2103 res
->u8
= v1
->fval
< v2
->ldval
;
2115 res
->u8
= v1
->dval
< v2
->i8
;
2118 res
->u8
= v1
->dval
< v2
->u8
;
2121 res
->u8
= v1
->dval
< v2
->i16
;
2124 res
->u8
= v1
->dval
< v2
->u16
;
2127 res
->u8
= v1
->dval
< v2
->i32
;
2130 res
->u8
= v1
->dval
< v2
->u32
;
2133 res
->u8
= v1
->dval
< v2
->i64
;
2136 res
->u8
= v1
->dval
< v2
->u64
;
2140 res
->u8
= v1
->dval
< v2
->i128
;
2146 res
->u8
= v1
->dval
< v2
->u128
;
2151 res
->u8
= v1
->dval
< v2
->fval
;
2154 res
->u8
= v1
->dval
< v2
->dval
;
2156 # if HAVE_LONG_DOUBLE
2157 case PSI_T_LONG_DOUBLE
:
2158 res
->u8
= v1
->dval
< v2
->ldval
;
2167 #if HAVE_LONG_DOUBLE
2168 case PSI_T_LONG_DOUBLE
:
2171 res
->u8
= v1
->ldval
< v2
->i8
;
2174 res
->u8
= v1
->ldval
< v2
->u8
;
2177 res
->u8
= v1
->ldval
< v2
->i16
;
2180 res
->u8
= v1
->ldval
< v2
->u16
;
2183 res
->u8
= v1
->ldval
< v2
->i32
;
2186 res
->u8
= v1
->ldval
< v2
->u32
;
2189 res
->u8
= v1
->ldval
< v2
->i64
;
2192 res
->u8
= v1
->ldval
< v2
->u64
;
2196 res
->u8
= v1
->ldval
< v2
->i128
;
2202 res
->u8
= v1
->ldval
< v2
->u128
;
2207 res
->u8
= v1
->ldval
< v2
->fval
;
2210 res
->u8
= v1
->ldval
< v2
->dval
;
2212 # if HAVE_LONG_DOUBLE
2213 case PSI_T_LONG_DOUBLE
:
2214 res
->u8
= v1
->ldval
< v2
->ldval
;
2232 static inline token_t
psi_calc_cmp_gt(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
2238 res
->u8
= v1
->i8
> v2
->i8
;
2241 res
->u8
= v1
->i8
> v2
->u8
;
2244 res
->u8
= v1
->i8
> v2
->i16
;
2247 res
->u8
= v1
->i8
> v2
->u16
;
2250 res
->u8
= v1
->i8
> v2
->i32
;
2253 res
->u8
= v1
->i8
> v2
->u32
;
2256 res
->u8
= v1
->i8
> v2
->i64
;
2259 res
->u8
= v1
->i8
> v2
->u64
;
2263 res
->u8
= v1
->i8
> v2
->i128
;
2269 res
->u8
= v1
->i8
> v2
->u128
;
2274 res
->u8
= v1
->i8
> v2
->fval
;
2277 res
->u8
= v1
->i8
> v2
->dval
;
2279 # if HAVE_LONG_DOUBLE
2280 case PSI_T_LONG_DOUBLE
:
2281 res
->u8
= v1
->i8
> v2
->ldval
;
2293 res
->u8
= v1
->u8
> v2
->i8
;
2296 res
->u8
= v1
->u8
> v2
->u8
;
2299 res
->u8
= v1
->u8
> v2
->i16
;
2302 res
->u8
= v1
->u8
> v2
->u16
;
2305 res
->u8
= v1
->u8
> v2
->i32
;
2308 res
->u8
= v1
->u8
> v2
->u32
;
2311 res
->u8
= v1
->u8
> v2
->i64
;
2314 res
->u8
= v1
->u8
> v2
->u64
;
2318 res
->u8
= v1
->u8
> v2
->i128
;
2324 res
->u8
= v1
->u8
> v2
->u128
;
2329 res
->u8
= v1
->u8
> v2
->fval
;
2332 res
->u8
= v1
->u8
> v2
->dval
;
2334 # if HAVE_LONG_DOUBLE
2335 case PSI_T_LONG_DOUBLE
:
2336 res
->u8
= v1
->u8
> v2
->ldval
;
2348 res
->u8
= v1
->i16
> v2
->i8
;
2351 res
->u8
= v1
->i16
> v2
->u8
;
2354 res
->u8
= v1
->i16
> v2
->i16
;
2357 res
->u8
= v1
->i16
> v2
->u16
;
2360 res
->u8
= v1
->i16
> v2
->i32
;
2363 res
->u8
= v1
->i16
> v2
->u32
;
2366 res
->u8
= v1
->i16
> v2
->i64
;
2369 res
->u8
= v1
->i16
> v2
->u64
;
2373 res
->u8
= v1
->i16
> v2
->i128
;
2379 res
->u8
= v1
->i16
> v2
->u128
;
2384 res
->u8
= v1
->i16
> v2
->fval
;
2387 res
->u8
= v1
->i16
> v2
->dval
;
2389 # if HAVE_LONG_DOUBLE
2390 case PSI_T_LONG_DOUBLE
:
2391 res
->u8
= v1
->i16
> v2
->ldval
;
2403 res
->u8
= v1
->u16
> v2
->i8
;
2406 res
->u8
= v1
->u16
> v2
->u8
;
2409 res
->u8
= v1
->u16
> v2
->i16
;
2412 res
->u8
= v1
->u16
> v2
->u16
;
2415 res
->u8
= v1
->u16
> v2
->i32
;
2418 res
->u8
= v1
->u16
> v2
->u32
;
2421 res
->u8
= v1
->u16
> v2
->i64
;
2424 res
->u8
= v1
->u16
> v2
->u64
;
2428 res
->u8
= v1
->u16
> v2
->i128
;
2434 res
->u8
= v1
->u16
> v2
->u128
;
2439 res
->u8
= v1
->u16
> v2
->fval
;
2442 res
->u8
= v1
->u16
> v2
->dval
;
2444 # if HAVE_LONG_DOUBLE
2445 case PSI_T_LONG_DOUBLE
:
2446 res
->u8
= v1
->u16
> v2
->ldval
;
2458 res
->u8
= v1
->i32
> v2
->i8
;
2461 res
->u8
= v1
->i32
> v2
->u8
;
2464 res
->u8
= v1
->i32
> v2
->i16
;
2467 res
->u8
= v1
->i32
> v2
->u16
;
2470 res
->u8
= v1
->i32
> v2
->i32
;
2473 res
->u8
= v1
->i32
> v2
->u32
;
2476 res
->u8
= v1
->i32
> v2
->i64
;
2479 res
->u8
= v1
->i32
> v2
->u64
;
2483 res
->u8
= v1
->i32
> v2
->i128
;
2489 res
->u8
= v1
->i32
> v2
->u128
;
2494 res
->u8
= v1
->i32
> v2
->fval
;
2497 res
->u8
= v1
->i32
> v2
->dval
;
2499 # if HAVE_LONG_DOUBLE
2500 case PSI_T_LONG_DOUBLE
:
2501 res
->u8
= v1
->i32
> v2
->ldval
;
2513 res
->u8
= v1
->u32
> v2
->i8
;
2516 res
->u8
= v1
->u32
> v2
->u8
;
2519 res
->u8
= v1
->u32
> v2
->i16
;
2522 res
->u8
= v1
->u32
> v2
->u16
;
2525 res
->u8
= v1
->u32
> v2
->i32
;
2528 res
->u8
= v1
->u32
> v2
->u32
;
2531 res
->u8
= v1
->u32
> v2
->i64
;
2534 res
->u8
= v1
->u32
> v2
->u64
;
2538 res
->u8
= v1
->u32
> v2
->i128
;
2544 res
->u8
= v1
->u32
> v2
->u128
;
2549 res
->u8
= v1
->u32
> v2
->fval
;
2552 res
->u8
= v1
->u32
> v2
->dval
;
2554 # if HAVE_LONG_DOUBLE
2555 case PSI_T_LONG_DOUBLE
:
2556 res
->u8
= v1
->u32
> v2
->ldval
;
2568 res
->u8
= v1
->i64
> v2
->i8
;
2571 res
->u8
= v1
->i64
> v2
->u8
;
2574 res
->u8
= v1
->i64
> v2
->i16
;
2577 res
->u8
= v1
->i64
> v2
->u16
;
2580 res
->u8
= v1
->i64
> v2
->i32
;
2583 res
->u8
= v1
->i64
> v2
->u32
;
2586 res
->u8
= v1
->i64
> v2
->i64
;
2589 res
->u8
= v1
->i64
> v2
->u64
;
2593 res
->u8
= v1
->i64
> v2
->i128
;
2599 res
->u8
= v1
->i64
> v2
->u128
;
2604 res
->u8
= v1
->i64
> v2
->fval
;
2607 res
->u8
= v1
->i64
> v2
->dval
;
2609 # if HAVE_LONG_DOUBLE
2610 case PSI_T_LONG_DOUBLE
:
2611 res
->u8
= v1
->i64
> v2
->ldval
;
2623 res
->u8
= v1
->u64
> v2
->i8
;
2626 res
->u8
= v1
->u64
> v2
->u8
;
2629 res
->u8
= v1
->u64
> v2
->i16
;
2632 res
->u8
= v1
->u64
> v2
->u16
;
2635 res
->u8
= v1
->u64
> v2
->i32
;
2638 res
->u8
= v1
->u64
> v2
->u32
;
2641 res
->u8
= v1
->u64
> v2
->i64
;
2644 res
->u8
= v1
->u64
> v2
->u64
;
2648 res
->u8
= v1
->u64
> v2
->i128
;
2654 res
->u8
= v1
->u64
> v2
->u128
;
2659 res
->u8
= v1
->u64
> v2
->fval
;
2662 res
->u8
= v1
->u64
> v2
->dval
;
2664 # if HAVE_LONG_DOUBLE
2665 case PSI_T_LONG_DOUBLE
:
2666 res
->u8
= v1
->u64
> v2
->ldval
;
2679 res
->u8
= v1
->i128
> v2
->i8
;
2682 res
->u8
= v1
->i128
> v2
->u8
;
2685 res
->u8
= v1
->i128
> v2
->i16
;
2688 res
->u8
= v1
->i128
> v2
->u16
;
2691 res
->u8
= v1
->i128
> v2
->i32
;
2694 res
->u8
= v1
->i128
> v2
->u32
;
2697 res
->u8
= v1
->i128
> v2
->i64
;
2700 res
->u8
= v1
->i128
> v2
->u64
;
2704 res
->u8
= v1
->i128
> v2
->i128
;
2710 res
->u8
= v1
->i128
> v2
->u128
;
2715 res
->u8
= v1
->i128
> v2
->fval
;
2718 res
->u8
= v1
->i128
> v2
->dval
;
2720 # if HAVE_LONG_DOUBLE
2721 case PSI_T_LONG_DOUBLE
:
2722 res
->u8
= v1
->i128
> v2
->ldval
;
2737 res
->u8
= v1
->u128
> v2
->i8
;
2740 res
->u8
= v1
->u128
> v2
->u8
;
2743 res
->u8
= v1
->u128
> v2
->i16
;
2746 res
->u8
= v1
->u128
> v2
->u16
;
2749 res
->u8
= v1
->u128
> v2
->i32
;
2752 res
->u8
= v1
->u128
> v2
->u32
;
2755 res
->u8
= v1
->u128
> v2
->i64
;
2758 res
->u8
= v1
->u128
> v2
->u64
;
2762 res
->u8
= v1
->u128
> v2
->i128
;
2768 res
->u8
= v1
->u128
> v2
->u128
;
2773 res
->u8
= v1
->u128
> v2
->fval
;
2776 res
->u8
= v1
->u128
> v2
->dval
;
2778 # if HAVE_LONG_DOUBLE
2779 case PSI_T_LONG_DOUBLE
:
2780 res
->u8
= v1
->u128
> v2
->ldval
;
2794 res
->u8
= v1
->fval
> v2
->i8
;
2797 res
->u8
= v1
->fval
> v2
->u8
;
2800 res
->u8
= v1
->fval
> v2
->i16
;
2803 res
->u8
= v1
->fval
> v2
->u16
;
2806 res
->u8
= v1
->fval
> v2
->i32
;
2809 res
->u8
= v1
->fval
> v2
->u32
;
2812 res
->u8
= v1
->fval
> v2
->i64
;
2815 res
->u8
= v1
->fval
> v2
->u64
;
2819 res
->u8
= v1
->fval
> v2
->i128
;
2825 res
->u8
= v1
->fval
> v2
->u128
;
2830 res
->u8
= v1
->fval
> v2
->fval
;
2833 res
->u8
= v1
->fval
> v2
->dval
;
2835 # if HAVE_LONG_DOUBLE
2836 case PSI_T_LONG_DOUBLE
:
2837 res
->u8
= v1
->fval
> v2
->ldval
;
2849 res
->u8
= v1
->dval
> v2
->i8
;
2852 res
->u8
= v1
->dval
> v2
->u8
;
2855 res
->u8
= v1
->dval
> v2
->i16
;
2858 res
->u8
= v1
->dval
> v2
->u16
;
2861 res
->u8
= v1
->dval
> v2
->i32
;
2864 res
->u8
= v1
->dval
> v2
->u32
;
2867 res
->u8
= v1
->dval
> v2
->i64
;
2870 res
->u8
= v1
->dval
> v2
->u64
;
2874 res
->u8
= v1
->dval
> v2
->i128
;
2880 res
->u8
= v1
->dval
> v2
->u128
;
2885 res
->u8
= v1
->dval
> v2
->fval
;
2888 res
->u8
= v1
->dval
> v2
->dval
;
2890 # if HAVE_LONG_DOUBLE
2891 case PSI_T_LONG_DOUBLE
:
2892 res
->u8
= v1
->dval
> v2
->ldval
;
2901 #if HAVE_LONG_DOUBLE
2902 case PSI_T_LONG_DOUBLE
:
2905 res
->u8
= v1
->ldval
> v2
->i8
;
2908 res
->u8
= v1
->ldval
> v2
->u8
;
2911 res
->u8
= v1
->ldval
> v2
->i16
;
2914 res
->u8
= v1
->ldval
> v2
->u16
;
2917 res
->u8
= v1
->ldval
> v2
->i32
;
2920 res
->u8
= v1
->ldval
> v2
->u32
;
2923 res
->u8
= v1
->ldval
> v2
->i64
;
2926 res
->u8
= v1
->ldval
> v2
->u64
;
2930 res
->u8
= v1
->ldval
> v2
->i128
;
2936 res
->u8
= v1
->ldval
> v2
->u128
;
2941 res
->u8
= v1
->ldval
> v2
->fval
;
2944 res
->u8
= v1
->ldval
> v2
->dval
;
2946 # if HAVE_LONG_DOUBLE
2947 case PSI_T_LONG_DOUBLE
:
2948 res
->u8
= v1
->ldval
> v2
->ldval
;
2966 static inline token_t
psi_calc_cmp_le(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
2972 res
->u8
= v1
->i8
<= v2
->i8
;
2975 res
->u8
= v1
->i8
<= v2
->u8
;
2978 res
->u8
= v1
->i8
<= v2
->i16
;
2981 res
->u8
= v1
->i8
<= v2
->u16
;
2984 res
->u8
= v1
->i8
<= v2
->i32
;
2987 res
->u8
= v1
->i8
<= v2
->u32
;
2990 res
->u8
= v1
->i8
<= v2
->i64
;
2993 res
->u8
= v1
->i8
<= v2
->u64
;
2997 res
->u8
= v1
->i8
<= v2
->i128
;
3003 res
->u8
= v1
->i8
<= v2
->u128
;
3008 res
->u8
= v1
->i8
<= v2
->fval
;
3011 res
->u8
= v1
->i8
<= v2
->dval
;
3013 # if HAVE_LONG_DOUBLE
3014 case PSI_T_LONG_DOUBLE
:
3015 res
->u8
= v1
->i8
<= v2
->ldval
;
3027 res
->u8
= v1
->u8
<= v2
->i8
;
3030 res
->u8
= v1
->u8
<= v2
->u8
;
3033 res
->u8
= v1
->u8
<= v2
->i16
;
3036 res
->u8
= v1
->u8
<= v2
->u16
;
3039 res
->u8
= v1
->u8
<= v2
->i32
;
3042 res
->u8
= v1
->u8
<= v2
->u32
;
3045 res
->u8
= v1
->u8
<= v2
->i64
;
3048 res
->u8
= v1
->u8
<= v2
->u64
;
3052 res
->u8
= v1
->u8
<= v2
->i128
;
3058 res
->u8
= v1
->u8
<= v2
->u128
;
3063 res
->u8
= v1
->u8
<= v2
->fval
;
3066 res
->u8
= v1
->u8
<= v2
->dval
;
3068 # if HAVE_LONG_DOUBLE
3069 case PSI_T_LONG_DOUBLE
:
3070 res
->u8
= v1
->u8
<= v2
->ldval
;
3082 res
->u8
= v1
->i16
<= v2
->i8
;
3085 res
->u8
= v1
->i16
<= v2
->u8
;
3088 res
->u8
= v1
->i16
<= v2
->i16
;
3091 res
->u8
= v1
->i16
<= v2
->u16
;
3094 res
->u8
= v1
->i16
<= v2
->i32
;
3097 res
->u8
= v1
->i16
<= v2
->u32
;
3100 res
->u8
= v1
->i16
<= v2
->i64
;
3103 res
->u8
= v1
->i16
<= v2
->u64
;
3107 res
->u8
= v1
->i16
<= v2
->i128
;
3113 res
->u8
= v1
->i16
<= v2
->u128
;
3118 res
->u8
= v1
->i16
<= v2
->fval
;
3121 res
->u8
= v1
->i16
<= v2
->dval
;
3123 # if HAVE_LONG_DOUBLE
3124 case PSI_T_LONG_DOUBLE
:
3125 res
->u8
= v1
->i16
<= v2
->ldval
;
3137 res
->u8
= v1
->u16
<= v2
->i8
;
3140 res
->u8
= v1
->u16
<= v2
->u8
;
3143 res
->u8
= v1
->u16
<= v2
->i16
;
3146 res
->u8
= v1
->u16
<= v2
->u16
;
3149 res
->u8
= v1
->u16
<= v2
->i32
;
3152 res
->u8
= v1
->u16
<= v2
->u32
;
3155 res
->u8
= v1
->u16
<= v2
->i64
;
3158 res
->u8
= v1
->u16
<= v2
->u64
;
3162 res
->u8
= v1
->u16
<= v2
->i128
;
3168 res
->u8
= v1
->u16
<= v2
->u128
;
3173 res
->u8
= v1
->u16
<= v2
->fval
;
3176 res
->u8
= v1
->u16
<= v2
->dval
;
3178 # if HAVE_LONG_DOUBLE
3179 case PSI_T_LONG_DOUBLE
:
3180 res
->u8
= v1
->u16
<= v2
->ldval
;
3192 res
->u8
= v1
->i32
<= v2
->i8
;
3195 res
->u8
= v1
->i32
<= v2
->u8
;
3198 res
->u8
= v1
->i32
<= v2
->i16
;
3201 res
->u8
= v1
->i32
<= v2
->u16
;
3204 res
->u8
= v1
->i32
<= v2
->i32
;
3207 res
->u8
= v1
->i32
<= v2
->u32
;
3210 res
->u8
= v1
->i32
<= v2
->i64
;
3213 res
->u8
= v1
->i32
<= v2
->u64
;
3217 res
->u8
= v1
->i32
<= v2
->i128
;
3223 res
->u8
= v1
->i32
<= v2
->u128
;
3228 res
->u8
= v1
->i32
<= v2
->fval
;
3231 res
->u8
= v1
->i32
<= v2
->dval
;
3233 # if HAVE_LONG_DOUBLE
3234 case PSI_T_LONG_DOUBLE
:
3235 res
->u8
= v1
->i32
<= v2
->ldval
;
3247 res
->u8
= v1
->u32
<= v2
->i8
;
3250 res
->u8
= v1
->u32
<= v2
->u8
;
3253 res
->u8
= v1
->u32
<= v2
->i16
;
3256 res
->u8
= v1
->u32
<= v2
->u16
;
3259 res
->u8
= v1
->u32
<= v2
->i32
;
3262 res
->u8
= v1
->u32
<= v2
->u32
;
3265 res
->u8
= v1
->u32
<= v2
->i64
;
3268 res
->u8
= v1
->u32
<= v2
->u64
;
3272 res
->u8
= v1
->u32
<= v2
->i128
;
3278 res
->u8
= v1
->u32
<= v2
->u128
;
3283 res
->u8
= v1
->u32
<= v2
->fval
;
3286 res
->u8
= v1
->u32
<= v2
->dval
;
3288 # if HAVE_LONG_DOUBLE
3289 case PSI_T_LONG_DOUBLE
:
3290 res
->u8
= v1
->u32
<= v2
->ldval
;
3302 res
->u8
= v1
->i64
<= v2
->i8
;
3305 res
->u8
= v1
->i64
<= v2
->u8
;
3308 res
->u8
= v1
->i64
<= v2
->i16
;
3311 res
->u8
= v1
->i64
<= v2
->u16
;
3314 res
->u8
= v1
->i64
<= v2
->i32
;
3317 res
->u8
= v1
->i64
<= v2
->u32
;
3320 res
->u8
= v1
->i64
<= v2
->i64
;
3323 res
->u8
= v1
->i64
<= v2
->u64
;
3327 res
->u8
= v1
->i64
<= v2
->i128
;
3333 res
->u8
= v1
->i64
<= v2
->u128
;
3338 res
->u8
= v1
->i64
<= v2
->fval
;
3341 res
->u8
= v1
->i64
<= v2
->dval
;
3343 # if HAVE_LONG_DOUBLE
3344 case PSI_T_LONG_DOUBLE
:
3345 res
->u8
= v1
->i64
<= v2
->ldval
;
3357 res
->u8
= v1
->u64
<= v2
->i8
;
3360 res
->u8
= v1
->u64
<= v2
->u8
;
3363 res
->u8
= v1
->u64
<= v2
->i16
;
3366 res
->u8
= v1
->u64
<= v2
->u16
;
3369 res
->u8
= v1
->u64
<= v2
->i32
;
3372 res
->u8
= v1
->u64
<= v2
->u32
;
3375 res
->u8
= v1
->u64
<= v2
->i64
;
3378 res
->u8
= v1
->u64
<= v2
->u64
;
3382 res
->u8
= v1
->u64
<= v2
->i128
;
3388 res
->u8
= v1
->u64
<= v2
->u128
;
3393 res
->u8
= v1
->u64
<= v2
->fval
;
3396 res
->u8
= v1
->u64
<= v2
->dval
;
3398 # if HAVE_LONG_DOUBLE
3399 case PSI_T_LONG_DOUBLE
:
3400 res
->u8
= v1
->u64
<= v2
->ldval
;
3413 res
->u8
= v1
->i128
<= v2
->i8
;
3416 res
->u8
= v1
->i128
<= v2
->u8
;
3419 res
->u8
= v1
->i128
<= v2
->i16
;
3422 res
->u8
= v1
->i128
<= v2
->u16
;
3425 res
->u8
= v1
->i128
<= v2
->i32
;
3428 res
->u8
= v1
->i128
<= v2
->u32
;
3431 res
->u8
= v1
->i128
<= v2
->i64
;
3434 res
->u8
= v1
->i128
<= v2
->u64
;
3438 res
->u8
= v1
->i128
<= v2
->i128
;
3444 res
->u8
= v1
->i128
<= v2
->u128
;
3449 res
->u8
= v1
->i128
<= v2
->fval
;
3452 res
->u8
= v1
->i128
<= v2
->dval
;
3454 # if HAVE_LONG_DOUBLE
3455 case PSI_T_LONG_DOUBLE
:
3456 res
->u8
= v1
->i128
<= v2
->ldval
;
3471 res
->u8
= v1
->u128
<= v2
->i8
;
3474 res
->u8
= v1
->u128
<= v2
->u8
;
3477 res
->u8
= v1
->u128
<= v2
->i16
;
3480 res
->u8
= v1
->u128
<= v2
->u16
;
3483 res
->u8
= v1
->u128
<= v2
->i32
;
3486 res
->u8
= v1
->u128
<= v2
->u32
;
3489 res
->u8
= v1
->u128
<= v2
->i64
;
3492 res
->u8
= v1
->u128
<= v2
->u64
;
3496 res
->u8
= v1
->u128
<= v2
->i128
;
3502 res
->u8
= v1
->u128
<= v2
->u128
;
3507 res
->u8
= v1
->u128
<= v2
->fval
;
3510 res
->u8
= v1
->u128
<= v2
->dval
;
3512 # if HAVE_LONG_DOUBLE
3513 case PSI_T_LONG_DOUBLE
:
3514 res
->u8
= v1
->u128
<= v2
->ldval
;
3528 res
->u8
= v1
->fval
<= v2
->i8
;
3531 res
->u8
= v1
->fval
<= v2
->u8
;
3534 res
->u8
= v1
->fval
<= v2
->i16
;
3537 res
->u8
= v1
->fval
<= v2
->u16
;
3540 res
->u8
= v1
->fval
<= v2
->i32
;
3543 res
->u8
= v1
->fval
<= v2
->u32
;
3546 res
->u8
= v1
->fval
<= v2
->i64
;
3549 res
->u8
= v1
->fval
<= v2
->u64
;
3553 res
->u8
= v1
->fval
<= v2
->i128
;
3559 res
->u8
= v1
->fval
<= v2
->u128
;
3564 res
->u8
= v1
->fval
<= v2
->fval
;
3567 res
->u8
= v1
->fval
<= v2
->dval
;
3569 # if HAVE_LONG_DOUBLE
3570 case PSI_T_LONG_DOUBLE
:
3571 res
->u8
= v1
->fval
<= v2
->ldval
;
3583 res
->u8
= v1
->dval
<= v2
->i8
;
3586 res
->u8
= v1
->dval
<= v2
->u8
;
3589 res
->u8
= v1
->dval
<= v2
->i16
;
3592 res
->u8
= v1
->dval
<= v2
->u16
;
3595 res
->u8
= v1
->dval
<= v2
->i32
;
3598 res
->u8
= v1
->dval
<= v2
->u32
;
3601 res
->u8
= v1
->dval
<= v2
->i64
;
3604 res
->u8
= v1
->dval
<= v2
->u64
;
3608 res
->u8
= v1
->dval
<= v2
->i128
;
3614 res
->u8
= v1
->dval
<= v2
->u128
;
3619 res
->u8
= v1
->dval
<= v2
->fval
;
3622 res
->u8
= v1
->dval
<= v2
->dval
;
3624 # if HAVE_LONG_DOUBLE
3625 case PSI_T_LONG_DOUBLE
:
3626 res
->u8
= v1
->dval
<= v2
->ldval
;
3635 #if HAVE_LONG_DOUBLE
3636 case PSI_T_LONG_DOUBLE
:
3639 res
->u8
= v1
->ldval
<= v2
->i8
;
3642 res
->u8
= v1
->ldval
<= v2
->u8
;
3645 res
->u8
= v1
->ldval
<= v2
->i16
;
3648 res
->u8
= v1
->ldval
<= v2
->u16
;
3651 res
->u8
= v1
->ldval
<= v2
->i32
;
3654 res
->u8
= v1
->ldval
<= v2
->u32
;
3657 res
->u8
= v1
->ldval
<= v2
->i64
;
3660 res
->u8
= v1
->ldval
<= v2
->u64
;
3664 res
->u8
= v1
->ldval
<= v2
->i128
;
3670 res
->u8
= v1
->ldval
<= v2
->u128
;
3675 res
->u8
= v1
->ldval
<= v2
->fval
;
3678 res
->u8
= v1
->ldval
<= v2
->dval
;
3680 # if HAVE_LONG_DOUBLE
3681 case PSI_T_LONG_DOUBLE
:
3682 res
->u8
= v1
->ldval
<= v2
->ldval
;
3700 static inline token_t
psi_calc_cmp_ge(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
3706 res
->u8
= v1
->i8
>= v2
->i8
;
3709 res
->u8
= v1
->i8
>= v2
->u8
;
3712 res
->u8
= v1
->i8
>= v2
->i16
;
3715 res
->u8
= v1
->i8
>= v2
->u16
;
3718 res
->u8
= v1
->i8
>= v2
->i32
;
3721 res
->u8
= v1
->i8
>= v2
->u32
;
3724 res
->u8
= v1
->i8
>= v2
->i64
;
3727 res
->u8
= v1
->i8
>= v2
->u64
;
3731 res
->u8
= v1
->i8
>= v2
->i128
;
3737 res
->u8
= v1
->i8
>= v2
->u128
;
3742 res
->u8
= v1
->i8
>= v2
->fval
;
3745 res
->u8
= v1
->i8
>= v2
->dval
;
3747 # if HAVE_LONG_DOUBLE
3748 case PSI_T_LONG_DOUBLE
:
3749 res
->u8
= v1
->i8
>= v2
->ldval
;
3761 res
->u8
= v1
->u8
>= v2
->i8
;
3764 res
->u8
= v1
->u8
>= v2
->u8
;
3767 res
->u8
= v1
->u8
>= v2
->i16
;
3770 res
->u8
= v1
->u8
>= v2
->u16
;
3773 res
->u8
= v1
->u8
>= v2
->i32
;
3776 res
->u8
= v1
->u8
>= v2
->u32
;
3779 res
->u8
= v1
->u8
>= v2
->i64
;
3782 res
->u8
= v1
->u8
>= v2
->u64
;
3786 res
->u8
= v1
->u8
>= v2
->i128
;
3792 res
->u8
= v1
->u8
>= v2
->u128
;
3797 res
->u8
= v1
->u8
>= v2
->fval
;
3800 res
->u8
= v1
->u8
>= v2
->dval
;
3802 # if HAVE_LONG_DOUBLE
3803 case PSI_T_LONG_DOUBLE
:
3804 res
->u8
= v1
->u8
>= v2
->ldval
;
3816 res
->u8
= v1
->i16
>= v2
->i8
;
3819 res
->u8
= v1
->i16
>= v2
->u8
;
3822 res
->u8
= v1
->i16
>= v2
->i16
;
3825 res
->u8
= v1
->i16
>= v2
->u16
;
3828 res
->u8
= v1
->i16
>= v2
->i32
;
3831 res
->u8
= v1
->i16
>= v2
->u32
;
3834 res
->u8
= v1
->i16
>= v2
->i64
;
3837 res
->u8
= v1
->i16
>= v2
->u64
;
3841 res
->u8
= v1
->i16
>= v2
->i128
;
3847 res
->u8
= v1
->i16
>= v2
->u128
;
3852 res
->u8
= v1
->i16
>= v2
->fval
;
3855 res
->u8
= v1
->i16
>= v2
->dval
;
3857 # if HAVE_LONG_DOUBLE
3858 case PSI_T_LONG_DOUBLE
:
3859 res
->u8
= v1
->i16
>= v2
->ldval
;
3871 res
->u8
= v1
->u16
>= v2
->i8
;
3874 res
->u8
= v1
->u16
>= v2
->u8
;
3877 res
->u8
= v1
->u16
>= v2
->i16
;
3880 res
->u8
= v1
->u16
>= v2
->u16
;
3883 res
->u8
= v1
->u16
>= v2
->i32
;
3886 res
->u8
= v1
->u16
>= v2
->u32
;
3889 res
->u8
= v1
->u16
>= v2
->i64
;
3892 res
->u8
= v1
->u16
>= v2
->u64
;
3896 res
->u8
= v1
->u16
>= v2
->i128
;
3902 res
->u8
= v1
->u16
>= v2
->u128
;
3907 res
->u8
= v1
->u16
>= v2
->fval
;
3910 res
->u8
= v1
->u16
>= v2
->dval
;
3912 # if HAVE_LONG_DOUBLE
3913 case PSI_T_LONG_DOUBLE
:
3914 res
->u8
= v1
->u16
>= v2
->ldval
;
3926 res
->u8
= v1
->i32
>= v2
->i8
;
3929 res
->u8
= v1
->i32
>= v2
->u8
;
3932 res
->u8
= v1
->i32
>= v2
->i16
;
3935 res
->u8
= v1
->i32
>= v2
->u16
;
3938 res
->u8
= v1
->i32
>= v2
->i32
;
3941 res
->u8
= v1
->i32
>= v2
->u32
;
3944 res
->u8
= v1
->i32
>= v2
->i64
;
3947 res
->u8
= v1
->i32
>= v2
->u64
;
3951 res
->u8
= v1
->i32
>= v2
->i128
;
3957 res
->u8
= v1
->i32
>= v2
->u128
;
3962 res
->u8
= v1
->i32
>= v2
->fval
;
3965 res
->u8
= v1
->i32
>= v2
->dval
;
3967 # if HAVE_LONG_DOUBLE
3968 case PSI_T_LONG_DOUBLE
:
3969 res
->u8
= v1
->i32
>= v2
->ldval
;
3981 res
->u8
= v1
->u32
>= v2
->i8
;
3984 res
->u8
= v1
->u32
>= v2
->u8
;
3987 res
->u8
= v1
->u32
>= v2
->i16
;
3990 res
->u8
= v1
->u32
>= v2
->u16
;
3993 res
->u8
= v1
->u32
>= v2
->i32
;
3996 res
->u8
= v1
->u32
>= v2
->u32
;
3999 res
->u8
= v1
->u32
>= v2
->i64
;
4002 res
->u8
= v1
->u32
>= v2
->u64
;
4006 res
->u8
= v1
->u32
>= v2
->i128
;
4012 res
->u8
= v1
->u32
>= v2
->u128
;
4017 res
->u8
= v1
->u32
>= v2
->fval
;
4020 res
->u8
= v1
->u32
>= v2
->dval
;
4022 # if HAVE_LONG_DOUBLE
4023 case PSI_T_LONG_DOUBLE
:
4024 res
->u8
= v1
->u32
>= v2
->ldval
;
4036 res
->u8
= v1
->i64
>= v2
->i8
;
4039 res
->u8
= v1
->i64
>= v2
->u8
;
4042 res
->u8
= v1
->i64
>= v2
->i16
;
4045 res
->u8
= v1
->i64
>= v2
->u16
;
4048 res
->u8
= v1
->i64
>= v2
->i32
;
4051 res
->u8
= v1
->i64
>= v2
->u32
;
4054 res
->u8
= v1
->i64
>= v2
->i64
;
4057 res
->u8
= v1
->i64
>= v2
->u64
;
4061 res
->u8
= v1
->i64
>= v2
->i128
;
4067 res
->u8
= v1
->i64
>= v2
->u128
;
4072 res
->u8
= v1
->i64
>= v2
->fval
;
4075 res
->u8
= v1
->i64
>= v2
->dval
;
4077 # if HAVE_LONG_DOUBLE
4078 case PSI_T_LONG_DOUBLE
:
4079 res
->u8
= v1
->i64
>= v2
->ldval
;
4091 res
->u8
= v1
->u64
>= v2
->i8
;
4094 res
->u8
= v1
->u64
>= v2
->u8
;
4097 res
->u8
= v1
->u64
>= v2
->i16
;
4100 res
->u8
= v1
->u64
>= v2
->u16
;
4103 res
->u8
= v1
->u64
>= v2
->i32
;
4106 res
->u8
= v1
->u64
>= v2
->u32
;
4109 res
->u8
= v1
->u64
>= v2
->i64
;
4112 res
->u8
= v1
->u64
>= v2
->u64
;
4116 res
->u8
= v1
->u64
>= v2
->i128
;
4122 res
->u8
= v1
->u64
>= v2
->u128
;
4127 res
->u8
= v1
->u64
>= v2
->fval
;
4130 res
->u8
= v1
->u64
>= v2
->dval
;
4132 # if HAVE_LONG_DOUBLE
4133 case PSI_T_LONG_DOUBLE
:
4134 res
->u8
= v1
->u64
>= v2
->ldval
;
4147 res
->u8
= v1
->i128
>= v2
->i8
;
4150 res
->u8
= v1
->i128
>= v2
->u8
;
4153 res
->u8
= v1
->i128
>= v2
->i16
;
4156 res
->u8
= v1
->i128
>= v2
->u16
;
4159 res
->u8
= v1
->i128
>= v2
->i32
;
4162 res
->u8
= v1
->i128
>= v2
->u32
;
4165 res
->u8
= v1
->i128
>= v2
->i64
;
4168 res
->u8
= v1
->i128
>= v2
->u64
;
4172 res
->u8
= v1
->i128
>= v2
->i128
;
4178 res
->u8
= v1
->i128
>= v2
->u128
;
4183 res
->u8
= v1
->i128
>= v2
->fval
;
4186 res
->u8
= v1
->i128
>= v2
->dval
;
4188 # if HAVE_LONG_DOUBLE
4189 case PSI_T_LONG_DOUBLE
:
4190 res
->u8
= v1
->i128
>= v2
->ldval
;
4205 res
->u8
= v1
->u128
>= v2
->i8
;
4208 res
->u8
= v1
->u128
>= v2
->u8
;
4211 res
->u8
= v1
->u128
>= v2
->i16
;
4214 res
->u8
= v1
->u128
>= v2
->u16
;
4217 res
->u8
= v1
->u128
>= v2
->i32
;
4220 res
->u8
= v1
->u128
>= v2
->u32
;
4223 res
->u8
= v1
->u128
>= v2
->i64
;
4226 res
->u8
= v1
->u128
>= v2
->u64
;
4230 res
->u8
= v1
->u128
>= v2
->i128
;
4236 res
->u8
= v1
->u128
>= v2
->u128
;
4241 res
->u8
= v1
->u128
>= v2
->fval
;
4244 res
->u8
= v1
->u128
>= v2
->dval
;
4246 # if HAVE_LONG_DOUBLE
4247 case PSI_T_LONG_DOUBLE
:
4248 res
->u8
= v1
->u128
>= v2
->ldval
;
4262 res
->u8
= v1
->fval
>= v2
->i8
;
4265 res
->u8
= v1
->fval
>= v2
->u8
;
4268 res
->u8
= v1
->fval
>= v2
->i16
;
4271 res
->u8
= v1
->fval
>= v2
->u16
;
4274 res
->u8
= v1
->fval
>= v2
->i32
;
4277 res
->u8
= v1
->fval
>= v2
->u32
;
4280 res
->u8
= v1
->fval
>= v2
->i64
;
4283 res
->u8
= v1
->fval
>= v2
->u64
;
4287 res
->u8
= v1
->fval
>= v2
->i128
;
4293 res
->u8
= v1
->fval
>= v2
->u128
;
4298 res
->u8
= v1
->fval
>= v2
->fval
;
4301 res
->u8
= v1
->fval
>= v2
->dval
;
4303 # if HAVE_LONG_DOUBLE
4304 case PSI_T_LONG_DOUBLE
:
4305 res
->u8
= v1
->fval
>= v2
->ldval
;
4317 res
->u8
= v1
->dval
>= v2
->i8
;
4320 res
->u8
= v1
->dval
>= v2
->u8
;
4323 res
->u8
= v1
->dval
>= v2
->i16
;
4326 res
->u8
= v1
->dval
>= v2
->u16
;
4329 res
->u8
= v1
->dval
>= v2
->i32
;
4332 res
->u8
= v1
->dval
>= v2
->u32
;
4335 res
->u8
= v1
->dval
>= v2
->i64
;
4338 res
->u8
= v1
->dval
>= v2
->u64
;
4342 res
->u8
= v1
->dval
>= v2
->i128
;
4348 res
->u8
= v1
->dval
>= v2
->u128
;
4353 res
->u8
= v1
->dval
>= v2
->fval
;
4356 res
->u8
= v1
->dval
>= v2
->dval
;
4358 # if HAVE_LONG_DOUBLE
4359 case PSI_T_LONG_DOUBLE
:
4360 res
->u8
= v1
->dval
>= v2
->ldval
;
4369 #if HAVE_LONG_DOUBLE
4370 case PSI_T_LONG_DOUBLE
:
4373 res
->u8
= v1
->ldval
>= v2
->i8
;
4376 res
->u8
= v1
->ldval
>= v2
->u8
;
4379 res
->u8
= v1
->ldval
>= v2
->i16
;
4382 res
->u8
= v1
->ldval
>= v2
->u16
;
4385 res
->u8
= v1
->ldval
>= v2
->i32
;
4388 res
->u8
= v1
->ldval
>= v2
->u32
;
4391 res
->u8
= v1
->ldval
>= v2
->i64
;
4394 res
->u8
= v1
->ldval
>= v2
->u64
;
4398 res
->u8
= v1
->ldval
>= v2
->i128
;
4404 res
->u8
= v1
->ldval
>= v2
->u128
;
4409 res
->u8
= v1
->ldval
>= v2
->fval
;
4412 res
->u8
= v1
->ldval
>= v2
->dval
;
4414 # if HAVE_LONG_DOUBLE
4415 case PSI_T_LONG_DOUBLE
:
4416 res
->u8
= v1
->ldval
>= v2
->ldval
;