← Back to branch summary

~vcs-imports/gawk/master

« back to all changes in this revision

Viewing changes to vms/vms_misc.c

  • Committer: John Malmberg
  • Date: 2016-02-03 03:31:58 UTC
  • mto: (408.19.100)
  • mto: This revision was merged to the branch mainline in revision 605.
  • Revision ID: git-v1:afe565753eb654aa1b2280908701e8c0d8e7ccbb
Use VMS provided descriptor struct

Show diffs side-by-side

added added

removed removed

Lines of Context:
vms/vms_misc.c
120
120
        struct stat stb;
121
121
        int stat_result;
122
122
        const char *mbc, *shr = "shr=get", *ctx = "ctx=stm";
123
 
 
 
123
 
124
124
        stat_result = stat((char *)name, &stb);
125
125
        if ( stat_result < 0) { /* assume DECnet */
126
126
            mbc = "mbc=8";
187
187
    /*
188
188
        Emulate unix's gettimeofday call; timezone argument is ignored.
189
189
    */
190
 
    static const Dsc epoch_dsc = { sizeof UNIX_EPOCH - sizeof "", UNIX_EPOCH };
 
190
    static const struct dsc$descriptor_s epoch_dsc =
 
191
       { sizeof UNIX_EPOCH - sizeof "",
 
192
         DSC$K_DTYPE_T, DSC$K_CLASS_S, UNIX_EPOCH };
191
193
    static long epoch[2] = {0L,0L};     /* needs one time initialization */
192
194
    const long  thunk = VMS_UNITS_PER_SECOND;
193
195
    long        now[2], quad[2];