/programs/develop/ktcc/trunk/libc/build.bat |
---|
28,6 → 28,7 |
goto :eof |
:Compile_C |
echo compile .c %1 |
%CC% %CFLAGS% %1 -o "%~dpn1.o" |
if not %errorlevel%==0 goto Error_Failed |
set objs=%objs% "%~dpn1.o" |
34,6 → 35,7 |
goto :eof |
:Compile_Asm |
echo compile .asm %1 |
%ASM% %1 "%~dpn1.o" |
if not %errorlevel%==0 goto Error_Failed |
set objs=%objs% "%~dpn1.o" |
50,6 → 52,7 |
for %%f in ("%%a\*.asm") do call :Compile_Asm "%%f" |
for %%f in ("%%a\*.c") do call :Compile_C "%%f" |
) |
echo calling AR |
%AR% -ru %LIBNAME% %objs% |
if not %errorlevel%==0 goto Error_Failed |
goto Exit_OK |
/programs/develop/ktcc/trunk/libc/kolibrisys/cofflib.asm |
---|
31,8 → 31,9 |
xor eax,eax |
mov al,[ecx] |
test al,al |
jz exit_check_simbol |
; siemargl moved to post-check |
; test al,al |
; jz exit_check_simbol |
xor edx,edx |
mov dl,[esi] |
41,6 → 42,8 |
add edi,1 |
jmp exit_check_simbol |
simbols_equvalent: |
test al,al |
jz exit_check_simbol |
;pushad |
/programs/develop/ktcc/trunk/libc/stdio/fwrite.c |
---|
1,6 → 1,8 |
#include <stdio.h> |
#include <kolibrisys.h> |
// dont support return partial writing when fail |
// only 32-bit filesize |
int fwrite(void *buffer,int size,int count,FILE* file) |
{ |
dword res; |
56,8 → 58,7 |
if (res==0) |
{ |
file->filepos+=fullsize; |
fullsize=fullsize/count; |
return(fullsize); |
return(count); |
} else |
{ |
errno = -res; |
70,8 → 71,7 |
if (res==0) |
{ |
file->filepos+=fullsize; |
fullsize=fullsize/count; |
return(fullsize); |
return(count); |
} else |
{ |
errno = -res; |