coolguy
4624c6d0ec
std 는 예약된 이름이고 프로그램이 아니라 컴파일러와 함께 있으므로 자기 루트를 갖는다 (--std=). 본문 없는 선언은 링커가 찾을 것 -- 런타임이나 C 라이브러리 -- 이므로 IR 에 extern 으로 나간다. 런타임에 write/alloc/free/exit 를 넣었다. 이것이 표준 라이브러리가 스스로 말할 수 없는 전부이고 나머지는 Ferro 로 쓴다. @trap @unreachable @size_of @align_of @line 을 내린다. 링크 이름에서 점과 괄호를 걸렀다. 유닛 경로에는 점이 있고 제네릭 인스턴스에는 괄호가 있는데 어셈블러가 받지 않는다.
214 lines
5.2 KiB
NASM
214 lines
5.2 KiB
NASM
; Ferro runtime: process entry and the trap handler.
|
|
;
|
|
; The entry point calls the program's `main` and hands its result to
|
|
; ExitProcess, so a Ferro program is an ordinary console executable.
|
|
; `fe_trap` prints where the program stopped and why, then exits 3.
|
|
|
|
.386
|
|
.model flat
|
|
|
|
extern _ExitProcess@4 : near
|
|
extern _GetStdHandle@4 : near
|
|
extern _WriteFile@20 : near
|
|
extern fe_main_ : near
|
|
|
|
_DATA segment dword public 'DATA'
|
|
|
|
reasons dd offset r_bounds, offset r_overflow, offset r_divide
|
|
dd offset r_unreach, offset r_explicit
|
|
r_bounds db 'index out of bounds',0
|
|
r_overflow db 'integer overflow',0
|
|
r_divide db 'divide by zero',0
|
|
r_unreach db 'reached unreachable code',0
|
|
r_explicit db 'trap',0
|
|
r_unknown db 'trap',0
|
|
prefix db 'ferro: ',0
|
|
at_word db ' at ',0
|
|
colon db ':',0
|
|
newline db 13,10,0
|
|
numbuf db 16 dup(0)
|
|
written dd 0
|
|
|
|
_DATA ends
|
|
|
|
_TEXT segment dword public 'CODE'
|
|
|
|
; write_cstr(esi = pointer to a NUL-terminated string) -> void
|
|
write_cstr proc near
|
|
push ebp
|
|
mov ebp, esp
|
|
push ebx
|
|
push esi
|
|
push edi
|
|
mov edi, esi
|
|
xor ecx, ecx
|
|
count_loop:
|
|
cmp byte ptr [edi], 0
|
|
je count_done
|
|
inc edi
|
|
inc ecx
|
|
jmp count_loop
|
|
count_done:
|
|
test ecx, ecx
|
|
je write_done
|
|
push -11 ; STD_ERROR_HANDLE
|
|
call _GetStdHandle@4
|
|
push 0 ; lpOverlapped
|
|
push offset written
|
|
push ecx
|
|
push esi
|
|
push eax
|
|
call _WriteFile@20
|
|
write_done:
|
|
pop edi
|
|
pop esi
|
|
pop ebx
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
write_cstr endp
|
|
|
|
; write_uint(eax = value) -> void
|
|
write_uint proc near
|
|
push ebp
|
|
mov ebp, esp
|
|
push ebx
|
|
mov edi, offset numbuf + 15
|
|
mov byte ptr [edi], 0
|
|
mov ebx, 10
|
|
digit_loop:
|
|
xor edx, edx
|
|
div ebx
|
|
add dl, '0'
|
|
dec edi
|
|
mov [edi], dl
|
|
test eax, eax
|
|
jnz digit_loop
|
|
mov esi, edi
|
|
call write_cstr
|
|
pop ebx
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
write_uint endp
|
|
|
|
; fe_trap(reason, file, line) -- cdecl, never returns
|
|
public fe_trap
|
|
fe_trap proc near
|
|
push ebp
|
|
mov ebp, esp
|
|
mov esi, offset prefix
|
|
call write_cstr
|
|
mov eax, [ebp+8] ; reason
|
|
cmp eax, 5
|
|
jb reason_ok
|
|
mov esi, offset r_unknown
|
|
jmp reason_write
|
|
reason_ok:
|
|
mov esi, [reasons + eax*4]
|
|
reason_write:
|
|
call write_cstr
|
|
mov esi, offset at_word
|
|
call write_cstr
|
|
mov esi, [ebp+12] ; file
|
|
call write_cstr
|
|
mov esi, offset colon
|
|
call write_cstr
|
|
mov eax, [ebp+16] ; line
|
|
call write_uint
|
|
mov esi, offset newline
|
|
call write_cstr
|
|
push 3
|
|
call _ExitProcess@4
|
|
fe_trap endp
|
|
|
|
; ---------------------------------------------------------------- primitives
|
|
; The standard library is written in Ferro; these are the few things it cannot
|
|
; say for itself. All cdecl.
|
|
|
|
extern _GetProcessHeap@0 : near
|
|
extern _HeapAlloc@12 : near
|
|
extern _HeapFree@12 : near
|
|
|
|
; fe_rt_write(handle, ptr, len) -> bytes written
|
|
public fe_rt_write
|
|
fe_rt_write proc near
|
|
push ebp
|
|
mov ebp, esp
|
|
push ebx
|
|
mov eax, [ebp+8] ; 1 = stdout, 2 = stderr
|
|
cmp eax, 2
|
|
je pick_err
|
|
push -11
|
|
jmp pick_done
|
|
pick_err:
|
|
push -12
|
|
pick_done:
|
|
call _GetStdHandle@4
|
|
push 0
|
|
push offset written
|
|
push dword ptr [ebp+16]
|
|
push dword ptr [ebp+12]
|
|
push eax
|
|
call _WriteFile@20
|
|
mov eax, [written]
|
|
pop ebx
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
fe_rt_write endp
|
|
|
|
; fe_rt_alloc(n) -> pointer, or zero
|
|
public fe_rt_alloc
|
|
fe_rt_alloc proc near
|
|
push ebp
|
|
mov ebp, esp
|
|
call _GetProcessHeap@0
|
|
push dword ptr [ebp+8]
|
|
push 8 ; HEAP_ZERO_MEMORY
|
|
push eax
|
|
call _HeapAlloc@12
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
fe_rt_alloc endp
|
|
|
|
; fe_rt_free(p)
|
|
public fe_rt_free
|
|
fe_rt_free proc near
|
|
push ebp
|
|
mov ebp, esp
|
|
mov eax, [ebp+8]
|
|
test eax, eax
|
|
je free_done
|
|
call _GetProcessHeap@0
|
|
push dword ptr [ebp+8]
|
|
push 0
|
|
push eax
|
|
call _HeapFree@12
|
|
free_done:
|
|
mov esp, ebp
|
|
pop ebp
|
|
ret
|
|
fe_rt_free endp
|
|
|
|
; fe_rt_exit(code) -- never returns
|
|
public fe_rt_exit
|
|
fe_rt_exit proc near
|
|
push ebp
|
|
mov ebp, esp
|
|
push dword ptr [ebp+8]
|
|
call _ExitProcess@4
|
|
fe_rt_exit endp
|
|
|
|
public fe_start_
|
|
fe_start_ proc near
|
|
call fe_main_
|
|
push eax
|
|
call _ExitProcess@4
|
|
fe_start_ endp
|
|
|
|
_TEXT ends
|
|
|
|
end fe_start_
|