From 1124bd2690649b6555ec5787edecf9e668fb6ed1 Mon Sep 17 00:00:00 2001 From: Tomas Hajny Date: Fri, 7 Nov 2003 20:43:23 +0000 Subject: [PATCH] * incorrect type (integer x word) fixed --- packages/extra/rexx/rexxsaa.pp | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/packages/extra/rexx/rexxsaa.pp b/packages/extra/rexx/rexxsaa.pp index 17a1d5e6d7..63d6eee256 100644 --- a/packages/extra/rexx/rexxsaa.pp +++ b/packages/extra/rexx/rexxsaa.pp @@ -667,8 +667,8 @@ Function RexxStart(ArgC: Longint; // Num of args passed to rexx Proc: PRXSTRING; // Loc of rexx proc in memory Env: PChar; // ASCIIZ initial environment. rType: Longint; // type (command,subrtn,funct) - Exit_: PRXSYSEXIT; // SysExit env. names & codes - Ret: PWord; // Ret code from if numeric + Exit_: PRXSYSEXIT; // SysExit env. names & codes + Ret: PInteger; // Ret code from if numeric RetVal: PRXSTRING): Longint; cdecl; // Retvalue from the rexx proc external REXX name 'RexxStart'; @@ -678,8 +678,8 @@ Function RexxStart(ArgC: Longint; // Num of args passed to rexx Proc: PRXSTRING; // Loc of rexx proc in memory Env: PChar; // ASCIIZ initial environment. rType: Longint; // type (command,subrtn,funct) - Exit_: PRXSYSEXIT; // SysExit env. names & codes - var Ret: Word; // Ret code from if numeric + Exit_: PRXSYSEXIT; // SysExit env. names & codes + var Ret: integer; // Ret code from if numeric var RetVal: RXSTRING): Longint; cdecl; // Retvalue from the rexx proc external REXX name 'RexxStart'; @@ -872,7 +872,10 @@ End. { $Log$ -Revision 1.1 2003-02-15 11:44:58 hajny +Revision 1.2 2003-11-07 20:43:23 hajny + * incorrect type (integer x word) fixed + +Revision 1.1 2003/02/15 11:44:58 hajny + REXX SAA interface added }