iSharkFly-Open
/
fis-gtm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove files deleted from V5.5-000 sources

This commit is contained in:
Amul Shah 2012-06-15 14:09:55 -04:00
parent e7f480d540
commit f3945e7197
18 changed files with 0 additions and 711 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
sr_i386/op_isformal.s
View File

@ -1,47 +0,0 @@
#################################################################
# #
# Copyright 2001, 2002 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
# PAGE ,132
.title op_isformal.s
# .386
# .MODEL FLAT, C
.include "linkage.si"
.INCLUDE "g_msf.si"
.sbttl op_isformal
# PAGE +
.DATA
.extern ERR_ACTLSTEXP
.extern frame_pointer
.text
.extern rts_error
# PUBLIC op_isformal
ENTRY op_isformal
movl frame_pointer,%edx
movw msf_typ_off(%edx),%ax
andw $~SFT_EXTFUN,msf_typ_off(%edx)
andw $SFT_EXTFUN,%ax
je l1
ret
l1: putframe
pushl ERR_ACTLSTEXP
pushl $1
call rts_error
addl $8,%esp
ret
# op_isformal ENDP
# END

40
sr_i386/zl_lab_err.s
View File

@ -1,40 +0,0 @@
#################################################################
# #
# Copyright 2001 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
# PAGE ,132
.title zl_lab_err.s
# .386
# .MODEL FLAT, C
.include "linkage.si"
.INCLUDE "g_msf.si"
.sbttl zl_lab_err
# PAGE +
.DATA
.extern ERR_LABELUNKNOWN
.extern frame_pointer
.text
.extern op_rterror
# PUBLIC zl_lab_err
ENTRY zl_lab_err
pushl $0
pushl ERR_LABELUNKNOWN
call op_rterror
addl $8,%esp
getframe
ret
# zl_lab_err ENDP
# END

24
sr_port/get_root.c
View File

@ -1,24 +0,0 @@
/****************************************************************
* *
* Copyright 2001 Sanchez Computer Associates, Inc. *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gdsroot.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "get_root.h"
GBLREF gv_namehead *gv_target;
int get_root(void)
{ return(gv_target->root);
}

42
sr_port/intexpr.c
View File

@ -1,42 +0,0 @@
/****************************************************************
* *
* Copyright 2001, 2010 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "compiler.h"
#include "opcode.h"
int intexpr(oprtype *a)
{
triple *triptr;
int4 rval;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
if (!(TREF(expr_depth))++)
TREF(expr_start) = TREF(expr_start_orig) = NULL;
if (!(rval = eval_expr(a)))
{
TREF(expr_depth) = 0;
return FALSE;
}
coerce(a,OCT_MINT);
ex_tail(a);
if (!(--(TREF(expr_depth))))
TREF(shift_side_effects) = FALSE;
if (TREF(expr_start) != TREF(expr_start_orig))
{
triptr = newtriple(OC_GVRECTARG);
triptr->operand[0] = put_tref(TREF(expr_start));
}
return rval;
}

57
sr_port/io_find_mvstent.c
View File

@ -1,57 +0,0 @@
/****************************************************************
* *
* Copyright 2007, 2009 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gt_timer.h"
#include "io.h"
#include "iotimer.h"
#include "iotcpdef.h"
#include "iosocketdef.h"
#include "rtnhdr.h"
#include "mv_stent.h"
#include "stack_frame.h"
GBLREF mv_stent *mv_chain;
GBLREF stack_frame *frame_pointer;
GBLREF unsigned char *stackbase, *stacktop, *msp, *stackwarn;
/* Find and optionally clear the mv_stent keeping interrupted device information for us */
mv_stent *io_find_mvstent(io_desc *io_ptr, boolean_t clear_mvstent)
{
mv_stent *mvc, *mv_zintdev;
assert(msp <= stackbase && msp > stacktop);
assert(mv_chain <= (mv_stent *)stackbase && mv_chain > (mv_stent *)stacktop);
assert(frame_pointer <= (stack_frame *)stackbase && frame_pointer > (stack_frame *)stacktop);
mv_zintdev = NULL;
for (mvc = mv_chain; mvc < (mv_stent *)frame_pointer ; mvc = (mv_stent *)(mvc->mv_st_next + (char *)mvc))
{
if (MVST_ZINTDEV == mvc->mv_st_type && io_ptr == mvc->mv_st_cont.mvs_zintdev.io_ptr)
{
mv_zintdev = mvc;
break;
}
if (!mvc->mv_st_next)
GTMASSERT;
}
if (mv_zintdev && clear_mvstent)
{
if (mv_chain == mv_zintdev)
POP_MV_STENT(); /* just pop if top of stack */
else
{
mv_zintdev->mv_st_cont.mvs_zintdev.io_ptr = NULL;
mv_zintdev->mv_st_cont.mvs_zintdev.buffer_valid = FALSE;
}
}
return mv_zintdev;
}

38
sr_port/jnl_setver.c
View File

@ -1,38 +0,0 @@
/****************************************************************
* *
* Copyright 2001, 2009 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gdsroot.h"
#include "gdsblk.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "filestruct.h"
#include "jnl.h"
GBLREF unsigned char jnl_ver;
void jnl_setver(void)
{
char *jnl_label = JNL_LABEL_TEXT;
unsigned char jnl_ver_lower, jnl_ver_higher;
jnl_ver_lower = jnl_label[SIZEOF(JNL_LABEL_TEXT) - 2] - '0';
assert('\012' > jnl_ver_lower); /* assert(10 > jnl_ver_lower); */
jnl_ver_higher = jnl_label[SIZEOF(JNL_LABEL_TEXT) - 3] - '0';
assert('\012' > jnl_ver_higher); /* assert(10 > jnl_ver_higher); */
jnl_ver = jnl_ver_higher * 10 + jnl_ver_lower;
assert(JNL_VER_THIS == jnl_ver);
assert(JNL_VER_EARLIEST_REPL <= jnl_ver);
return;
}

17
sr_port/mu_file_size.h
View File

@ -1,17 +0,0 @@
/****************************************************************
* *
* Copyright 2001 Sanchez Computer Associates, Inc. *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#ifndef MU_FILE_SIZE_INCLUDED
#define MU_FILE_SIZE_INCLUDED
unsigned int mu_file_size(file_control *fc);
#endif /* MU_FILE_SIZE_INCLUDED */

42
sr_port/numexpr.c
View File

@ -1,42 +0,0 @@
/****************************************************************
* *
* Copyright 2001, 2010 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "compiler.h"
#include "opcode.h"
int numexpr(oprtype *a)
{
triple *triptr;
int4 rval;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
if (!(TREF(expr_depth))++)
TREF(expr_start) = TREF(expr_start_orig) = NULL;
if (!(rval = eval_expr(a)))
{
TREF(expr_depth) = 0;
return FALSE;
}
coerce(a,OCT_MVAL);
ex_tail(a);
if (!(--(TREF(expr_depth))))
TREF(shift_side_effects) = FALSE;
if (TREF(expr_start) != TREF(expr_start_orig))
{
triptr = newtriple(OC_GVRECTARG);
triptr->operand[0] = put_tref(TREF(expr_start));
}
return rval;
}

89
sr_port/push_parm.c
View File

@ -1,89 +0,0 @@
/****************************************************************
* *
* Copyright 2001, 2011 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include <stdarg.h>
#include "gtm_stdio.h"
#include "lv_val.h"
#include "rtnhdr.h"
#include "mv_stent.h"
#include "compiler.h"
#include "gdsroot.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "alias.h"
GBLREF mv_stent *mv_chain;
GBLREF unsigned char *msp, *stackbase, *stackwarn, *stacktop;
GBLREF symval *curr_symval;
/* Create lv_val on stack to hold copy of parameter. Address of created lv_val will be used by op_bindparm() */
void push_parm(UNIX_ONLY_COMMA(unsigned int totalcnt) int truth_value, ...)
{
va_list var;
mval *ret_value;
int mask;
VMS_ONLY(unsigned totalcnt;)
unsigned actualcnt;
parm_blk *parm;
mv_stent *mvp_blk;
int i;
lv_val *actp;
mval *actpmv;
error_def (ERR_STACKOFLOW);
error_def (ERR_STACKCRIT);
VAR_START(var, truth_value);
VMS_ONLY(va_count(totalcnt));
assert(4 <= totalcnt);
ret_value = va_arg(var, mval *);
mask = va_arg(var, int);
actualcnt = va_arg(var, unsigned int);
assert(4 + actualcnt == totalcnt);
assert(MAX_ACTUALS >= actualcnt);
PUSH_MV_STENT(MVST_PARM);
parm = (parm_blk *)malloc(SIZEOF(parm_blk) - SIZEOF(lv_val *) + actualcnt * SIZEOF(lv_val *));
parm->actualcnt = actualcnt;
parm->mask = mask;
mvp_blk = mv_chain;
mvp_blk->mv_st_cont.mvs_parm.save_truth = truth_value;
mvp_blk->mv_st_cont.mvs_parm.ret_value = (mval *)NULL;
mvp_blk->mv_st_cont.mvs_parm.mvs_parmlist = parm;
for (i = 0; i < actualcnt; i++)
{
actp = va_arg(var, lv_val *);
if (!(mask & 1 << i))
{ /* Not a dotted pass-by-reference parm */
actpmv = &actp->v;
if ((!MV_DEFINED(actpmv)) && (actpmv->str.addr != (char *)&actp->v))
actpmv = underr(actpmv);
PUSH_MV_STENT(MVST_PVAL);
mv_chain->mv_st_cont.mvs_pval.mvs_val = lv_getslot(curr_symval);
LVVAL_INIT(mv_chain->mv_st_cont.mvs_pval.mvs_val, curr_symval);
mv_chain->mv_st_cont.mvs_pval.mvs_val->v = *actpmv; /* Copy mval input */
mv_chain->mv_st_cont.mvs_pval.mvs_ptab.save_value = NULL; /* Filled in by op_bindparm */
mv_chain->mv_st_cont.mvs_pval.mvs_ptab.hte_addr = NULL;
DEBUG_ONLY(mv_chain->mv_st_cont.mvs_pval.mvs_ptab.nam_addr = NULL);
parm->actuallist[i] = (lv_val *)&mv_chain->mv_st_cont.mvs_pval;
} else
/* Dotted pass-by-reference parm. No save of previous value, just pass lvval */
parm->actuallist[i] = actp;
}
va_end(var);
mvp_blk->mv_st_cont.mvs_parm.ret_value = ret_value;
return;
}

42
sr_port/strexpr.c
View File

@ -1,42 +0,0 @@
/****************************************************************
* *
* Copyright 2001, 2010 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "compiler.h"
#include "opcode.h"
int strexpr(oprtype *a)
{
triple *triptr;
int4 rval;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
if (!(TREF(expr_depth))++)
TREF(expr_start) = TREF(expr_start_orig) = NULL;
if (!(rval = eval_expr(a)))
{
TREF(expr_depth) = 0;
return FALSE;
}
coerce(a,OCT_MVAL);
ex_tail(a);
if (!(--(TREF(expr_depth))))
TREF(shift_side_effects) = FALSE;
if (TREF(expr_start) != TREF(expr_start_orig))
{
triptr = newtriple(OC_GVRECTARG);
triptr->operand[0] = put_tref(TREF(expr_start));
}
return rval;
}

32
sr_unix/lowerc.csh
View File

@ -1,32 +0,0 @@
#!/bin/csh
#################################################################
# #
# Copyright 2001 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
set lowerc_ext = ".m"
foreach lowerc_i ($*)
set lowerc_base = `basename $lowerc_i $lowerc_ext`
if ( "lowerc_i" != "$lowerc_base" ) then
# If they _don't_ match, then basename found $lowerc_ext and stripped it off.
set lowerc_newbase = `echo $lowerc_base | tr '[A-Z]' '[a-z]'`
if ( "$lowerc_base" != "$lowerc_newbase" ) then
# If _not_ overwriting an existing file.
set lowerc_dirname = `dirname $lowerc_i`
echo "mv $lowerc_dirname/$lowerc_i ---> $lowerc_dirname/$lowerc_newbase$lowerc_ext"
mv $lowerc_dirname/$lowerc_i $lowerc_dirname/$lowerc_newbase$lowerc_ext
endif
endif
end
unset lowerc_base
unset lowerc_dirname
unset lowerc_ext
unset lowerc_i
unset lowerc_newbase

29
sr_unix/lowerc.sh
View File

@ -1,29 +0,0 @@
#################################################################
# #
# Copyright 2001 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
SHELL=/bin/sh
export SHELL
ext=.m
for i in $*
do
base=`basename $i $ext`
if test $i != $base
then {
newf=`echo $base | tr '[A-Z]' '[a-z]'`
if test $base != $newf
then {
dir=`dirname $i`
echo $dir/$i "---> " $dir/$newf$ext
mv $i $dir/$newf$ext
}
fi
}
fi
done

32
sr_unix/lowerc_cp.csh
View File

@ -1,32 +0,0 @@
#!/bin/csh
#################################################################
# #
# Copyright 2001 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
set lowerc_cp_ext = ".m"
foreach lowerc_cp_i ($*)
set lowerc_cp_base = `basename $lowerc_cp_i $lowerc_cp_ext`
if ( "lowerc_cp_i" != "$lowerc_cp_base" ) then
# If they _don't_ match, then basename found $lowerc_cp_ext and stripped it off.
set lowerc_cp_newbase = `echo $lowerc_cp_base | tr '[A-Z]' '[a-z]'`
if ( "$lowerc_cp_base" != "$lowerc_cp_newbase" ) then
# If _not_ overwriting an existing file.
set lowerc_cp_dirname = `dirname $lowerc_cp_i`
echo "cp $lowerc_cp_dirname/$lowerc_cp_i ---> $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext"
cp $lowerc_cp_dirname/$lowerc_cp_i $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext
endif
endif
end
unset lowerc_cp_base
unset lowerc_cp_dirname
unset lowerc_cp_ext
unset lowerc_cp_i
unset lowerc_cp_newbase

43
sr_unix/mu_file_size.c
View File

@ -1,43 +0,0 @@
/****************************************************************
* *
* Copyright 2001, 2007 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gtm_string.h"
#include "gtm_fcntl.h"
#include "gtm_unistd.h"
#include <errno.h>
#include "gdsroot.h"
#include "gtm_facility.h"
#include "fileinfo.h"
#include "gdsbt.h"
#include "gdsfhead.h"
#include "filestruct.h"
#include "gtm_stat.h"
#include "eintr_wrappers.h"
#include "mu_file_size.h"
unsigned int mu_file_size(file_control *fc)
{
unix_db_info *udi;
int fstat_res;
struct stat stat_buf;
error_def(ERR_DBFILOPERR);
udi = (unix_db_info *)fc->file_info;
FSTAT_FILE(udi->fd, &stat_buf, fstat_res);
if (-1 == fstat_res)
rts_error(VARLSTCNT(5) ERR_DBFILOPERR, 2, LEN_AND_STR(udi->fn), errno);
assert(0 == stat_buf.st_size % DISK_BLOCK_SIZE);
return (unsigned int)(stat_buf.st_size / DISK_BLOCK_SIZE);
}

29
sr_unix/upperc.sh
View File

@ -1,29 +0,0 @@
#!/bin/sh
#################################################################
# #
# Copyright 2001 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
ext=.m
for i in $*
do
base=`basename $i $ext`
if test $i != $base
then {
newf=`echo $base | tr '[a-z]' '[A-Z]'`
if test $base != $newf
then {
dir=`dirname $i`
echo $dir/$i "---> " $dir/$newf$ext
mv $i $dir/$newf$ext
}
fi
}
fi
done

32
sr_unix/upperc_cp.csh
View File

@ -1,32 +0,0 @@
#!/bin/csh
#################################################################
# #
# Copyright 2001 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
set upperc_cp_ext = ".m"
foreach upperc_cp_i ($*)
set upperc_cp_base = `basename $upperc_cp_i $upperc_cp_ext`
if ( "$upperc_cp_i" != "$upperc_cp_base" ) then
# If they _don't_ match, then basename found $upperc_cp_ext and stripped it off.
set upperc_cp_newbase = `echo $upperc_cp_base | tr '[a-z]' '[A-Z]'`
if ( "$upperc_cp_base" != "$upperc_cp_newbase" ) then
# If _not_ overwriting an existing file.
set upperc_cp_dirname = `dirname $upperc_cp_i`
echo "cp $upperc_cp_dirname/$upperc_cp_i ---> $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext"
cp $upperc_cp_dirname/$upperc_cp_i $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext
endif
endif
end
unset upperc_cp_base
unset upperc_cp_dirname
unset upperc_cp_ext
unset upperc_cp_i
unset upperc_cp_newbase

29
sr_unix/upperc_cp.sh
View File

@ -1,29 +0,0 @@
#!/bin/sh
#################################################################
# #
# Copyright 2001 Sanchez Computer Associates, Inc. #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
ext=.m
for i in $*
do
base=`basename $i $ext`
if test $i != $base
then {
newf=`echo $base | tr '[a-z]' '[A-Z]'`
if test $base != $newf
then {
dir=`dirname $i`
echo $dir/$i "---> " $dir/$newf$ext
cp $i $dir/$newf$ext
}
fi
}
fi
done

47
sr_x86_64/op_isformal.s
View File

@ -1,47 +0,0 @@
#################################################################
# #
# Copyright 2007 Fidelity Information Services, Inc #
# #
# This source code contains the intellectual property #
# of its copyright holder(s), and is made available #
# under a license. If you do not know the terms of #
# the license, please stop and do not read further. #
# #
#################################################################
# PAGE ,132
.title op_isformal.s
# .386
# .MODEL FLAT, C
.include "linkage.si"
.INCLUDE "g_msf.si"
.sbttl op_isformal
# PAGE +
.DATA
.extern ERR_ACTLSTEXP
.extern frame_pointer
.text
.extern rts_error
# PUBLIC op_isformal
ENTRY op_isformal
movq frame_pointer(REG_IP),REG64_ARG2
movw msf_typ_off(REG64_ARG2),REG16_ACCUM
andw $~SFT_EXTFUN,msf_typ_off(REG64_ARG2)
andw $SFT_EXTFUN,REG16_ACCUM
je l1
ret
l1: putframe
movl ERR_ACTLSTEXP(REG_IP),REG32_ARG1
movl $1,REG32_ARG0
movb $0,REG8_ACCUM # variable length argument
call rts_error
ret
# op_isformal ENDP
# END