Mercurial > emacs

comparison src/vmsfns.c @ 224:7faa1846e8f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Thu, 04 Apr 1991 19:56:21 +0000
parents db0041ccc1e6
children 3165b2697c78
comparison
equal deleted inserted replaced
223:dbc50aaa4f08 224:7faa1846e8f8
848 848
849 static Lisp_Object 849 static Lisp_Object
850 vms_trnlog (arg1, arg2) 850 vms_trnlog (arg1, arg2)
851 Lisp_Object arg1, arg2; 851 Lisp_Object arg1, arg2;
852 { 852 {
853 char str[100]; 853 char str[256]; /* Max logical translation is 255 bytes. */
854 int status, symdsc[2]; 854 int status, symdsc[2];
855 int strdsc[2] = { sizeof (str), str }; 855 int strdsc[2] = { sizeof (str), str };
856 short length, level; 856 short length, level;
857 857
858 CHECK_STRING (arg1, 0); 858 CHECK_STRING (arg1, 0);
868 868
869 static Lisp_Object 869 static Lisp_Object
870 vms_symbol (arg1, arg2) 870 vms_symbol (arg1, arg2)
871 Lisp_Object arg1, arg2; 871 Lisp_Object arg1, arg2;
872 { 872 {
873 char str[100]; 873 char str[1025]; /* Max symbol translation is 1024 bytes. */
874 int status, symdsc[2]; 874 int status, symdsc[2];
875 int strdsc[2] = { sizeof (str), str }; 875 int strdsc[2] = { sizeof (str), str };
876 short length, level; 876 short length, level;
877 877
878 CHECK_STRING (arg1, 0); 878 CHECK_STRING (arg1, 0);