Mercurial > emacs
comparison src/alloc.c @ 35762:e197a82c3286
(Fmake_list): Add a QUIT in the loop; unroll the loop.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Wed, 31 Jan 2001 12:22:25 +0000 |
parents | b9366f467430 |
children | 5a989d353a68 |
comparison
equal
deleted
inserted
replaced
35761:9c27903fdec4 | 35762:e197a82c3286 |
---|---|
2140 | 2140 |
2141 CHECK_NATNUM (length, 0); | 2141 CHECK_NATNUM (length, 0); |
2142 size = XFASTINT (length); | 2142 size = XFASTINT (length); |
2143 | 2143 |
2144 val = Qnil; | 2144 val = Qnil; |
2145 while (size-- > 0) | 2145 while (size > 0) |
2146 val = Fcons (init, val); | 2146 { |
2147 val = Fcons (init, val); | |
2148 --size; | |
2149 | |
2150 if (size > 0) | |
2151 { | |
2152 val = Fcons (init, val); | |
2153 --size; | |
2154 | |
2155 if (size > 0) | |
2156 { | |
2157 val = Fcons (init, val); | |
2158 --size; | |
2159 | |
2160 if (size > 0) | |
2161 { | |
2162 val = Fcons (init, val); | |
2163 --size; | |
2164 | |
2165 if (size > 0) | |
2166 { | |
2167 val = Fcons (init, val); | |
2168 --size; | |
2169 } | |
2170 } | |
2171 } | |
2172 } | |
2173 | |
2174 QUIT; | |
2175 } | |
2176 | |
2147 return val; | 2177 return val; |
2148 } | 2178 } |
2149 | 2179 |
2150 | 2180 |
2151 | 2181 |