paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +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 Interface
{$Mode ObjFpc}
Const Const
{$IFDEF OS2} {$IFDEF OS2}
REXX='REXX'; REXX='REXX';
@ -295,7 +297,7 @@ Function RexxStart(ArgC: Longint; // Num of args passed to rexx
Env: PChar; // ASCIIZ initial environment. Env: PChar; // ASCIIZ initial environment.
rType: Longint; // type (command,subrtn,funct) rType: Longint; // type (command,subrtn,funct)
Exit_: PRXSYSEXIT; // SysExit env. names & codes 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 RetVal: PRXSTRING): Longint; cdecl; // Retvalue from the rexx proc
Function RexxStart(ArgC: Longint; // Num of args passed to rexx 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. Env: PChar; // ASCIIZ initial environment.
rType: Longint; // type (command,subrtn,funct) rType: Longint; // type (command,subrtn,funct)
Exit_: PRXSYSEXIT; // SysExit env. names & codes 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 var RetVal: RXSTRING): Longint; cdecl; // Retvalue from the rexx proc
// Subcommand Interface // Subcommand Interface
@ -872,7 +874,10 @@ End.
{ {
$Log$ $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 * incorrect type (integer x word) fixed
Revision 1.1 2003/02/15 11:44:58 hajny Revision 1.1 2003/02/15 11:44:58 hajny