Mercurial > emacs
comparison src/vmsfns.c @ 224:7faa1846e8f8
*** 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); |