Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/branches/num64/runtime/c-libs/win32/win32-errors.c
ViewVC logotype

View of /sml/branches/num64/runtime/c-libs/win32/win32-errors.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 5334 - (download) (as text) (annotate)
Thu Jun 6 22:13:52 2019 UTC (2 months, 2 weeks ago) by jhr
File size: 476 byte(s)
fix typo
/* win32-errors.c
 *
 * COPYRIGHT (c) 1996 Bell Laboratories, Lucent Technologies
 *
 * interface to win32 error functions
 */

#include <windows.h>
#include "ml-base.h"
#include "ml-values.h"
#include "ml-objects.h"
#include "ml-c.h"

/* _ml_win32_get_last_error: unit -> word
 */
ml_val_t _ml_win32_get_last_error(ml_state_t *msp, ml_val_t arg)
{
    Word_t	err = (Word_t)GetLastError();
    ml_val_t	res;

    return WORD32_MLtoC(msp, err);
}

/* end of win32-errors.c */


root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0