diff options
| author | Rene Ladan <rene@FreeBSD.org> | 2024-04-10 21:11:35 +0200 |
|---|---|---|
| committer | Rene Ladan <rene@FreeBSD.org> | 2024-04-10 21:12:09 +0200 |
| commit | 820bb223f0f2e0239ea6e1719161c76f0d1ad7ca (patch) | |
| tree | 4d936bd8a70dfd8febd1cf9dc12151fa5e8992a1 /lang/qscheme/files/patch-number.i | |
| parent | Mk/Scripts/do-users-groups.sh: Make message endings consistent (cleanup) (diff) | |
lang/qscheme: Remove expired port
2024-04-10 lang/qscheme: Unmaintained and there are more modern alternatives
Diffstat (limited to 'lang/qscheme/files/patch-number.i')
| -rw-r--r-- | lang/qscheme/files/patch-number.i | 42 |
1 files changed, 0 insertions, 42 deletions
diff --git a/lang/qscheme/files/patch-number.i b/lang/qscheme/files/patch-number.i deleted file mode 100644 index 69e1924af5f5..000000000000 --- a/lang/qscheme/files/patch-number.i +++ /dev/null @@ -1,42 +0,0 @@ ---- number.i.orig 2000-06-10 01:41:00.000000000 +0300 -+++ number.i 2009-03-03 17:04:01.000000000 +0200 -@@ -562,7 +562,8 @@ - Prim(plus1, "1+", 1) - { - if (SCM_INUMP(TOS) && (SCM_INUM(TOS) < SOBJ_INUM_MAX)) { -- (long)TOS += (1 << SOBJ_INUM_SHIFT); -+ /*(long)TOS += (1 << SOBJ_INUM_SHIFT);*/ -+ TOS = (long)TOS + (long)(1 << SOBJ_INUM_SHIFT); - NEXT; - } - TOS = scm_add2(SCM_MKINUM(1), TOS); -@@ -574,7 +575,8 @@ - Prim(plus2, "2+", 1) - { - if (SCM_INUMP(TOS) && (SCM_INUM(TOS) < SOBJ_INUM_MAX)) { -- (long)TOS += (2 << SOBJ_INUM_SHIFT); -+ /*(long)TOS += (2 << SOBJ_INUM_SHIFT);*/ -+ TOS = (long)TOS + (long)(2 << SOBJ_INUM_SHIFT); - NEXT; - } - TOS = scm_add2(SCM_MKINUM(2), TOS); -@@ -586,7 +588,8 @@ - Prim(minus1, "1-", 1) - { - if (SCM_INUMP(TOS) && (SCM_INUM(TOS) > SOBJ_INUM_MIN)) { -- (long)TOS += (-1 << SOBJ_INUM_SHIFT); -+ /*(long)TOS += (-1 << SOBJ_INUM_SHIFT);*/ -+ TOS = (long)TOS + (long)(-1 << SOBJ_INUM_SHIFT); - NEXT; - } - TOS = scm_sub2(TOS, SCM_MKINUM(1)); -@@ -598,7 +601,8 @@ - Prim(minus2, "2-", 1) - { - if (SCM_INUMP(TOS) && (SCM_INUM(TOS) > SOBJ_INUM_MIN)) { -- (long)TOS += (-2 << SOBJ_INUM_SHIFT); -+ /*(long)TOS += (-2 << SOBJ_INUM_SHIFT);*/ -+ TOS = (long)TOS + (long)(-2 << SOBJ_INUM_SHIFT); - NEXT; - } - TOS = scm_sub2(TOS, SCM_MKINUM(2)); |