annotate src/testdir/test33.in @ 10658:77d66e9ac0ab v8.0.0219

patch 8.0.0219: ubsan reports errors for overflow commit https://github.com/vim/vim/commit/7a40ea2138102545848ea86a361f1b8dec7552b5 Author: Bram Moolenaar <Bram@vim.org> Date: Sun Jan 22 18:34:57 2017 +0100 patch 8.0.0219: ubsan reports errors for overflow Problem: Ubsan reports errors for integer overflow. Solution: Define macros for minimum and maximum values. Select an expression based on the value. (Mike Williams)
author Christian Brabandt <cb@256bit.org>
date Sun, 22 Jan 2017 18:45:04 +0100
parents 3fc0f57ecb91
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1 Test for 'lisp'
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2 If the lisp feature is not enabled, this will fail!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4 STARTTEST
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5 :so small.vim
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6 :set lisp
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7 /^(defun
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8 =G:/^(defun/,$w! test.out
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
9 :q!
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10 ENDTEST
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 (defun html-file (base)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13 (format nil "~(~A~).html" base))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15 (defmacro page (name title &rest body)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16 (let ((ti (gensym)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
17 `(with-open-file (*standard-output*
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
18 (html-file ,name)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19 :direction :output
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20 :if-exists :supersede)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
21 (let ((,ti ,title))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
22 (as title ,ti)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
23 (with center
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
24 (as h2 (string-upcase ,ti)))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
25 (brs 3)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
26 ,@body))))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28 ;;; Utilities for generating links
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
29
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
30 (defmacro with-link (dest &rest body)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
31 `(progn
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
32 (format t "<a href=\"~A\">" (html-file ,dest))
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
33 ,@body
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
34 (princ "</a>")))