diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2003-10-29 06:00:18 -0800 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-11-02 18:22:16 +0000 |
| commit | 59ad941d06909cf9027c5fb10edca7d68fc7149b (patch) | |
| tree | 31cbe92fcf6d4df0a555139b93ead70dafd6824d /os2/OS2 | |
| parent | df500c58e3444bfdd2437855ea268d802281b50e (diff) | |
| download | perl-59ad941d06909cf9027c5fb10edca7d68fc7149b.tar.gz | |
OS/2 build
Message-ID: <20031029220017.GA26384@math.berkeley.edu>
p4raw-id: //depot/perl@21620
Diffstat (limited to 'os2/OS2')
| -rw-r--r-- | os2/OS2/REXX/REXX.xs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/os2/OS2/REXX/REXX.xs b/os2/OS2/REXX/REXX.xs index 10ee7ece2b..43bdcac144 100644 --- a/os2/OS2/REXX/REXX.xs +++ b/os2/OS2/REXX/REXX.xs @@ -52,6 +52,8 @@ static LONG APIENTRY (*pRexxStart) (LONG, PRXSTRING, PSZ, PRXSTRING, PSZ, LONG, PRXSYSEXIT, PSHORT, PRXSTRING); static APIRET APIENTRY (*pRexxRegisterFunctionExe) (PSZ, RexxFunctionHandler *); +static APIRET APIENTRY (*pRexxRegisterSubcomExe) (PCSZ pszEnvName, PFN pfnEntryPoint, + PUCHAR pUserArea); static APIRET APIENTRY (*pRexxDeregisterFunction) (PSZ); static ULONG (*pRexxVariablePool) (PSHVBLOCK pRequest); @@ -313,11 +315,13 @@ initialize(void) *(PFN *)&pRexxDeregisterFunction = loadByOrdinal(ORD_RexxDeregisterFunction, 1); *(PFN *)&pRexxVariablePool = loadByOrdinal(ORD_RexxVariablePool, 1); + *(PFN *)&pRexxRegisterSubcomExe + = loadByOrdinal(ORD_RexxRegisterSubcomExe, 1); needstrs(8); needvars(8); trace = getenv("PERL_REXX_DEBUG"); - rc = RexxRegisterSubcomExe("PERLEVAL", (PFN)&SubCommandPerlEval, NULL); + rc = pRexxRegisterSubcomExe("PERLEVAL", (PFN)&SubCommandPerlEval, NULL); } static int |