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 *******************************************************************************/
26 #include "php_psi_stdinc.h"
31 static inline token_t
psi_calc_cmp_eq(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
37 res
->u8
= v1
->i8
== v2
->i8
;
40 res
->u8
= v1
->i8
== v2
->u8
;
43 res
->u8
= v1
->i8
== v2
->i16
;
46 res
->u8
= v1
->i8
== v2
->u16
;
49 res
->u8
= v1
->i8
== v2
->i32
;
52 res
->u8
= v1
->i8
== v2
->u32
;
55 res
->u8
= v1
->i8
== v2
->i64
;
58 res
->u8
= v1
->i8
== v2
->u64
;
61 res
->u8
= v1
->i8
== v2
->fval
;
64 res
->u8
= v1
->i8
== v2
->dval
;
67 case PSI_T_LONG_DOUBLE
:
68 res
->u8
= v1
->i8
== v2
->ldval
;
80 res
->u8
= v1
->u8
== v2
->i8
;
83 res
->u8
= v1
->u8
== v2
->u8
;
86 res
->u8
= v1
->u8
== v2
->i16
;
89 res
->u8
= v1
->u8
== v2
->u16
;
92 res
->u8
= v1
->u8
== v2
->i32
;
95 res
->u8
= v1
->u8
== v2
->u32
;
98 res
->u8
= v1
->u8
== v2
->i64
;
101 res
->u8
= v1
->u8
== v2
->u64
;
104 res
->u8
= v1
->u8
== v2
->fval
;
107 res
->u8
= v1
->u8
== v2
->dval
;
109 # if HAVE_LONG_DOUBLE
110 case PSI_T_LONG_DOUBLE
:
111 res
->u8
= v1
->u8
== v2
->ldval
;
123 res
->u8
= v1
->i16
== v2
->i8
;
126 res
->u8
= v1
->i16
== v2
->u8
;
129 res
->u8
= v1
->i16
== v2
->i16
;
132 res
->u8
= v1
->i16
== v2
->u16
;
135 res
->u8
= v1
->i16
== v2
->i32
;
138 res
->u8
= v1
->i16
== v2
->u32
;
141 res
->u8
= v1
->i16
== v2
->i64
;
144 res
->u8
= v1
->i16
== v2
->u64
;
147 res
->u8
= v1
->i16
== v2
->fval
;
150 res
->u8
= v1
->i16
== v2
->dval
;
152 # if HAVE_LONG_DOUBLE
153 case PSI_T_LONG_DOUBLE
:
154 res
->u8
= v1
->i16
== v2
->ldval
;
166 res
->u8
= v1
->u16
== v2
->i8
;
169 res
->u8
= v1
->u16
== v2
->u8
;
172 res
->u8
= v1
->u16
== v2
->i16
;
175 res
->u8
= v1
->u16
== v2
->u16
;
178 res
->u8
= v1
->u16
== v2
->i32
;
181 res
->u8
= v1
->u16
== v2
->u32
;
184 res
->u8
= v1
->u16
== v2
->i64
;
187 res
->u8
= v1
->u16
== v2
->u64
;
190 res
->u8
= v1
->u16
== v2
->fval
;
193 res
->u8
= v1
->u16
== v2
->dval
;
195 # if HAVE_LONG_DOUBLE
196 case PSI_T_LONG_DOUBLE
:
197 res
->u8
= v1
->u16
== v2
->ldval
;
209 res
->u8
= v1
->i32
== v2
->i8
;
212 res
->u8
= v1
->i32
== v2
->u8
;
215 res
->u8
= v1
->i32
== v2
->i16
;
218 res
->u8
= v1
->i32
== v2
->u16
;
221 res
->u8
= v1
->i32
== v2
->i32
;
224 res
->u8
= v1
->i32
== v2
->u32
;
227 res
->u8
= v1
->i32
== v2
->i64
;
230 res
->u8
= v1
->i32
== v2
->u64
;
233 res
->u8
= v1
->i32
== v2
->fval
;
236 res
->u8
= v1
->i32
== v2
->dval
;
238 # if HAVE_LONG_DOUBLE
239 case PSI_T_LONG_DOUBLE
:
240 res
->u8
= v1
->i32
== v2
->ldval
;
252 res
->u8
= v1
->u32
== v2
->i8
;
255 res
->u8
= v1
->u32
== v2
->u8
;
258 res
->u8
= v1
->u32
== v2
->i16
;
261 res
->u8
= v1
->u32
== v2
->u16
;
264 res
->u8
= v1
->u32
== v2
->i32
;
267 res
->u8
= v1
->u32
== v2
->u32
;
270 res
->u8
= v1
->u32
== v2
->i64
;
273 res
->u8
= v1
->u32
== v2
->u64
;
276 res
->u8
= v1
->u32
== v2
->fval
;
279 res
->u8
= v1
->u32
== v2
->dval
;
281 # if HAVE_LONG_DOUBLE
282 case PSI_T_LONG_DOUBLE
:
283 res
->u8
= v1
->u32
== v2
->ldval
;
295 res
->u8
= v1
->i64
== v2
->i8
;
298 res
->u8
= v1
->i64
== v2
->u8
;
301 res
->u8
= v1
->i64
== v2
->i16
;
304 res
->u8
= v1
->i64
== v2
->u16
;
307 res
->u8
= v1
->i64
== v2
->i32
;
310 res
->u8
= v1
->i64
== v2
->u32
;
313 res
->u8
= v1
->i64
== v2
->i64
;
316 res
->u8
= v1
->i64
== v2
->u64
;
319 res
->u8
= v1
->i64
== v2
->fval
;
322 res
->u8
= v1
->i64
== v2
->dval
;
324 # if HAVE_LONG_DOUBLE
325 case PSI_T_LONG_DOUBLE
:
326 res
->u8
= v1
->i64
== v2
->ldval
;
338 res
->u8
= v1
->u64
== v2
->i8
;
341 res
->u8
= v1
->u64
== v2
->u8
;
344 res
->u8
= v1
->u64
== v2
->i16
;
347 res
->u8
= v1
->u64
== v2
->u16
;
350 res
->u8
= v1
->u64
== v2
->i32
;
353 res
->u8
= v1
->u64
== v2
->u32
;
356 res
->u8
= v1
->u64
== v2
->i64
;
359 res
->u8
= v1
->u64
== v2
->u64
;
362 res
->u8
= v1
->u64
== v2
->fval
;
365 res
->u8
= v1
->u64
== v2
->dval
;
367 # if HAVE_LONG_DOUBLE
368 case PSI_T_LONG_DOUBLE
:
369 res
->u8
= v1
->u64
== v2
->ldval
;
381 res
->u8
= v1
->fval
== v2
->i8
;
384 res
->u8
= v1
->fval
== v2
->u8
;
387 res
->u8
= v1
->fval
== v2
->i16
;
390 res
->u8
= v1
->fval
== v2
->u16
;
393 res
->u8
= v1
->fval
== v2
->i32
;
396 res
->u8
= v1
->fval
== v2
->u32
;
399 res
->u8
= v1
->fval
== v2
->i64
;
402 res
->u8
= v1
->fval
== v2
->u64
;
405 res
->u8
= v1
->fval
== v2
->fval
;
408 res
->u8
= v1
->fval
== v2
->dval
;
410 # if HAVE_LONG_DOUBLE
411 case PSI_T_LONG_DOUBLE
:
412 res
->u8
= v1
->fval
== v2
->ldval
;
424 res
->u8
= v1
->dval
== v2
->i8
;
427 res
->u8
= v1
->dval
== v2
->u8
;
430 res
->u8
= v1
->dval
== v2
->i16
;
433 res
->u8
= v1
->dval
== v2
->u16
;
436 res
->u8
= v1
->dval
== v2
->i32
;
439 res
->u8
= v1
->dval
== v2
->u32
;
442 res
->u8
= v1
->dval
== v2
->i64
;
445 res
->u8
= v1
->dval
== v2
->u64
;
448 res
->u8
= v1
->dval
== v2
->fval
;
451 res
->u8
= v1
->dval
== v2
->dval
;
453 # if HAVE_LONG_DOUBLE
454 case PSI_T_LONG_DOUBLE
:
455 res
->u8
= v1
->dval
== v2
->ldval
;
465 case PSI_T_LONG_DOUBLE
:
468 res
->u8
= v1
->ldval
== v2
->i8
;
471 res
->u8
= v1
->ldval
== v2
->u8
;
474 res
->u8
= v1
->ldval
== v2
->i16
;
477 res
->u8
= v1
->ldval
== v2
->u16
;
480 res
->u8
= v1
->ldval
== v2
->i32
;
483 res
->u8
= v1
->ldval
== v2
->u32
;
486 res
->u8
= v1
->ldval
== v2
->i64
;
489 res
->u8
= v1
->ldval
== v2
->u64
;
492 res
->u8
= v1
->ldval
== v2
->fval
;
495 res
->u8
= v1
->ldval
== v2
->dval
;
497 # if HAVE_LONG_DOUBLE
498 case PSI_T_LONG_DOUBLE
:
499 res
->u8
= v1
->ldval
== v2
->ldval
;
517 static inline token_t
psi_calc_cmp_ne(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
523 res
->u8
= v1
->i8
!= v2
->i8
;
526 res
->u8
= v1
->i8
!= v2
->u8
;
529 res
->u8
= v1
->i8
!= v2
->i16
;
532 res
->u8
= v1
->i8
!= v2
->u16
;
535 res
->u8
= v1
->i8
!= v2
->i32
;
538 res
->u8
= v1
->i8
!= v2
->u32
;
541 res
->u8
= v1
->i8
!= v2
->i64
;
544 res
->u8
= v1
->i8
!= v2
->u64
;
547 res
->u8
= v1
->i8
!= v2
->fval
;
550 res
->u8
= v1
->i8
!= v2
->dval
;
552 # if HAVE_LONG_DOUBLE
553 case PSI_T_LONG_DOUBLE
:
554 res
->u8
= v1
->i8
!= v2
->ldval
;
566 res
->u8
= v1
->u8
!= v2
->i8
;
569 res
->u8
= v1
->u8
!= v2
->u8
;
572 res
->u8
= v1
->u8
!= v2
->i16
;
575 res
->u8
= v1
->u8
!= v2
->u16
;
578 res
->u8
= v1
->u8
!= v2
->i32
;
581 res
->u8
= v1
->u8
!= v2
->u32
;
584 res
->u8
= v1
->u8
!= v2
->i64
;
587 res
->u8
= v1
->u8
!= v2
->u64
;
590 res
->u8
= v1
->u8
!= v2
->fval
;
593 res
->u8
= v1
->u8
!= v2
->dval
;
595 # if HAVE_LONG_DOUBLE
596 case PSI_T_LONG_DOUBLE
:
597 res
->u8
= v1
->u8
!= v2
->ldval
;
609 res
->u8
= v1
->i16
!= v2
->i8
;
612 res
->u8
= v1
->i16
!= v2
->u8
;
615 res
->u8
= v1
->i16
!= v2
->i16
;
618 res
->u8
= v1
->i16
!= v2
->u16
;
621 res
->u8
= v1
->i16
!= v2
->i32
;
624 res
->u8
= v1
->i16
!= v2
->u32
;
627 res
->u8
= v1
->i16
!= v2
->i64
;
630 res
->u8
= v1
->i16
!= v2
->u64
;
633 res
->u8
= v1
->i16
!= v2
->fval
;
636 res
->u8
= v1
->i16
!= v2
->dval
;
638 # if HAVE_LONG_DOUBLE
639 case PSI_T_LONG_DOUBLE
:
640 res
->u8
= v1
->i16
!= v2
->ldval
;
652 res
->u8
= v1
->u16
!= v2
->i8
;
655 res
->u8
= v1
->u16
!= v2
->u8
;
658 res
->u8
= v1
->u16
!= v2
->i16
;
661 res
->u8
= v1
->u16
!= v2
->u16
;
664 res
->u8
= v1
->u16
!= v2
->i32
;
667 res
->u8
= v1
->u16
!= v2
->u32
;
670 res
->u8
= v1
->u16
!= v2
->i64
;
673 res
->u8
= v1
->u16
!= v2
->u64
;
676 res
->u8
= v1
->u16
!= v2
->fval
;
679 res
->u8
= v1
->u16
!= v2
->dval
;
681 # if HAVE_LONG_DOUBLE
682 case PSI_T_LONG_DOUBLE
:
683 res
->u8
= v1
->u16
!= v2
->ldval
;
695 res
->u8
= v1
->i32
!= v2
->i8
;
698 res
->u8
= v1
->i32
!= v2
->u8
;
701 res
->u8
= v1
->i32
!= v2
->i16
;
704 res
->u8
= v1
->i32
!= v2
->u16
;
707 res
->u8
= v1
->i32
!= v2
->i32
;
710 res
->u8
= v1
->i32
!= v2
->u32
;
713 res
->u8
= v1
->i32
!= v2
->i64
;
716 res
->u8
= v1
->i32
!= v2
->u64
;
719 res
->u8
= v1
->i32
!= v2
->fval
;
722 res
->u8
= v1
->i32
!= v2
->dval
;
724 # if HAVE_LONG_DOUBLE
725 case PSI_T_LONG_DOUBLE
:
726 res
->u8
= v1
->i32
!= v2
->ldval
;
738 res
->u8
= v1
->u32
!= v2
->i8
;
741 res
->u8
= v1
->u32
!= v2
->u8
;
744 res
->u8
= v1
->u32
!= v2
->i16
;
747 res
->u8
= v1
->u32
!= v2
->u16
;
750 res
->u8
= v1
->u32
!= v2
->i32
;
753 res
->u8
= v1
->u32
!= v2
->u32
;
756 res
->u8
= v1
->u32
!= v2
->i64
;
759 res
->u8
= v1
->u32
!= v2
->u64
;
762 res
->u8
= v1
->u32
!= v2
->fval
;
765 res
->u8
= v1
->u32
!= v2
->dval
;
767 # if HAVE_LONG_DOUBLE
768 case PSI_T_LONG_DOUBLE
:
769 res
->u8
= v1
->u32
!= v2
->ldval
;
781 res
->u8
= v1
->i64
!= v2
->i8
;
784 res
->u8
= v1
->i64
!= v2
->u8
;
787 res
->u8
= v1
->i64
!= v2
->i16
;
790 res
->u8
= v1
->i64
!= v2
->u16
;
793 res
->u8
= v1
->i64
!= v2
->i32
;
796 res
->u8
= v1
->i64
!= v2
->u32
;
799 res
->u8
= v1
->i64
!= v2
->i64
;
802 res
->u8
= v1
->i64
!= v2
->u64
;
805 res
->u8
= v1
->i64
!= v2
->fval
;
808 res
->u8
= v1
->i64
!= v2
->dval
;
810 # if HAVE_LONG_DOUBLE
811 case PSI_T_LONG_DOUBLE
:
812 res
->u8
= v1
->i64
!= v2
->ldval
;
824 res
->u8
= v1
->u64
!= v2
->i8
;
827 res
->u8
= v1
->u64
!= v2
->u8
;
830 res
->u8
= v1
->u64
!= v2
->i16
;
833 res
->u8
= v1
->u64
!= v2
->u16
;
836 res
->u8
= v1
->u64
!= v2
->i32
;
839 res
->u8
= v1
->u64
!= v2
->u32
;
842 res
->u8
= v1
->u64
!= v2
->i64
;
845 res
->u8
= v1
->u64
!= v2
->u64
;
848 res
->u8
= v1
->u64
!= v2
->fval
;
851 res
->u8
= v1
->u64
!= v2
->dval
;
853 # if HAVE_LONG_DOUBLE
854 case PSI_T_LONG_DOUBLE
:
855 res
->u8
= v1
->u64
!= v2
->ldval
;
867 res
->u8
= v1
->fval
!= v2
->i8
;
870 res
->u8
= v1
->fval
!= v2
->u8
;
873 res
->u8
= v1
->fval
!= v2
->i16
;
876 res
->u8
= v1
->fval
!= v2
->u16
;
879 res
->u8
= v1
->fval
!= v2
->i32
;
882 res
->u8
= v1
->fval
!= v2
->u32
;
885 res
->u8
= v1
->fval
!= v2
->i64
;
888 res
->u8
= v1
->fval
!= v2
->u64
;
891 res
->u8
= v1
->fval
!= v2
->fval
;
894 res
->u8
= v1
->fval
!= v2
->dval
;
896 # if HAVE_LONG_DOUBLE
897 case PSI_T_LONG_DOUBLE
:
898 res
->u8
= v1
->fval
!= v2
->ldval
;
910 res
->u8
= v1
->dval
!= v2
->i8
;
913 res
->u8
= v1
->dval
!= v2
->u8
;
916 res
->u8
= v1
->dval
!= v2
->i16
;
919 res
->u8
= v1
->dval
!= v2
->u16
;
922 res
->u8
= v1
->dval
!= v2
->i32
;
925 res
->u8
= v1
->dval
!= v2
->u32
;
928 res
->u8
= v1
->dval
!= v2
->i64
;
931 res
->u8
= v1
->dval
!= v2
->u64
;
934 res
->u8
= v1
->dval
!= v2
->fval
;
937 res
->u8
= v1
->dval
!= v2
->dval
;
939 # if HAVE_LONG_DOUBLE
940 case PSI_T_LONG_DOUBLE
:
941 res
->u8
= v1
->dval
!= v2
->ldval
;
951 case PSI_T_LONG_DOUBLE
:
954 res
->u8
= v1
->ldval
!= v2
->i8
;
957 res
->u8
= v1
->ldval
!= v2
->u8
;
960 res
->u8
= v1
->ldval
!= v2
->i16
;
963 res
->u8
= v1
->ldval
!= v2
->u16
;
966 res
->u8
= v1
->ldval
!= v2
->i32
;
969 res
->u8
= v1
->ldval
!= v2
->u32
;
972 res
->u8
= v1
->ldval
!= v2
->i64
;
975 res
->u8
= v1
->ldval
!= v2
->u64
;
978 res
->u8
= v1
->ldval
!= v2
->fval
;
981 res
->u8
= v1
->ldval
!= v2
->dval
;
983 # if HAVE_LONG_DOUBLE
984 case PSI_T_LONG_DOUBLE
:
985 res
->u8
= v1
->ldval
!= v2
->ldval
;
1003 static inline token_t
psi_calc_cmp_lt(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
1009 res
->u8
= v1
->i8
< v2
->i8
;
1012 res
->u8
= v1
->i8
< v2
->u8
;
1015 res
->u8
= v1
->i8
< v2
->i16
;
1018 res
->u8
= v1
->i8
< v2
->u16
;
1021 res
->u8
= v1
->i8
< v2
->i32
;
1024 res
->u8
= v1
->i8
< v2
->u32
;
1027 res
->u8
= v1
->i8
< v2
->i64
;
1030 res
->u8
= v1
->i8
< v2
->u64
;
1033 res
->u8
= v1
->i8
< v2
->fval
;
1036 res
->u8
= v1
->i8
< v2
->dval
;
1038 # if HAVE_LONG_DOUBLE
1039 case PSI_T_LONG_DOUBLE
:
1040 res
->u8
= v1
->i8
< v2
->ldval
;
1052 res
->u8
= v1
->u8
< v2
->i8
;
1055 res
->u8
= v1
->u8
< v2
->u8
;
1058 res
->u8
= v1
->u8
< v2
->i16
;
1061 res
->u8
= v1
->u8
< v2
->u16
;
1064 res
->u8
= v1
->u8
< v2
->i32
;
1067 res
->u8
= v1
->u8
< v2
->u32
;
1070 res
->u8
= v1
->u8
< v2
->i64
;
1073 res
->u8
= v1
->u8
< v2
->u64
;
1076 res
->u8
= v1
->u8
< v2
->fval
;
1079 res
->u8
= v1
->u8
< v2
->dval
;
1081 # if HAVE_LONG_DOUBLE
1082 case PSI_T_LONG_DOUBLE
:
1083 res
->u8
= v1
->u8
< v2
->ldval
;
1095 res
->u8
= v1
->i16
< v2
->i8
;
1098 res
->u8
= v1
->i16
< v2
->u8
;
1101 res
->u8
= v1
->i16
< v2
->i16
;
1104 res
->u8
= v1
->i16
< v2
->u16
;
1107 res
->u8
= v1
->i16
< v2
->i32
;
1110 res
->u8
= v1
->i16
< v2
->u32
;
1113 res
->u8
= v1
->i16
< v2
->i64
;
1116 res
->u8
= v1
->i16
< v2
->u64
;
1119 res
->u8
= v1
->i16
< v2
->fval
;
1122 res
->u8
= v1
->i16
< v2
->dval
;
1124 # if HAVE_LONG_DOUBLE
1125 case PSI_T_LONG_DOUBLE
:
1126 res
->u8
= v1
->i16
< v2
->ldval
;
1138 res
->u8
= v1
->u16
< v2
->i8
;
1141 res
->u8
= v1
->u16
< v2
->u8
;
1144 res
->u8
= v1
->u16
< v2
->i16
;
1147 res
->u8
= v1
->u16
< v2
->u16
;
1150 res
->u8
= v1
->u16
< v2
->i32
;
1153 res
->u8
= v1
->u16
< v2
->u32
;
1156 res
->u8
= v1
->u16
< v2
->i64
;
1159 res
->u8
= v1
->u16
< v2
->u64
;
1162 res
->u8
= v1
->u16
< v2
->fval
;
1165 res
->u8
= v1
->u16
< v2
->dval
;
1167 # if HAVE_LONG_DOUBLE
1168 case PSI_T_LONG_DOUBLE
:
1169 res
->u8
= v1
->u16
< v2
->ldval
;
1181 res
->u8
= v1
->i32
< v2
->i8
;
1184 res
->u8
= v1
->i32
< v2
->u8
;
1187 res
->u8
= v1
->i32
< v2
->i16
;
1190 res
->u8
= v1
->i32
< v2
->u16
;
1193 res
->u8
= v1
->i32
< v2
->i32
;
1196 res
->u8
= v1
->i32
< v2
->u32
;
1199 res
->u8
= v1
->i32
< v2
->i64
;
1202 res
->u8
= v1
->i32
< v2
->u64
;
1205 res
->u8
= v1
->i32
< v2
->fval
;
1208 res
->u8
= v1
->i32
< v2
->dval
;
1210 # if HAVE_LONG_DOUBLE
1211 case PSI_T_LONG_DOUBLE
:
1212 res
->u8
= v1
->i32
< v2
->ldval
;
1224 res
->u8
= v1
->u32
< v2
->i8
;
1227 res
->u8
= v1
->u32
< v2
->u8
;
1230 res
->u8
= v1
->u32
< v2
->i16
;
1233 res
->u8
= v1
->u32
< v2
->u16
;
1236 res
->u8
= v1
->u32
< v2
->i32
;
1239 res
->u8
= v1
->u32
< v2
->u32
;
1242 res
->u8
= v1
->u32
< v2
->i64
;
1245 res
->u8
= v1
->u32
< v2
->u64
;
1248 res
->u8
= v1
->u32
< v2
->fval
;
1251 res
->u8
= v1
->u32
< v2
->dval
;
1253 # if HAVE_LONG_DOUBLE
1254 case PSI_T_LONG_DOUBLE
:
1255 res
->u8
= v1
->u32
< v2
->ldval
;
1267 res
->u8
= v1
->i64
< v2
->i8
;
1270 res
->u8
= v1
->i64
< v2
->u8
;
1273 res
->u8
= v1
->i64
< v2
->i16
;
1276 res
->u8
= v1
->i64
< v2
->u16
;
1279 res
->u8
= v1
->i64
< v2
->i32
;
1282 res
->u8
= v1
->i64
< v2
->u32
;
1285 res
->u8
= v1
->i64
< v2
->i64
;
1288 res
->u8
= v1
->i64
< v2
->u64
;
1291 res
->u8
= v1
->i64
< v2
->fval
;
1294 res
->u8
= v1
->i64
< v2
->dval
;
1296 # if HAVE_LONG_DOUBLE
1297 case PSI_T_LONG_DOUBLE
:
1298 res
->u8
= v1
->i64
< v2
->ldval
;
1310 res
->u8
= v1
->u64
< v2
->i8
;
1313 res
->u8
= v1
->u64
< v2
->u8
;
1316 res
->u8
= v1
->u64
< v2
->i16
;
1319 res
->u8
= v1
->u64
< v2
->u16
;
1322 res
->u8
= v1
->u64
< v2
->i32
;
1325 res
->u8
= v1
->u64
< v2
->u32
;
1328 res
->u8
= v1
->u64
< v2
->i64
;
1331 res
->u8
= v1
->u64
< v2
->u64
;
1334 res
->u8
= v1
->u64
< v2
->fval
;
1337 res
->u8
= v1
->u64
< v2
->dval
;
1339 # if HAVE_LONG_DOUBLE
1340 case PSI_T_LONG_DOUBLE
:
1341 res
->u8
= v1
->u64
< v2
->ldval
;
1353 res
->u8
= v1
->fval
< v2
->i8
;
1356 res
->u8
= v1
->fval
< v2
->u8
;
1359 res
->u8
= v1
->fval
< v2
->i16
;
1362 res
->u8
= v1
->fval
< v2
->u16
;
1365 res
->u8
= v1
->fval
< v2
->i32
;
1368 res
->u8
= v1
->fval
< v2
->u32
;
1371 res
->u8
= v1
->fval
< v2
->i64
;
1374 res
->u8
= v1
->fval
< v2
->u64
;
1377 res
->u8
= v1
->fval
< v2
->fval
;
1380 res
->u8
= v1
->fval
< v2
->dval
;
1382 # if HAVE_LONG_DOUBLE
1383 case PSI_T_LONG_DOUBLE
:
1384 res
->u8
= v1
->fval
< v2
->ldval
;
1396 res
->u8
= v1
->dval
< v2
->i8
;
1399 res
->u8
= v1
->dval
< v2
->u8
;
1402 res
->u8
= v1
->dval
< v2
->i16
;
1405 res
->u8
= v1
->dval
< v2
->u16
;
1408 res
->u8
= v1
->dval
< v2
->i32
;
1411 res
->u8
= v1
->dval
< v2
->u32
;
1414 res
->u8
= v1
->dval
< v2
->i64
;
1417 res
->u8
= v1
->dval
< v2
->u64
;
1420 res
->u8
= v1
->dval
< v2
->fval
;
1423 res
->u8
= v1
->dval
< v2
->dval
;
1425 # if HAVE_LONG_DOUBLE
1426 case PSI_T_LONG_DOUBLE
:
1427 res
->u8
= v1
->dval
< v2
->ldval
;
1436 #if HAVE_LONG_DOUBLE
1437 case PSI_T_LONG_DOUBLE
:
1440 res
->u8
= v1
->ldval
< v2
->i8
;
1443 res
->u8
= v1
->ldval
< v2
->u8
;
1446 res
->u8
= v1
->ldval
< v2
->i16
;
1449 res
->u8
= v1
->ldval
< v2
->u16
;
1452 res
->u8
= v1
->ldval
< v2
->i32
;
1455 res
->u8
= v1
->ldval
< v2
->u32
;
1458 res
->u8
= v1
->ldval
< v2
->i64
;
1461 res
->u8
= v1
->ldval
< v2
->u64
;
1464 res
->u8
= v1
->ldval
< v2
->fval
;
1467 res
->u8
= v1
->ldval
< v2
->dval
;
1469 # if HAVE_LONG_DOUBLE
1470 case PSI_T_LONG_DOUBLE
:
1471 res
->u8
= v1
->ldval
< v2
->ldval
;
1489 static inline token_t
psi_calc_cmp_gt(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
1495 res
->u8
= v1
->i8
> v2
->i8
;
1498 res
->u8
= v1
->i8
> v2
->u8
;
1501 res
->u8
= v1
->i8
> v2
->i16
;
1504 res
->u8
= v1
->i8
> v2
->u16
;
1507 res
->u8
= v1
->i8
> v2
->i32
;
1510 res
->u8
= v1
->i8
> v2
->u32
;
1513 res
->u8
= v1
->i8
> v2
->i64
;
1516 res
->u8
= v1
->i8
> v2
->u64
;
1519 res
->u8
= v1
->i8
> v2
->fval
;
1522 res
->u8
= v1
->i8
> v2
->dval
;
1524 # if HAVE_LONG_DOUBLE
1525 case PSI_T_LONG_DOUBLE
:
1526 res
->u8
= v1
->i8
> v2
->ldval
;
1538 res
->u8
= v1
->u8
> v2
->i8
;
1541 res
->u8
= v1
->u8
> v2
->u8
;
1544 res
->u8
= v1
->u8
> v2
->i16
;
1547 res
->u8
= v1
->u8
> v2
->u16
;
1550 res
->u8
= v1
->u8
> v2
->i32
;
1553 res
->u8
= v1
->u8
> v2
->u32
;
1556 res
->u8
= v1
->u8
> v2
->i64
;
1559 res
->u8
= v1
->u8
> v2
->u64
;
1562 res
->u8
= v1
->u8
> v2
->fval
;
1565 res
->u8
= v1
->u8
> v2
->dval
;
1567 # if HAVE_LONG_DOUBLE
1568 case PSI_T_LONG_DOUBLE
:
1569 res
->u8
= v1
->u8
> v2
->ldval
;
1581 res
->u8
= v1
->i16
> v2
->i8
;
1584 res
->u8
= v1
->i16
> v2
->u8
;
1587 res
->u8
= v1
->i16
> v2
->i16
;
1590 res
->u8
= v1
->i16
> v2
->u16
;
1593 res
->u8
= v1
->i16
> v2
->i32
;
1596 res
->u8
= v1
->i16
> v2
->u32
;
1599 res
->u8
= v1
->i16
> v2
->i64
;
1602 res
->u8
= v1
->i16
> v2
->u64
;
1605 res
->u8
= v1
->i16
> v2
->fval
;
1608 res
->u8
= v1
->i16
> v2
->dval
;
1610 # if HAVE_LONG_DOUBLE
1611 case PSI_T_LONG_DOUBLE
:
1612 res
->u8
= v1
->i16
> v2
->ldval
;
1624 res
->u8
= v1
->u16
> v2
->i8
;
1627 res
->u8
= v1
->u16
> v2
->u8
;
1630 res
->u8
= v1
->u16
> v2
->i16
;
1633 res
->u8
= v1
->u16
> v2
->u16
;
1636 res
->u8
= v1
->u16
> v2
->i32
;
1639 res
->u8
= v1
->u16
> v2
->u32
;
1642 res
->u8
= v1
->u16
> v2
->i64
;
1645 res
->u8
= v1
->u16
> v2
->u64
;
1648 res
->u8
= v1
->u16
> v2
->fval
;
1651 res
->u8
= v1
->u16
> v2
->dval
;
1653 # if HAVE_LONG_DOUBLE
1654 case PSI_T_LONG_DOUBLE
:
1655 res
->u8
= v1
->u16
> v2
->ldval
;
1667 res
->u8
= v1
->i32
> v2
->i8
;
1670 res
->u8
= v1
->i32
> v2
->u8
;
1673 res
->u8
= v1
->i32
> v2
->i16
;
1676 res
->u8
= v1
->i32
> v2
->u16
;
1679 res
->u8
= v1
->i32
> v2
->i32
;
1682 res
->u8
= v1
->i32
> v2
->u32
;
1685 res
->u8
= v1
->i32
> v2
->i64
;
1688 res
->u8
= v1
->i32
> v2
->u64
;
1691 res
->u8
= v1
->i32
> v2
->fval
;
1694 res
->u8
= v1
->i32
> v2
->dval
;
1696 # if HAVE_LONG_DOUBLE
1697 case PSI_T_LONG_DOUBLE
:
1698 res
->u8
= v1
->i32
> v2
->ldval
;
1710 res
->u8
= v1
->u32
> v2
->i8
;
1713 res
->u8
= v1
->u32
> v2
->u8
;
1716 res
->u8
= v1
->u32
> v2
->i16
;
1719 res
->u8
= v1
->u32
> v2
->u16
;
1722 res
->u8
= v1
->u32
> v2
->i32
;
1725 res
->u8
= v1
->u32
> v2
->u32
;
1728 res
->u8
= v1
->u32
> v2
->i64
;
1731 res
->u8
= v1
->u32
> v2
->u64
;
1734 res
->u8
= v1
->u32
> v2
->fval
;
1737 res
->u8
= v1
->u32
> v2
->dval
;
1739 # if HAVE_LONG_DOUBLE
1740 case PSI_T_LONG_DOUBLE
:
1741 res
->u8
= v1
->u32
> v2
->ldval
;
1753 res
->u8
= v1
->i64
> v2
->i8
;
1756 res
->u8
= v1
->i64
> v2
->u8
;
1759 res
->u8
= v1
->i64
> v2
->i16
;
1762 res
->u8
= v1
->i64
> v2
->u16
;
1765 res
->u8
= v1
->i64
> v2
->i32
;
1768 res
->u8
= v1
->i64
> v2
->u32
;
1771 res
->u8
= v1
->i64
> v2
->i64
;
1774 res
->u8
= v1
->i64
> v2
->u64
;
1777 res
->u8
= v1
->i64
> v2
->fval
;
1780 res
->u8
= v1
->i64
> v2
->dval
;
1782 # if HAVE_LONG_DOUBLE
1783 case PSI_T_LONG_DOUBLE
:
1784 res
->u8
= v1
->i64
> v2
->ldval
;
1796 res
->u8
= v1
->u64
> v2
->i8
;
1799 res
->u8
= v1
->u64
> v2
->u8
;
1802 res
->u8
= v1
->u64
> v2
->i16
;
1805 res
->u8
= v1
->u64
> v2
->u16
;
1808 res
->u8
= v1
->u64
> v2
->i32
;
1811 res
->u8
= v1
->u64
> v2
->u32
;
1814 res
->u8
= v1
->u64
> v2
->i64
;
1817 res
->u8
= v1
->u64
> v2
->u64
;
1820 res
->u8
= v1
->u64
> v2
->fval
;
1823 res
->u8
= v1
->u64
> v2
->dval
;
1825 # if HAVE_LONG_DOUBLE
1826 case PSI_T_LONG_DOUBLE
:
1827 res
->u8
= v1
->u64
> v2
->ldval
;
1839 res
->u8
= v1
->fval
> v2
->i8
;
1842 res
->u8
= v1
->fval
> v2
->u8
;
1845 res
->u8
= v1
->fval
> v2
->i16
;
1848 res
->u8
= v1
->fval
> v2
->u16
;
1851 res
->u8
= v1
->fval
> v2
->i32
;
1854 res
->u8
= v1
->fval
> v2
->u32
;
1857 res
->u8
= v1
->fval
> v2
->i64
;
1860 res
->u8
= v1
->fval
> v2
->u64
;
1863 res
->u8
= v1
->fval
> v2
->fval
;
1866 res
->u8
= v1
->fval
> v2
->dval
;
1868 # if HAVE_LONG_DOUBLE
1869 case PSI_T_LONG_DOUBLE
:
1870 res
->u8
= v1
->fval
> v2
->ldval
;
1882 res
->u8
= v1
->dval
> v2
->i8
;
1885 res
->u8
= v1
->dval
> v2
->u8
;
1888 res
->u8
= v1
->dval
> v2
->i16
;
1891 res
->u8
= v1
->dval
> v2
->u16
;
1894 res
->u8
= v1
->dval
> v2
->i32
;
1897 res
->u8
= v1
->dval
> v2
->u32
;
1900 res
->u8
= v1
->dval
> v2
->i64
;
1903 res
->u8
= v1
->dval
> v2
->u64
;
1906 res
->u8
= v1
->dval
> v2
->fval
;
1909 res
->u8
= v1
->dval
> v2
->dval
;
1911 # if HAVE_LONG_DOUBLE
1912 case PSI_T_LONG_DOUBLE
:
1913 res
->u8
= v1
->dval
> v2
->ldval
;
1922 #if HAVE_LONG_DOUBLE
1923 case PSI_T_LONG_DOUBLE
:
1926 res
->u8
= v1
->ldval
> v2
->i8
;
1929 res
->u8
= v1
->ldval
> v2
->u8
;
1932 res
->u8
= v1
->ldval
> v2
->i16
;
1935 res
->u8
= v1
->ldval
> v2
->u16
;
1938 res
->u8
= v1
->ldval
> v2
->i32
;
1941 res
->u8
= v1
->ldval
> v2
->u32
;
1944 res
->u8
= v1
->ldval
> v2
->i64
;
1947 res
->u8
= v1
->ldval
> v2
->u64
;
1950 res
->u8
= v1
->ldval
> v2
->fval
;
1953 res
->u8
= v1
->ldval
> v2
->dval
;
1955 # if HAVE_LONG_DOUBLE
1956 case PSI_T_LONG_DOUBLE
:
1957 res
->u8
= v1
->ldval
> v2
->ldval
;
1975 static inline token_t
psi_calc_cmp_le(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
1981 res
->u8
= v1
->i8
<= v2
->i8
;
1984 res
->u8
= v1
->i8
<= v2
->u8
;
1987 res
->u8
= v1
->i8
<= v2
->i16
;
1990 res
->u8
= v1
->i8
<= v2
->u16
;
1993 res
->u8
= v1
->i8
<= v2
->i32
;
1996 res
->u8
= v1
->i8
<= v2
->u32
;
1999 res
->u8
= v1
->i8
<= v2
->i64
;
2002 res
->u8
= v1
->i8
<= v2
->u64
;
2005 res
->u8
= v1
->i8
<= v2
->fval
;
2008 res
->u8
= v1
->i8
<= v2
->dval
;
2010 # if HAVE_LONG_DOUBLE
2011 case PSI_T_LONG_DOUBLE
:
2012 res
->u8
= v1
->i8
<= v2
->ldval
;
2024 res
->u8
= v1
->u8
<= v2
->i8
;
2027 res
->u8
= v1
->u8
<= v2
->u8
;
2030 res
->u8
= v1
->u8
<= v2
->i16
;
2033 res
->u8
= v1
->u8
<= v2
->u16
;
2036 res
->u8
= v1
->u8
<= v2
->i32
;
2039 res
->u8
= v1
->u8
<= v2
->u32
;
2042 res
->u8
= v1
->u8
<= v2
->i64
;
2045 res
->u8
= v1
->u8
<= v2
->u64
;
2048 res
->u8
= v1
->u8
<= v2
->fval
;
2051 res
->u8
= v1
->u8
<= v2
->dval
;
2053 # if HAVE_LONG_DOUBLE
2054 case PSI_T_LONG_DOUBLE
:
2055 res
->u8
= v1
->u8
<= v2
->ldval
;
2067 res
->u8
= v1
->i16
<= v2
->i8
;
2070 res
->u8
= v1
->i16
<= v2
->u8
;
2073 res
->u8
= v1
->i16
<= v2
->i16
;
2076 res
->u8
= v1
->i16
<= v2
->u16
;
2079 res
->u8
= v1
->i16
<= v2
->i32
;
2082 res
->u8
= v1
->i16
<= v2
->u32
;
2085 res
->u8
= v1
->i16
<= v2
->i64
;
2088 res
->u8
= v1
->i16
<= v2
->u64
;
2091 res
->u8
= v1
->i16
<= v2
->fval
;
2094 res
->u8
= v1
->i16
<= v2
->dval
;
2096 # if HAVE_LONG_DOUBLE
2097 case PSI_T_LONG_DOUBLE
:
2098 res
->u8
= v1
->i16
<= v2
->ldval
;
2110 res
->u8
= v1
->u16
<= v2
->i8
;
2113 res
->u8
= v1
->u16
<= v2
->u8
;
2116 res
->u8
= v1
->u16
<= v2
->i16
;
2119 res
->u8
= v1
->u16
<= v2
->u16
;
2122 res
->u8
= v1
->u16
<= v2
->i32
;
2125 res
->u8
= v1
->u16
<= v2
->u32
;
2128 res
->u8
= v1
->u16
<= v2
->i64
;
2131 res
->u8
= v1
->u16
<= v2
->u64
;
2134 res
->u8
= v1
->u16
<= v2
->fval
;
2137 res
->u8
= v1
->u16
<= v2
->dval
;
2139 # if HAVE_LONG_DOUBLE
2140 case PSI_T_LONG_DOUBLE
:
2141 res
->u8
= v1
->u16
<= v2
->ldval
;
2153 res
->u8
= v1
->i32
<= v2
->i8
;
2156 res
->u8
= v1
->i32
<= v2
->u8
;
2159 res
->u8
= v1
->i32
<= v2
->i16
;
2162 res
->u8
= v1
->i32
<= v2
->u16
;
2165 res
->u8
= v1
->i32
<= v2
->i32
;
2168 res
->u8
= v1
->i32
<= v2
->u32
;
2171 res
->u8
= v1
->i32
<= v2
->i64
;
2174 res
->u8
= v1
->i32
<= v2
->u64
;
2177 res
->u8
= v1
->i32
<= v2
->fval
;
2180 res
->u8
= v1
->i32
<= v2
->dval
;
2182 # if HAVE_LONG_DOUBLE
2183 case PSI_T_LONG_DOUBLE
:
2184 res
->u8
= v1
->i32
<= v2
->ldval
;
2196 res
->u8
= v1
->u32
<= v2
->i8
;
2199 res
->u8
= v1
->u32
<= v2
->u8
;
2202 res
->u8
= v1
->u32
<= v2
->i16
;
2205 res
->u8
= v1
->u32
<= v2
->u16
;
2208 res
->u8
= v1
->u32
<= v2
->i32
;
2211 res
->u8
= v1
->u32
<= v2
->u32
;
2214 res
->u8
= v1
->u32
<= v2
->i64
;
2217 res
->u8
= v1
->u32
<= v2
->u64
;
2220 res
->u8
= v1
->u32
<= v2
->fval
;
2223 res
->u8
= v1
->u32
<= v2
->dval
;
2225 # if HAVE_LONG_DOUBLE
2226 case PSI_T_LONG_DOUBLE
:
2227 res
->u8
= v1
->u32
<= v2
->ldval
;
2239 res
->u8
= v1
->i64
<= v2
->i8
;
2242 res
->u8
= v1
->i64
<= v2
->u8
;
2245 res
->u8
= v1
->i64
<= v2
->i16
;
2248 res
->u8
= v1
->i64
<= v2
->u16
;
2251 res
->u8
= v1
->i64
<= v2
->i32
;
2254 res
->u8
= v1
->i64
<= v2
->u32
;
2257 res
->u8
= v1
->i64
<= v2
->i64
;
2260 res
->u8
= v1
->i64
<= v2
->u64
;
2263 res
->u8
= v1
->i64
<= v2
->fval
;
2266 res
->u8
= v1
->i64
<= v2
->dval
;
2268 # if HAVE_LONG_DOUBLE
2269 case PSI_T_LONG_DOUBLE
:
2270 res
->u8
= v1
->i64
<= v2
->ldval
;
2282 res
->u8
= v1
->u64
<= v2
->i8
;
2285 res
->u8
= v1
->u64
<= v2
->u8
;
2288 res
->u8
= v1
->u64
<= v2
->i16
;
2291 res
->u8
= v1
->u64
<= v2
->u16
;
2294 res
->u8
= v1
->u64
<= v2
->i32
;
2297 res
->u8
= v1
->u64
<= v2
->u32
;
2300 res
->u8
= v1
->u64
<= v2
->i64
;
2303 res
->u8
= v1
->u64
<= v2
->u64
;
2306 res
->u8
= v1
->u64
<= v2
->fval
;
2309 res
->u8
= v1
->u64
<= v2
->dval
;
2311 # if HAVE_LONG_DOUBLE
2312 case PSI_T_LONG_DOUBLE
:
2313 res
->u8
= v1
->u64
<= v2
->ldval
;
2325 res
->u8
= v1
->fval
<= v2
->i8
;
2328 res
->u8
= v1
->fval
<= v2
->u8
;
2331 res
->u8
= v1
->fval
<= v2
->i16
;
2334 res
->u8
= v1
->fval
<= v2
->u16
;
2337 res
->u8
= v1
->fval
<= v2
->i32
;
2340 res
->u8
= v1
->fval
<= v2
->u32
;
2343 res
->u8
= v1
->fval
<= v2
->i64
;
2346 res
->u8
= v1
->fval
<= v2
->u64
;
2349 res
->u8
= v1
->fval
<= v2
->fval
;
2352 res
->u8
= v1
->fval
<= v2
->dval
;
2354 # if HAVE_LONG_DOUBLE
2355 case PSI_T_LONG_DOUBLE
:
2356 res
->u8
= v1
->fval
<= v2
->ldval
;
2368 res
->u8
= v1
->dval
<= v2
->i8
;
2371 res
->u8
= v1
->dval
<= v2
->u8
;
2374 res
->u8
= v1
->dval
<= v2
->i16
;
2377 res
->u8
= v1
->dval
<= v2
->u16
;
2380 res
->u8
= v1
->dval
<= v2
->i32
;
2383 res
->u8
= v1
->dval
<= v2
->u32
;
2386 res
->u8
= v1
->dval
<= v2
->i64
;
2389 res
->u8
= v1
->dval
<= v2
->u64
;
2392 res
->u8
= v1
->dval
<= v2
->fval
;
2395 res
->u8
= v1
->dval
<= v2
->dval
;
2397 # if HAVE_LONG_DOUBLE
2398 case PSI_T_LONG_DOUBLE
:
2399 res
->u8
= v1
->dval
<= v2
->ldval
;
2408 #if HAVE_LONG_DOUBLE
2409 case PSI_T_LONG_DOUBLE
:
2412 res
->u8
= v1
->ldval
<= v2
->i8
;
2415 res
->u8
= v1
->ldval
<= v2
->u8
;
2418 res
->u8
= v1
->ldval
<= v2
->i16
;
2421 res
->u8
= v1
->ldval
<= v2
->u16
;
2424 res
->u8
= v1
->ldval
<= v2
->i32
;
2427 res
->u8
= v1
->ldval
<= v2
->u32
;
2430 res
->u8
= v1
->ldval
<= v2
->i64
;
2433 res
->u8
= v1
->ldval
<= v2
->u64
;
2436 res
->u8
= v1
->ldval
<= v2
->fval
;
2439 res
->u8
= v1
->ldval
<= v2
->dval
;
2441 # if HAVE_LONG_DOUBLE
2442 case PSI_T_LONG_DOUBLE
:
2443 res
->u8
= v1
->ldval
<= v2
->ldval
;
2461 static inline token_t
psi_calc_cmp_ge(token_t t1
, impl_val
*v1
, token_t t2
, impl_val
*v2
, impl_val
*res
)
2467 res
->u8
= v1
->i8
>= v2
->i8
;
2470 res
->u8
= v1
->i8
>= v2
->u8
;
2473 res
->u8
= v1
->i8
>= v2
->i16
;
2476 res
->u8
= v1
->i8
>= v2
->u16
;
2479 res
->u8
= v1
->i8
>= v2
->i32
;
2482 res
->u8
= v1
->i8
>= v2
->u32
;
2485 res
->u8
= v1
->i8
>= v2
->i64
;
2488 res
->u8
= v1
->i8
>= v2
->u64
;
2491 res
->u8
= v1
->i8
>= v2
->fval
;
2494 res
->u8
= v1
->i8
>= v2
->dval
;
2496 # if HAVE_LONG_DOUBLE
2497 case PSI_T_LONG_DOUBLE
:
2498 res
->u8
= v1
->i8
>= v2
->ldval
;
2510 res
->u8
= v1
->u8
>= v2
->i8
;
2513 res
->u8
= v1
->u8
>= v2
->u8
;
2516 res
->u8
= v1
->u8
>= v2
->i16
;
2519 res
->u8
= v1
->u8
>= v2
->u16
;
2522 res
->u8
= v1
->u8
>= v2
->i32
;
2525 res
->u8
= v1
->u8
>= v2
->u32
;
2528 res
->u8
= v1
->u8
>= v2
->i64
;
2531 res
->u8
= v1
->u8
>= v2
->u64
;
2534 res
->u8
= v1
->u8
>= v2
->fval
;
2537 res
->u8
= v1
->u8
>= v2
->dval
;
2539 # if HAVE_LONG_DOUBLE
2540 case PSI_T_LONG_DOUBLE
:
2541 res
->u8
= v1
->u8
>= v2
->ldval
;
2553 res
->u8
= v1
->i16
>= v2
->i8
;
2556 res
->u8
= v1
->i16
>= v2
->u8
;
2559 res
->u8
= v1
->i16
>= v2
->i16
;
2562 res
->u8
= v1
->i16
>= v2
->u16
;
2565 res
->u8
= v1
->i16
>= v2
->i32
;
2568 res
->u8
= v1
->i16
>= v2
->u32
;
2571 res
->u8
= v1
->i16
>= v2
->i64
;
2574 res
->u8
= v1
->i16
>= v2
->u64
;
2577 res
->u8
= v1
->i16
>= v2
->fval
;
2580 res
->u8
= v1
->i16
>= v2
->dval
;
2582 # if HAVE_LONG_DOUBLE
2583 case PSI_T_LONG_DOUBLE
:
2584 res
->u8
= v1
->i16
>= v2
->ldval
;
2596 res
->u8
= v1
->u16
>= v2
->i8
;
2599 res
->u8
= v1
->u16
>= v2
->u8
;
2602 res
->u8
= v1
->u16
>= v2
->i16
;
2605 res
->u8
= v1
->u16
>= v2
->u16
;
2608 res
->u8
= v1
->u16
>= v2
->i32
;
2611 res
->u8
= v1
->u16
>= v2
->u32
;
2614 res
->u8
= v1
->u16
>= v2
->i64
;
2617 res
->u8
= v1
->u16
>= v2
->u64
;
2620 res
->u8
= v1
->u16
>= v2
->fval
;
2623 res
->u8
= v1
->u16
>= v2
->dval
;
2625 # if HAVE_LONG_DOUBLE
2626 case PSI_T_LONG_DOUBLE
:
2627 res
->u8
= v1
->u16
>= v2
->ldval
;
2639 res
->u8
= v1
->i32
>= v2
->i8
;
2642 res
->u8
= v1
->i32
>= v2
->u8
;
2645 res
->u8
= v1
->i32
>= v2
->i16
;
2648 res
->u8
= v1
->i32
>= v2
->u16
;
2651 res
->u8
= v1
->i32
>= v2
->i32
;
2654 res
->u8
= v1
->i32
>= v2
->u32
;
2657 res
->u8
= v1
->i32
>= v2
->i64
;
2660 res
->u8
= v1
->i32
>= v2
->u64
;
2663 res
->u8
= v1
->i32
>= v2
->fval
;
2666 res
->u8
= v1
->i32
>= v2
->dval
;
2668 # if HAVE_LONG_DOUBLE
2669 case PSI_T_LONG_DOUBLE
:
2670 res
->u8
= v1
->i32
>= v2
->ldval
;
2682 res
->u8
= v1
->u32
>= v2
->i8
;
2685 res
->u8
= v1
->u32
>= v2
->u8
;
2688 res
->u8
= v1
->u32
>= v2
->i16
;
2691 res
->u8
= v1
->u32
>= v2
->u16
;
2694 res
->u8
= v1
->u32
>= v2
->i32
;
2697 res
->u8
= v1
->u32
>= v2
->u32
;
2700 res
->u8
= v1
->u32
>= v2
->i64
;
2703 res
->u8
= v1
->u32
>= v2
->u64
;
2706 res
->u8
= v1
->u32
>= v2
->fval
;
2709 res
->u8
= v1
->u32
>= v2
->dval
;
2711 # if HAVE_LONG_DOUBLE
2712 case PSI_T_LONG_DOUBLE
:
2713 res
->u8
= v1
->u32
>= v2
->ldval
;
2725 res
->u8
= v1
->i64
>= v2
->i8
;
2728 res
->u8
= v1
->i64
>= v2
->u8
;
2731 res
->u8
= v1
->i64
>= v2
->i16
;
2734 res
->u8
= v1
->i64
>= v2
->u16
;
2737 res
->u8
= v1
->i64
>= v2
->i32
;
2740 res
->u8
= v1
->i64
>= v2
->u32
;
2743 res
->u8
= v1
->i64
>= v2
->i64
;
2746 res
->u8
= v1
->i64
>= v2
->u64
;
2749 res
->u8
= v1
->i64
>= v2
->fval
;
2752 res
->u8
= v1
->i64
>= v2
->dval
;
2754 # if HAVE_LONG_DOUBLE
2755 case PSI_T_LONG_DOUBLE
:
2756 res
->u8
= v1
->i64
>= v2
->ldval
;
2768 res
->u8
= v1
->u64
>= v2
->i8
;
2771 res
->u8
= v1
->u64
>= v2
->u8
;
2774 res
->u8
= v1
->u64
>= v2
->i16
;
2777 res
->u8
= v1
->u64
>= v2
->u16
;
2780 res
->u8
= v1
->u64
>= v2
->i32
;
2783 res
->u8
= v1
->u64
>= v2
->u32
;
2786 res
->u8
= v1
->u64
>= v2
->i64
;
2789 res
->u8
= v1
->u64
>= v2
->u64
;
2792 res
->u8
= v1
->u64
>= v2
->fval
;
2795 res
->u8
= v1
->u64
>= v2
->dval
;
2797 # if HAVE_LONG_DOUBLE
2798 case PSI_T_LONG_DOUBLE
:
2799 res
->u8
= v1
->u64
>= v2
->ldval
;
2811 res
->u8
= v1
->fval
>= v2
->i8
;
2814 res
->u8
= v1
->fval
>= v2
->u8
;
2817 res
->u8
= v1
->fval
>= v2
->i16
;
2820 res
->u8
= v1
->fval
>= v2
->u16
;
2823 res
->u8
= v1
->fval
>= v2
->i32
;
2826 res
->u8
= v1
->fval
>= v2
->u32
;
2829 res
->u8
= v1
->fval
>= v2
->i64
;
2832 res
->u8
= v1
->fval
>= v2
->u64
;
2835 res
->u8
= v1
->fval
>= v2
->fval
;
2838 res
->u8
= v1
->fval
>= v2
->dval
;
2840 # if HAVE_LONG_DOUBLE
2841 case PSI_T_LONG_DOUBLE
:
2842 res
->u8
= v1
->fval
>= v2
->ldval
;
2854 res
->u8
= v1
->dval
>= v2
->i8
;
2857 res
->u8
= v1
->dval
>= v2
->u8
;
2860 res
->u8
= v1
->dval
>= v2
->i16
;
2863 res
->u8
= v1
->dval
>= v2
->u16
;
2866 res
->u8
= v1
->dval
>= v2
->i32
;
2869 res
->u8
= v1
->dval
>= v2
->u32
;
2872 res
->u8
= v1
->dval
>= v2
->i64
;
2875 res
->u8
= v1
->dval
>= v2
->u64
;
2878 res
->u8
= v1
->dval
>= v2
->fval
;
2881 res
->u8
= v1
->dval
>= v2
->dval
;
2883 # if HAVE_LONG_DOUBLE
2884 case PSI_T_LONG_DOUBLE
:
2885 res
->u8
= v1
->dval
>= v2
->ldval
;
2894 #if HAVE_LONG_DOUBLE
2895 case PSI_T_LONG_DOUBLE
:
2898 res
->u8
= v1
->ldval
>= v2
->i8
;
2901 res
->u8
= v1
->ldval
>= v2
->u8
;
2904 res
->u8
= v1
->ldval
>= v2
->i16
;
2907 res
->u8
= v1
->ldval
>= v2
->u16
;
2910 res
->u8
= v1
->ldval
>= v2
->i32
;
2913 res
->u8
= v1
->ldval
>= v2
->u32
;
2916 res
->u8
= v1
->ldval
>= v2
->i64
;
2919 res
->u8
= v1
->ldval
>= v2
->u64
;
2922 res
->u8
= v1
->ldval
>= v2
->fval
;
2925 res
->u8
= v1
->ldval
>= v2
->dval
;
2927 # if HAVE_LONG_DOUBLE
2928 case PSI_T_LONG_DOUBLE
:
2929 res
->u8
= v1
->ldval
>= v2
->ldval
;