loadfile.c 564 B

1234567891011121314151617181920212223242526272829
  1. /*
  2. * TI-68k Loading external file functions - The peTI-NESulator Project
  3. * ti68k/loadfile.c
  4. *
  5. * Created by Manoël Trapier.
  6. * Copyright (c) 2002-2019 986-Studio.
  7. *
  8. */
  9. #define TIGCC_COMPAT
  10. #include <tigcclib.h>
  11. /* Map a file in memory */
  12. void *LoadFilePtr(char * filename)
  13. {
  14. void *RetPtr = NULL;
  15. FILE *fp;
  16. if ((fp = fopen(filename,"rb")) == NULL)
  17. return -1;
  18. /* TI Related stuff, very ugly, and need to be changed.. */
  19. HeapLock(fp->handle);
  20. RetPtr = 2 + HeapDeref(fp->handle);
  21. fclose (fp);
  22. return RetPtr;
  23. }