LabashkiLibs/liblabafile
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Windows compatibility

Browse Source
This commit is contained in:
bʰedoh₂ swé 2024-06-18 19:35:08 +05:00
parent 4c92b22e6d
commit 18fcd99e4f
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
native/fopen.c
View File

@ -11,10 +11,9 @@ void labashka(unsigned short (*pop)(void), void (*push)(unsigned short), size_t
char *filename = calloc(filenamelen, sizeof(char));
for (short i = filenamelen - 1; i != -1; i--)
filename[i] = pop();
FILE *file = fopen(filename, mode);
push((short)((0xFFFF000000000000 & (long)file) >> (16*3) ));
push((short)((0x0000FFFF00000000 & (long)file) >> (16*2) ));
push((short)((0x00000000FFFF0000 & (long)file) >> (16*1) ));
push((short)((0x000000000000FFFF & (long)file) >> (16*0) ));
push((short)((0xFFFF000000000000 & (size_t)file) >> (16*3) ));
push((short)((0x0000FFFF00000000 & (size_t)file) >> (16*2) ));
push((short)((0x00000000FFFF0000 & (size_t)file) >> (16*1) ));
push((short)((0x000000000000FFFF & (size_t)file) >> (16*0) ));
}