#include <jpidef.h>
#include <ssdef.h>
#include <starlet.h>
+#ifdef __DECC
+# pragma message disable DOLLARID
+#endif
static struct items_data_st
{
pitem = item;
/* Setup */
- while (pitems_data->length)
+ while (pitems_data->length
+ && (total_length + pitems_data->length <= 256))
{
pitem->length = pitems_data->length;
pitem->code = pitems_data->code;
- pitem->buffer = (long *)data_buffer[total_length];
+ pitem->buffer = (long *)&data_buffer[total_length];
pitem->retlen = 0;
total_length += pitems_data->length;
+ pitems_data++;
+ pitem++;
}
pitem->length = pitem->code = 0;
* However, view the information as only half trustable.
*/
pid = -1; /* search context */
- while ((status = SYS$GETJPIW(8, &pid, 0, item, iosb, 0, 0))
+ while ((status = sys$getjpiw(0, &pid, 0, item, iosb, 0, 0))
!= SS$_NOMOREPROC)
{
if (status == SS$_NORMAL)
RAND_add(data_buffer, total_length, total_length/2);
}
}
- SYS$GETTIM(iosb);
+ sys$gettim(iosb);
RAND_add((unsigned char *)iosb, sizeof(iosb), sizeof(iosb)/2);
return 1;
}