loadfile.c 653 B

12345678910111213141516171819202122232425262728293031323334
  1. /*
  2. * TI-68k Loading external file functions - The peTI-NESulator Project
  3. * ti68k/loadfile.c
  4. *
  5. * Created by Manoel TRAPIER.
  6. * Copyright (c) 2003-2008 986Corp. All rights reserved.
  7. *
  8. * $LastChangedDate:$
  9. * $Author:$
  10. * $HeadURL:$
  11. * $Revision:$
  12. *
  13. */
  14. #define TIGCC_COMPAT
  15. #include <tigcclib.h>
  16. /* Map a file in memory */
  17. void *LoadFilePtr(char * filename)
  18. {
  19. void *RetPtr = NULL;
  20. FILE *fp;
  21. if ((fp = fopen(filename,"rb")) == NULL)
  22. return -1;
  23. /* TI Related stuff, very uggly, and need to be changed.. */
  24. HeapLock(fp->handle);
  25. RetPtr = 2 + HeapDeref(fp->handle);
  26. fclose (fp);
  27. return RetPtr;
  28. }