25de8be212
Fix TProgram.Uses reserved-word clash (renamed to UsedUnits), nested brace-comment in uParser.pas, and missing uAST in Blaise.pas uses clause. Vendor QBE 1.2 source in vendor/qbe/ (built locally with make; binary excluded via .gitignore). End-to-end pipeline confirmed: Blaise compiles Hello World and Calc (6*7=42) to native x86_64 Linux binaries. 71/71 FPCUnit tests passing.
76 lines
1.2 KiB
Plaintext
76 lines
1.2 KiB
Plaintext
# test amd64 addressing modes
|
|
|
|
export
|
|
function w $f0(l %o) {
|
|
@start
|
|
%addr =l add $a, %o
|
|
%char =w loadub %addr
|
|
ret %char
|
|
}
|
|
|
|
export
|
|
function w $f1(l %o) {
|
|
@start
|
|
%o1 =l mul %o, 1
|
|
%addr =l add 10, %o1
|
|
%char =w loadub %addr
|
|
ret %char
|
|
}
|
|
|
|
export
|
|
function w $f2(l %o1, l %o2) {
|
|
@start
|
|
%o22 =l mul %o2, 2
|
|
%o =l add %o1, %o22
|
|
%addr =l add $a, %o
|
|
%char =w loadub %addr
|
|
ret %char
|
|
}
|
|
|
|
export
|
|
function l $f3(l %o) {
|
|
@start
|
|
%addr =l add %o, $a
|
|
ret %addr
|
|
}
|
|
|
|
export
|
|
function $f4() {
|
|
@start
|
|
storel $p, $p
|
|
ret
|
|
}
|
|
|
|
export
|
|
function $writeto0() {
|
|
@start
|
|
storel 0, 0
|
|
ret
|
|
}
|
|
|
|
# >>> driver
|
|
# #include <stdlib.h>
|
|
# #include <signal.h>
|
|
# char a[] = "qbe rocks";
|
|
# void *p;
|
|
# int ok;
|
|
# extern unsigned f0(long), f1(long), f2(long, long);
|
|
# extern char *f3(long);
|
|
# extern void f4(), writeto0();
|
|
# void h(int sig, siginfo_t *si, void *unused) {
|
|
# ok += si->si_addr == 0;
|
|
# exit(!(ok == 6));
|
|
# }
|
|
# int main() {
|
|
# struct sigaction sa = {.sa_flags=SA_SIGINFO, .sa_sigaction=h};
|
|
# sigemptyset(&sa.sa_mask); sigaction(SIGSEGV, &sa, 0);
|
|
# ok += f0(2) == 'e';
|
|
# ok += f1((long)a-5) == 'o';
|
|
# ok += f2(4, 2) == 's';
|
|
# ok += *f3(0) == 'q';
|
|
# f4();
|
|
# ok += p == &p;
|
|
# writeto0(); /* will segfault */
|
|
# }
|
|
# <<<
|