Changeset 10716


Ignore:
Timestamp:
Sep 12, 2008, 6:05:16 AM (11 years ago)
Author:
gb
Message:

lisp_read(), lisp_write(): return 64-bit result.
Add library-opening support.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/windows-calls.c

    r10697 r10716  
    278278}
    279279
    280 int
     280ssize_t
    281281lisp_read(int fd, void *buf, unsigned int count)
    282282{
     
    342342}
    343343
    344 int
     344ssize_t
    345345lisp_write(int fd, void *buf, unsigned int count)
    346346{
     
    468468}
    469469
     470/* Note that we're using 8-bit strings here */
     471
     472void *
     473windows_open_shared_library(char *path)
     474{
     475  HMODULE module = (HMODULE)0;
     476
     477  /* Try to open an existing module in a way that increments its
     478     reference count without running any initialization code in
     479     the dll. */
     480  if (!GetModuleHandleExA(0,path,&module)) {
     481    /* If that failed ... */
     482    module = LoadLibraryA(path);
     483  }
     484  return (void *)module;
     485}
     486
    470487void
    471488init_windows_io()
Note: See TracChangeset for help on using the changeset viewer.