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

* Added missed part of integer x word fix

Browse Source
This commit is contained in:
yuri 2003-11-14 09:34:35 +00:00
parent 16834b1854
commit 09f64cba2c
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -38,6 +38,8 @@ Unit RexxSAA;
Interface
{$Mode ObjFpc}
Const
{$IFDEF OS2}
REXX='REXX';
@ -295,7 +297,7 @@ Function RexxStart(ArgC: Longint; // Num of args passed to rexx
Env: PChar; // ASCIIZ initial environment.
rType: Longint; // type (command,subrtn,funct)
Exit_: PRXSYSEXIT; // SysExit env. names & codes
Ret: PWord; // Ret code from if numeric
Ret: PInteger; // Ret code from if numeric
RetVal: PRXSTRING): Longint; cdecl; // Retvalue from the rexx proc
Function RexxStart(ArgC: Longint; // Num of args passed to rexx
@ -305,7 +307,7 @@ Function RexxStart(ArgC: Longint; // Num of args passed to rexx
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
var Ret: Integer; // Ret code from if numeric
var RetVal: RXSTRING): Longint; cdecl; // Retvalue from the rexx proc
// Subcommand Interface
@ -872,7 +874,10 @@ End.
{
$Log$
Revision 1.2 2003-11-07 20:43:23 hajny
Revision 1.3 2003-11-14 09:34:35 yuri
* Added missed part of integer x word fix
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