paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* incorrect type (integer x word) fixed

Browse Source
This commit is contained in:
Tomas Hajny 2003-11-07 20:43:23 +00:00
parent 795b479d7b
commit 1124bd2690
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/extra/rexx/rexxsaa.pp
View File

@ -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
}