Mercurial > vim
view src/os_vms_mms.c @ 33101:8cbdd2cbf10a v9.0.1835
patch 9.0.1835: Perl interface has problems with load PL_current_context
Commit: https://github.com/vim/vim/commit/7a9d1aa878d8724e28893b968016b86a3a70c63f
Author: Yee Cheng Chin <ychin.git@gmail.com>
Date: Fri Sep 1 18:46:17 2023 +0200
patch 9.0.1835: Perl interface has problems with load PL_current_context
Problem: Perl interface has problems with load PL_current_context
Solution: Fix Perl interface to load PL_current_context from library
In #12914, in order to fix an issue with Perl 5.36 dynamic builds, (that
version introduced a thread-local `PL_current_context`), the file added
the variable manually so we can satisfy the linker. However, the
variable is a different one from the one in the library, so there could
be unpredictable behavior. Instead, just use `dlsym` to load the context
from the library. The fact that it's thread-local doesn't matter too
much to us because Vim's interface is single-threaded so it will work
properly.
closes: #12996
Signed-off-by: Christian Brabandt <cb@256bit.org>
Co-authored-by: Yee Cheng Chin <ychin.git@gmail.com>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Fri, 01 Sep 2023 19:00:04 +0200 |
parents | 2463194c8cdd |
children |
line wrap: on
line source
#include <stdio.h> #include <stdlib.h> #include <string.h> #include <unixio.h> #include "vim.h" int main(int argc, char *argv[]) { FILE *fpi, *fpo; char cmd[132], buf[BUFSIZ], *argp, *error_file, target[132], *mms; int err = 0, err_line = 0; mms = "mms"; argc--; argv++; while (argc-- > 0) { argp = *argv++; if (*argp == '-') { switch (*++argp) { case 'm': mms = ++argp; break; case 'e': if (!*(error_file = ++argp)) { error_file = *argv++; argc--; } break; default: break; } } else { if (*target) strcat(target, " "); strcat(target, argp); } } vim_snprintf(cmd, sizeof(cmd), "%s/output=tmp:errors.vim_tmp %s", mms, target); system(cmd); fpi = fopen("tmp:errors.vim_tmp", "r"); fpo = fopen(error_file, "w"); while (fgets(buf, BUFSIZ, fpi)) { if (!memcmp(buf, "%CC-", 4)) { err_line++; buf[strlen(buf)-1] = '\0'; err++; } else { if (err_line) { if (strstr(buf, _("At line"))) { err_line = 0; fprintf(fpo, "@"); } else buf[strlen(buf)-1] = '\0'; } } fprintf(fpo, "%s", buf); } fclose(fpi); fclose(fpo); while (!delete("tmp:errors.vim_tmp")) /*nop*/; exit(err ? 44 : 1); return(0); }