diff options
| author | Andrea Corallo | 2019-07-06 11:02:52 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:33:49 +0100 |
| commit | 98b500a0a21b486a98bf4e1ae989fd38616164bc (patch) | |
| tree | c0c036525a4eaaf42da6288b422d40cec3ad5e24 /test/src | |
| parent | 4992fba7c56a4e7de8af4e79305883b505a84da4 (diff) | |
| download | emacs-98b500a0a21b486a98bf4e1ae989fd38616164bc.tar.gz emacs-98b500a0a21b486a98bf4e1ae989fd38616164bc.zip | |
optimize outgoing native manyarg calls
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index ef8e57c40c1..d732d558cdd 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -189,7 +189,16 @@ | |||
| 189 | (byte-compile #'comp-tests-ffuncall-native-f) | 189 | (byte-compile #'comp-tests-ffuncall-native-f) |
| 190 | (native-compile #'comp-tests-ffuncall-native-f) | 190 | (native-compile #'comp-tests-ffuncall-native-f) |
| 191 | 191 | ||
| 192 | (should (vectorp (comp-tests-ffuncall-native-f))) | 192 | (should (equal (comp-tests-ffuncall-native-f) [nil])) |
| 193 | |||
| 194 | (defun comp-tests-ffuncall-native-rest-f () | ||
| 195 | "Call a primitive with no dedicate op with &rest." | ||
| 196 | (vector 1 2 3)) | ||
| 197 | |||
| 198 | (byte-compile #'comp-tests-ffuncall-native-rest-f) | ||
| 199 | (native-compile #'comp-tests-ffuncall-native-rest-f) | ||
| 200 | |||
| 201 | (should (equal (comp-tests-ffuncall-native-rest-f) [1 2 3])) | ||
| 193 | 202 | ||
| 194 | (defun comp-tests-ffuncall-apply-many-f (x) | 203 | (defun comp-tests-ffuncall-apply-many-f (x) |
| 195 | (apply #'list x)) | 204 | (apply #'list x)) |