changeset 19265 | 00b7f10969d7 |
parent 19264 | 11160ea2c8b3 |
child 19278 | 00ed0917a8a0 |
child 19317 | 18904be01e63 |
19264:11160ea2c8b3 | 19265:00b7f10969d7 |
---|---|
2853 %{ /* NOCONTEXT */ |
2853 %{ /* NOCONTEXT */ |
2854 #ifndef __SCHTEAM__ |
2854 #ifndef __SCHTEAM__ |
2855 INT i = __intVal(self); |
2855 INT i = __intVal(self); |
2856 |
2856 |
2857 if (i & 0x800000L) { |
2857 if (i & 0x800000L) { |
2858 i = i | ~0xFFFFFFL; |
2858 i = i | ~((INT)0xFFFFFF); |
2859 } else { |
2859 } else { |
2860 i = i & 0x7FFFFF; |
2860 i = i & 0x7FFFFF; |
2861 } |
2861 } |
2862 |
2862 |
2863 RETURN (__mkSmallInteger(i)); |
2863 RETURN (__mkSmallInteger(i)); |
2879 %{ /* NOCONTEXT */ |
2879 %{ /* NOCONTEXT */ |
2880 #ifndef __SCHTEAM__ |
2880 #ifndef __SCHTEAM__ |
2881 INT i = __intVal(self); |
2881 INT i = __intVal(self); |
2882 |
2882 |
2883 if (i & 0x80) { |
2883 if (i & 0x80) { |
2884 i = i | ~0xFFL; |
2884 i = i | ~((INT)0xFF); |
2885 } else { |
2885 } else { |
2886 i = i & 0x7F; |
2886 i = i & 0x7F; |
2887 } |
2887 } |
2888 |
2888 |
2889 RETURN (__mkSmallInteger(i)); |
2889 RETURN (__mkSmallInteger(i)); |
2905 %{ /* NOCONTEXT */ |
2905 %{ /* NOCONTEXT */ |
2906 #ifndef __SCHTEAM__ |
2906 #ifndef __SCHTEAM__ |
2907 INT i = __intVal(self); |
2907 INT i = __intVal(self); |
2908 |
2908 |
2909 if (i & 0x80000000L) { |
2909 if (i & 0x80000000L) { |
2910 i = i | ~0xFFFFFFFFL; |
2910 i = i | ~((INT)0xFFFFFFFF); |
2911 } else { |
2911 } else { |
2912 i = i & 0x7FFFFFFFL; |
2912 i = i & 0x7FFFFFFFL; |
2913 } |
2913 } |
2914 |
2914 |
2915 RETURN (__MKINT(i)); |
2915 RETURN (__MKINT(i)); |
2931 %{ /* NOCONTEXT */ |
2931 %{ /* NOCONTEXT */ |
2932 #ifndef __SCHTEAM__ |
2932 #ifndef __SCHTEAM__ |
2933 INT i = __intVal(self); |
2933 INT i = __intVal(self); |
2934 |
2934 |
2935 if (i & 0x8000) { |
2935 if (i & 0x8000) { |
2936 i = i | ~0xFFFFL; |
2936 i = i | ~((INT)0xFFFF); |
2937 } else { |
2937 } else { |
2938 i = i & 0x7FFF; |
2938 i = i & 0x7FFF; |
2939 } |
2939 } |
2940 |
2940 |
2941 RETURN (__mkSmallInteger(i)); |
2941 RETURN (__mkSmallInteger(i)); |