Skeleton of VideoCore IV support for the Raspberry Pi.
--HG-- branch : dtrg-videocore rename : mach/powerpc/as/.distr => mach/vc4/as/.distr rename : mach/powerpc/as/mach0.c => mach/vc4/as/mach0.c rename : mach/powerpc/as/mach1.c => mach/vc4/as/mach1.c rename : mach/powerpc/as/mach2.c => mach/vc4/as/mach2.c rename : mach/powerpc/as/mach3.c => mach/vc4/as/mach3.c rename : mach/powerpc/as/mach4.c => mach/vc4/as/mach4.c rename : mach/powerpc/as/mach5.c => mach/vc4/as/mach5.c rename : mach/i86/build.mk => mach/vc4/build.mk rename : mach/powerpc/libem/powerpc.h => mach/vc4/libem/videocore.h rename : mach/i86/libend/.distr => mach/vc4/libend/.distr rename : mach/i86/libend/edata.s => mach/vc4/libend/edata.s rename : mach/i86/libend/em_end.s => mach/vc4/libend/em_end.s rename : mach/i86/libend/end.s => mach/vc4/libend/end.s rename : mach/i86/libend/etext.s => mach/vc4/libend/etext.s rename : mach/powerpc/ncg/.distr => mach/vc4/ncg/.distr rename : mach/powerpc/ncg/mach.c => mach/vc4/ncg/mach.c rename : mach/powerpc/ncg/mach.h => mach/vc4/ncg/mach.h rename : mach/powerpc/ncg/table => mach/vc4/ncg/table rename : plat/pc86/descr => plat/rpi/descr
This commit is contained in:
David Given
parent
e5f6d5acfa
commit
32ebc502c8
42 changed files with 3355 additions and 0 deletions
6
mach/vc4/as/.distr
Normal file
6
mach/vc4/as/.distr
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
mach0.c
|
||||
mach1.c
|
||||
mach2.c
|
||||
mach3.c
|
||||
mach4.c
|
||||
mach5.c
|
||||
34
mach/vc4/as/binary.h
Normal file
34
mach/vc4/as/binary.h
Normal file
|
|
@ -0,0 +1,34 @@
|
|||
/*
|
||||
* VideoCore IV assembler for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#ifndef BINARY_H
|
||||
#define BINARY_H
|
||||
|
||||
/* This grotesque nonsense allows us to use binary constants from C. */
|
||||
|
||||
#define HEX__(n) 0x##n##LU
|
||||
#define B8__(x) \
|
||||
((x&0x0000000FLU)?1:0) \
|
||||
+((x&0x000000F0LU)?2:0) \
|
||||
+((x&0x00000F00LU)?4:0) \
|
||||
+((x&0x0000F000LU)?8:0) \
|
||||
+((x&0x000F0000LU)?16:0) \
|
||||
+((x&0x00F00000LU)?32:0) \
|
||||
+((x&0x0F000000LU)?64:0) \
|
||||
+((x&0xF0000000LU)?128:0)
|
||||
|
||||
#define B8(d) \
|
||||
((unsigned char)B8__(HEX__(d)))
|
||||
#define B16(dmsb,dlsb) \
|
||||
(((unsigned short)B8(dmsb)<<8) + B8(dlsb))
|
||||
#define B32(dmsb,db2,db3,dlsb) \
|
||||
(((unsigned long)B8(dmsb)<<24) \
|
||||
+ ((unsigned long)B8(db2)<<16) \
|
||||
+ ((unsigned long)B8(db3)<<8) \
|
||||
+ B8(dlsb))
|
||||
|
||||
#endif
|
||||
31
mach/vc4/as/mach0.c
Normal file
31
mach/vc4/as/mach0.c
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
/*
|
||||
* VideoCore IV assembler for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#define THREE_PASS /* branch and offset optimization */
|
||||
#define LISTING /* enable listing facilities */
|
||||
#define RELOCATION /* generate relocatable code */
|
||||
#define DEBUG 0
|
||||
|
||||
#undef valu_t
|
||||
#define valu_t long
|
||||
|
||||
#undef ADDR_T
|
||||
#define ADDR_T long
|
||||
|
||||
#undef word_t
|
||||
#define word_t long
|
||||
|
||||
#undef ALIGNWORD
|
||||
#define ALIGNWORD 4
|
||||
|
||||
#undef ALIGNSECT
|
||||
#define ALIGNSECT 4
|
||||
|
||||
#undef VALWIDTH
|
||||
#define VALWIDTH 8
|
||||
|
||||
#define FIXUPFLAGS (RELBR | RELWR)
|
||||
6
mach/vc4/as/mach1.c
Normal file
6
mach/vc4/as/mach1.c
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
/*
|
||||
* VideoCore IV assembler for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
22
mach/vc4/as/mach2.c
Normal file
22
mach/vc4/as/mach2.c
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
/*
|
||||
* VideoCore IV assembler for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
%token <y_word> GPR
|
||||
|
||||
%token <y_word> OP
|
||||
%token <y_word> OP_ONEREG
|
||||
%token <y_word> OP_ONELREG
|
||||
%token <y_word> OP_ALU
|
||||
%token <y_word> OP_MEM
|
||||
%token <y_word> OP_BREG
|
||||
%token <y_word> OP_STACK
|
||||
|
||||
/* Other token types */
|
||||
|
||||
/* %type <y_word> c */
|
||||
%type <y_word> e16 u8 u7 u6 u5 u4 u2 u1
|
||||
/* %type <y_word> nb ds bda bdl lia lil */
|
||||
95
mach/vc4/as/mach3.c
Normal file
95
mach/vc4/as/mach3.c
Normal file
|
|
@ -0,0 +1,95 @@
|
|||
/*
|
||||
* VideoCore IV assembler for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include "binary.h"
|
||||
|
||||
/* Integer registers */
|
||||
|
||||
0, GPR, 0, "r0",
|
||||
0, GPR, 1, "r1",
|
||||
0, GPR, 2, "r2",
|
||||
0, GPR, 3, "r3",
|
||||
0, GPR, 4, "r4",
|
||||
0, GPR, 5, "r5",
|
||||
|
||||
0, GPR, 6, "r6",
|
||||
0, GPR, 6, "fp",
|
||||
0, GPR, 7, "r7",
|
||||
0, GPR, 8, "r8",
|
||||
0, GPR, 9, "r9",
|
||||
0, GPR, 10, "r10",
|
||||
0, GPR, 11, "r11",
|
||||
0, GPR, 12, "r12",
|
||||
0, GPR, 13, "r13",
|
||||
0, GPR, 14, "r14",
|
||||
0, GPR, 15, "r15",
|
||||
0, GPR, 16, "r16",
|
||||
0, GPR, 17, "r17",
|
||||
0, GPR, 18, "r18",
|
||||
0, GPR, 19, "r19",
|
||||
0, GPR, 20, "r20",
|
||||
0, GPR, 21, "r21",
|
||||
0, GPR, 22, "r22",
|
||||
0, GPR, 23, "r23",
|
||||
0, GPR, 24, "r24",
|
||||
|
||||
0, GPR, 25, "r25",
|
||||
0, GPR, 25, "sp",
|
||||
0, GPR, 26, "r26",
|
||||
0, GPR, 26, "lr",
|
||||
0, GPR, 27, "r27",
|
||||
0, GPR, 28, "r28",
|
||||
0, GPR, 29, "r29",
|
||||
0, GPR, 30, "r30",
|
||||
0, GPR, 30, "sr",
|
||||
0, GPR, 31, "r31",
|
||||
0, GPR, 31, "pc",
|
||||
|
||||
/* Special instructions */
|
||||
|
||||
0, OP, B16(00000000,00000001), "nop",
|
||||
0, OP, B16(00000000,00001010), "rti",
|
||||
|
||||
0, OP_ONEREG, B16(00000000,01000000), "b",
|
||||
0, OP_ONEREG, B16(00000000,01100000), "bl",
|
||||
0, OP_ONELREG, B16(00000000,10000000), "tbb",
|
||||
0, OP_ONELREG, B16(00000000,10100000), "tbs",
|
||||
|
||||
0, OP_ALU, B8(00000000), "mov",
|
||||
0, OP_ALU, B8(00000001), "cmn",
|
||||
0, OP_ALU, B8(00000010), "add",
|
||||
0, OP_ALU, B8(00000011), "bic",
|
||||
0, OP_ALU, B8(00000100), "mul",
|
||||
0, OP_ALU, B8(00000101), "eor",
|
||||
0, OP_ALU, B8(00000110), "sub",
|
||||
0, OP_ALU, B8(00000111), "and",
|
||||
0, OP_ALU, B8(00001000), "mvn",
|
||||
0, OP_ALU, B8(00001001), "ror",
|
||||
0, OP_ALU, B8(00001010), "cmp",
|
||||
0, OP_ALU, B8(00001011), "rsb",
|
||||
0, OP_ALU, B8(00001100), "btst",
|
||||
0, OP_ALU, B8(00001101), "or",
|
||||
0, OP_ALU, B8(00001110), "extu",
|
||||
0, OP_ALU, B8(00001111), "max",
|
||||
0, OP_ALU, B8(00010000), "bset",
|
||||
0, OP_ALU, B8(00010001), "min",
|
||||
0, OP_ALU, B8(00010010), "bclr",
|
||||
0, OP_ALU, B8(00010011), "adds2",
|
||||
0, OP_ALU, B8(00010100), "bchg",
|
||||
0, OP_ALU, B8(00010101), "adds4",
|
||||
0, OP_ALU, B8(00010110), "adds8",
|
||||
0, OP_ALU, B8(00010111), "adds16",
|
||||
0, OP_ALU, B8(00011000), "exts",
|
||||
0, OP_ALU, B8(00011001), "neg",
|
||||
0, OP_ALU, B8(00011010), "lsr",
|
||||
0, OP_ALU, B8(00011011), "clz",
|
||||
0, OP_ALU, B8(00011100), "lsl",
|
||||
0, OP_ALU, B8(00011101), "brev",
|
||||
0, OP_ALU, B8(00011110), "asr",
|
||||
0, OP_ALU, B8(00011111), "abs",
|
||||
|
||||
|
||||
110
mach/vc4/as/mach4.c
Normal file
110
mach/vc4/as/mach4.c
Normal file
|
|
@ -0,0 +1,110 @@
|
|||
/*
|
||||
* VideoCore IV assembler for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include "binary.h"
|
||||
|
||||
operation
|
||||
: OP { emit2($1); }
|
||||
|
||||
| OP_ONEREG GPR
|
||||
{
|
||||
emit2($1 | ($2<<0));
|
||||
}
|
||||
|
||||
| OP_ONELREG GPR
|
||||
{
|
||||
if ($2 >= 0x10)
|
||||
serror("cannot use r16+ here");
|
||||
emit2($1 | ($2<<0));
|
||||
}
|
||||
|
||||
| OP_ALU GPR ',' GPR
|
||||
{
|
||||
emit2(B16(01000000, 00000000) | ($1<<8) | ($2<<0) | ($4<<4));
|
||||
}
|
||||
|
||||
| OP_ALU GPR ',' '#' u5
|
||||
{
|
||||
if ($1 >= 0x10)
|
||||
serror("cannot use this ALU operation in 2op form");
|
||||
emit2(B16(01100000, 00000000) | ($1<<9) | ($2<<0) | ($5<<4));
|
||||
}
|
||||
;
|
||||
|
||||
e16
|
||||
: expr
|
||||
{
|
||||
DOTVAL += 2;
|
||||
newrelo($1.typ, RELO2 | FIXUPFLAGS);
|
||||
DOTVAL -= 2;
|
||||
$$ = $1.val & 0xFFFF;
|
||||
}
|
||||
;
|
||||
|
||||
u8
|
||||
: absexp
|
||||
{
|
||||
if (($1 < 0) || ($1 > 0xFF))
|
||||
serror("8-bit unsigned value out of range");
|
||||
$$ = $1;
|
||||
}
|
||||
;
|
||||
|
||||
u7
|
||||
: absexp
|
||||
{
|
||||
if (($1 < 0) || ($1 > 0x7F))
|
||||
serror("7-bit unsigned value out of range");
|
||||
$$ = $1;
|
||||
}
|
||||
;
|
||||
|
||||
u6
|
||||
: absexp
|
||||
{
|
||||
if (($1 < 0) || ($1 > 0x3F))
|
||||
serror("6-bit unsigned value out of range");
|
||||
$$ = $1;
|
||||
}
|
||||
;
|
||||
|
||||
u5
|
||||
: absexp
|
||||
{
|
||||
if (($1 < 0) || ($1 > 0x1F))
|
||||
serror("5-bit unsigned value out of range");
|
||||
$$ = $1;
|
||||
}
|
||||
;
|
||||
|
||||
u4
|
||||
: absexp
|
||||
{
|
||||
if (($1 < 0) || ($1 > 0xF))
|
||||
serror("4-bit unsigned value out of range");
|
||||
$$ = $1;
|
||||
}
|
||||
;
|
||||
|
||||
u1
|
||||
: absexp
|
||||
{
|
||||
if (($1 < 0) || ($1 > 1))
|
||||
serror("1-bit unsigned value out of range");
|
||||
$$ = $1;
|
||||
}
|
||||
;
|
||||
|
||||
u2
|
||||
: absexp
|
||||
{
|
||||
if (($1 < 0) || ($1 > 0x3))
|
||||
serror("2-bit unsigned value out of range");
|
||||
$$ = $1;
|
||||
}
|
||||
;
|
||||
|
||||
7
mach/vc4/as/mach5.c
Normal file
7
mach/vc4/as/mach5.c
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
/*
|
||||
* VideoCore IV assembler for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
10
mach/vc4/build.mk
Normal file
10
mach/vc4/build.mk
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
arch-libem-vc4 := \
|
||||
dummy.s
|
||||
|
||||
arch-libend-vc4 = \
|
||||
edata.s \
|
||||
em_end.s \
|
||||
end.s \
|
||||
etext.s
|
||||
|
||||
|
||||
9
mach/vc4/libem/dummy.s
Normal file
9
mach/vc4/libem/dummy.s
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
#
|
||||
/*
|
||||
* VideoCore IV support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include "videocore.h"
|
||||
15
mach/vc4/libem/videocore.h
Normal file
15
mach/vc4/libem/videocore.h
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
#
|
||||
/*
|
||||
* VideoCore IV support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
! Declare segments (the order is important).
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
|
||||
4
mach/vc4/libend/.distr
Normal file
4
mach/vc4/libend/.distr
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
edata.s
|
||||
em_end.s
|
||||
end.s
|
||||
etext.s
|
||||
15
mach/vc4/libend/edata.s
Normal file
15
mach/vc4/libend/edata.s
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
#
|
||||
/*
|
||||
* VideoCore IV support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
.define _edata
|
||||
.sect .data
|
||||
_edata:
|
||||
24
mach/vc4/libend/em_end.s
Normal file
24
mach/vc4/libend/em_end.s
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
#
|
||||
/*
|
||||
* VideoCore IV support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
.sect .end ! only for declaration of _end, __end and endbss.
|
||||
.define endtext, endrom, enddata, endbss, __end
|
||||
|
||||
.sect .text
|
||||
endtext:
|
||||
.sect .rom
|
||||
endrom:
|
||||
.sect .data
|
||||
enddata:
|
||||
.sect .end
|
||||
__end:
|
||||
endbss:
|
||||
15
mach/vc4/libend/end.s
Normal file
15
mach/vc4/libend/end.s
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
#
|
||||
/*
|
||||
* VideoCore IV support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
.define _end
|
||||
.sect .end ! only for declaration of _end, __end and endbss.
|
||||
_end:
|
||||
15
mach/vc4/libend/etext.s
Normal file
15
mach/vc4/libend/etext.s
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
#
|
||||
/*
|
||||
* VideoCore IV support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
.define _etext
|
||||
.sect .text
|
||||
_etext:
|
||||
3
mach/vc4/ncg/.distr
Normal file
3
mach/vc4/ncg/.distr
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
mach.c
|
||||
mach.h
|
||||
table
|
||||
210
mach/vc4/ncg/mach.c
Normal file
210
mach/vc4/ncg/mach.c
Normal file
|
|
@ -0,0 +1,210 @@
|
|||
/*
|
||||
* VideoCore IV code generator for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <limits.h>
|
||||
|
||||
#ifndef NORCSID
|
||||
static char rcsid[]= "$Id$" ;
|
||||
#endif
|
||||
|
||||
int framesize;
|
||||
|
||||
/*
|
||||
* machine dependent back end routines for the Zilog Z80.
|
||||
*/
|
||||
|
||||
con_part(int sz, word w)
|
||||
{
|
||||
while (part_size % sz)
|
||||
part_size++;
|
||||
if (part_size == TEM_WSIZE)
|
||||
part_flush();
|
||||
if (sz == 1) {
|
||||
w &= 0xFF;
|
||||
w <<= 8*(3-part_size);
|
||||
part_word |= w;
|
||||
} else if (sz == 2) {
|
||||
w &= 0xFFFF;
|
||||
if (part_size == 0) {
|
||||
/* Shift 8 for m68k2, 16 otherwise */
|
||||
w <<= 4 * TEM_WSIZE;
|
||||
}
|
||||
part_word |= w;
|
||||
} else {
|
||||
assert(sz == TEM_WSIZE);
|
||||
part_word = w;
|
||||
}
|
||||
part_size += sz;
|
||||
}
|
||||
|
||||
con_mult(word sz)
|
||||
{
|
||||
|
||||
if (argval != 4)
|
||||
fatal("bad icon/ucon size");
|
||||
fprintf(codefile,".data4 %s\n", str);
|
||||
}
|
||||
|
||||
#define CODE_GENERATOR
|
||||
#define IEEEFLOAT
|
||||
#define FL_MSL_AT_LOW_ADDRESS 1
|
||||
#define FL_MSW_AT_LOW_ADDRESS 1
|
||||
#define FL_MSB_AT_LOW_ADDRESS 1
|
||||
#include <con_float>
|
||||
|
||||
prolog(full nlocals)
|
||||
{
|
||||
int ss = nlocals + 8;
|
||||
fprintf(codefile, "addi sp, sp, %d\n", -ss);
|
||||
fprintf(codefile, "stw fp, %d(sp)\n", nlocals);
|
||||
fprintf(codefile, "mfspr r0, lr\n"
|
||||
"stw r0, %d(sp)\n", nlocals+4);
|
||||
fprintf(codefile, "addi fp, sp, %d\n", nlocals);
|
||||
|
||||
framesize = nlocals;
|
||||
}
|
||||
|
||||
mes(word type)
|
||||
{
|
||||
int argt ;
|
||||
|
||||
switch ( (int)type ) {
|
||||
case ms_ext :
|
||||
for (;;) {
|
||||
switch ( argt=getarg(
|
||||
ptyp(sp_cend)|ptyp(sp_pnam)|sym_ptyp) ) {
|
||||
case sp_cend :
|
||||
return ;
|
||||
default:
|
||||
strarg(argt) ;
|
||||
fprintf(codefile,".define %s\n",argstr) ;
|
||||
break ;
|
||||
}
|
||||
}
|
||||
default :
|
||||
while ( getarg(any_ptyp) != sp_cend ) ;
|
||||
break ;
|
||||
}
|
||||
}
|
||||
|
||||
char *segname[] = {
|
||||
".sect .text",
|
||||
".sect .data",
|
||||
".sect .rom",
|
||||
".sect .bss"
|
||||
};
|
||||
|
||||
#ifdef REGVARS
|
||||
|
||||
static int savedregsi[32];
|
||||
static int numsaved;
|
||||
|
||||
/* Initialise regvar system for one function. */
|
||||
|
||||
i_regsave()
|
||||
{
|
||||
int i;
|
||||
|
||||
fprintf(codefile, "! i_regsave()\n");
|
||||
for (i=0; i<32; i++)
|
||||
savedregsi[i] = INT_MAX;
|
||||
numsaved = 0;
|
||||
}
|
||||
|
||||
/* Mark a register as being saved. */
|
||||
|
||||
regsave(const char* regname, full offset, int size)
|
||||
{
|
||||
int regnum = atoi(regname+1);
|
||||
savedregsi[regnum] = offset;
|
||||
numsaved++;
|
||||
|
||||
fprintf(codefile, "! %d is saved in %s\n", offset, regname);
|
||||
#if 0
|
||||
fprintf(codefile, "stwu %s, -4(sp)\n", regname);
|
||||
if (offset >= 0)
|
||||
fprintf(codefile, "lwz %s, %d(fp)\n", regname, offset);
|
||||
#endif
|
||||
}
|
||||
|
||||
/* Finish saving ragisters. */
|
||||
|
||||
void saveloadregs(const char* ops, const char* opm)
|
||||
{
|
||||
int offset = -(framesize + numsaved*4);
|
||||
int reg = 32;
|
||||
|
||||
/* Check for the possibility of a multiple. */
|
||||
|
||||
do
|
||||
{
|
||||
reg--;
|
||||
}
|
||||
while ((reg > 0) && (savedregsi[reg] != INT_MAX));
|
||||
if (reg < 31)
|
||||
{
|
||||
fprintf(codefile, "%s r%d, %d(fp)\n", opm, reg+1, offset);
|
||||
offset += (31-reg)*4;
|
||||
}
|
||||
|
||||
/* Saved everything else singly. */
|
||||
|
||||
while (reg > 0)
|
||||
{
|
||||
if (savedregsi[reg] != INT_MAX)
|
||||
{
|
||||
fprintf(codefile, "%s r%d, %d(fp)\n", ops, reg, offset);
|
||||
offset += 4;
|
||||
}
|
||||
reg--;
|
||||
}
|
||||
}
|
||||
|
||||
f_regsave()
|
||||
{
|
||||
int i;
|
||||
fprintf(codefile, "! f_regsave()\n");
|
||||
fprintf(codefile, "addi sp, sp, %d\n", -numsaved*4);
|
||||
|
||||
saveloadregs("stw", "stmw");
|
||||
|
||||
for (i=0; i<32; i++)
|
||||
if ((savedregsi[i] != INT_MAX) && (savedregsi[i] > 0))
|
||||
fprintf(codefile, "lwz r%d, %d(fp)\n", i, savedregsi[i]);
|
||||
}
|
||||
|
||||
/* Restore all saved registers. */
|
||||
|
||||
regreturn()
|
||||
{
|
||||
fprintf(codefile, "! regreturn()\n");
|
||||
saveloadregs("lwz", "lmw");
|
||||
}
|
||||
|
||||
/* Calculate the score of a given register. */
|
||||
|
||||
int regscore(full offset, int size, int type, int frequency, int totype)
|
||||
{
|
||||
int score;
|
||||
|
||||
fprintf(codefile, "! regscore(%ld, %d, %d, %d, %d)\n", offset, size, type, frequency, totype);
|
||||
|
||||
if (size != 4)
|
||||
return -1;
|
||||
|
||||
/* Per use: 6 bytes (on average)
|
||||
* Overhead in prologue: 4 bytes, plus 4 if a parameter
|
||||
* Overhead in epilogue: 0 bytes
|
||||
*/
|
||||
|
||||
score = frequency*6 - 4 - ((offset>=0) ? 4 : 0);
|
||||
fprintf(codefile, "! local at offset %d has regvar score %d\n", offset, score);
|
||||
return score;
|
||||
}
|
||||
|
||||
#endif
|
||||
32
mach/vc4/ncg/mach.h
Normal file
32
mach/vc4/ncg/mach.h
Normal file
|
|
@ -0,0 +1,32 @@
|
|||
/*
|
||||
* VideoCore IV code generator for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#define ex_ap(y) fprintf(codefile,".extern %s\n",y)
|
||||
#define in_ap(y) /* nothing */
|
||||
|
||||
#define newilb(x) fprintf(codefile,"%s:\n",x)
|
||||
#define newdlb(x) fprintf(codefile,"%s:\n",x)
|
||||
#define dlbdlb(x,y) fprintf(codefile,"%s = %s\n",x,y)
|
||||
#define newlbss(l,x) fprintf(codefile,".comm %s,%u\n",l,x);
|
||||
|
||||
#define cst_fmt "%d"
|
||||
#define off_fmt "%d"
|
||||
#define ilb_fmt "I%x_%x"
|
||||
#define dlb_fmt "_%d"
|
||||
#define hol_fmt "hol%d"
|
||||
|
||||
#define hol_off "%ld+hol%d"
|
||||
|
||||
#define con_cst(x) fprintf(codefile,".data4\t%ld\n",x)
|
||||
#define con_ilb(x) fprintf(codefile,".data4\t%s\n",x)
|
||||
#define con_dlb(x) fprintf(codefile,".data4\t%s\n",x)
|
||||
|
||||
#define fmt_id(sf, st) sprintf(st,"_%s",sf)
|
||||
|
||||
#define modhead ".sect .text; .sect .rom; .sect .data; .sect .bss\n"
|
||||
|
||||
#define BSS_INIT 0
|
||||
1999
mach/vc4/ncg/table
Normal file
1999
mach/vc4/ncg/table
Normal file
File diff suppressed because it is too large
Load diff
77
mach/vc4/test/opcodes.s
Normal file
77
mach/vc4/test/opcodes.s
Normal file
|
|
@ -0,0 +1,77 @@
|
|||
#
|
||||
/*
|
||||
* VideoCore IV assembler test file
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
.sect .text
|
||||
|
||||
main:
|
||||
nop
|
||||
rti
|
||||
|
||||
b r0
|
||||
b r31
|
||||
bl r0
|
||||
bl r31
|
||||
tbb r0
|
||||
tbb r15
|
||||
tbs r0
|
||||
tbs r15
|
||||
|
||||
mov r0, r1
|
||||
cmn r0, r1
|
||||
add r0, r1
|
||||
bic r0, r1
|
||||
mul r0, r1
|
||||
eor r0, r1
|
||||
sub r0, r1
|
||||
and r0, r1
|
||||
mvn r0, r1
|
||||
ror r0, r1
|
||||
cmp r0, r1
|
||||
rsb r0, r1
|
||||
btst r0, r1
|
||||
or r0, r1
|
||||
extu r0, r1
|
||||
max r0, r1
|
||||
bset r0, r1
|
||||
min r0, r1
|
||||
bclr r0, r1
|
||||
adds2 r0, r1
|
||||
bchg r0, r1
|
||||
adds4 r0, r1
|
||||
adds8 r0, r1
|
||||
adds16 r0, r1
|
||||
exts r0, r1
|
||||
neg r0, r1
|
||||
lsr r0, r1
|
||||
clz r0, r1
|
||||
lsl r0, r1
|
||||
brev r0, r1
|
||||
asr r0, r1
|
||||
abs r0, r1
|
||||
|
||||
mov r0, #31
|
||||
cmn r0, #31
|
||||
add r0, #31
|
||||
bic r0, #31
|
||||
mul r0, #31
|
||||
eor r0, #31
|
||||
sub r0, #31
|
||||
and r0, #31
|
||||
mvn r0, #31
|
||||
ror r0, #31
|
||||
cmp r0, #31
|
||||
rsb r0, #31
|
||||
btst r0, #31
|
||||
or r0, #31
|
||||
extu r0, #31
|
||||
max r0, #31
|
||||
|
||||
47
plat/rpi/build.mk
Normal file
47
plat/rpi/build.mk
Normal file
|
|
@ -0,0 +1,47 @@
|
|||
# Build script for Raspberry Pi bare-metal executables (using the
|
||||
# VideoCore IV processor, not the ARM).
|
||||
#
|
||||
# © 2013 David Given
|
||||
# This file is redistributable under the terms of the 3-clause BSD license.
|
||||
# See the file 'Copying' in the root of the distribution for the full text.
|
||||
|
||||
ARCH := vc4
|
||||
PLATFORM := rpi
|
||||
OPTIMISATION := -O
|
||||
|
||||
D := plat/rpi/
|
||||
|
||||
platform-headers := \
|
||||
ack/config.h
|
||||
|
||||
platform-libsys := \
|
||||
_hol0.s \
|
||||
|
||||
ifeq (x,y)
|
||||
errno.s \
|
||||
_sys_rawread.s \
|
||||
_sys_rawwrite.s \
|
||||
open.c \
|
||||
creat.c \
|
||||
close.c \
|
||||
read.c \
|
||||
write.c \
|
||||
brk.c \
|
||||
getpid.c \
|
||||
kill.c \
|
||||
isatty.c \
|
||||
lseek.c \
|
||||
time.c \
|
||||
signal.c
|
||||
endif
|
||||
|
||||
$(eval $(call build-platform))
|
||||
|
||||
define build-rpi-boot-impl
|
||||
$(call reset)
|
||||
$(call ackfile, $D/boot.s)
|
||||
$(call installto, $(PLATIND)/$(PLATFORM)/boot.o)
|
||||
endef
|
||||
|
||||
#(eval $(build-rpi-boot-impl))
|
||||
|
||||
69
plat/rpi/descr
Normal file
69
plat/rpi/descr
Normal file
|
|
@ -0,0 +1,69 @@
|
|||
# $Source$
|
||||
# $State$
|
||||
# $Revision$
|
||||
|
||||
var w=2
|
||||
var p=2
|
||||
var s=2
|
||||
var l=4
|
||||
var f=4
|
||||
var d=8
|
||||
var ARCH=vc4
|
||||
var PLATFORM=rpi
|
||||
var PLATFORMDIR={EM}/share/ack/{PLATFORM}
|
||||
var CPP_F=-D__unix
|
||||
var ALIGN=-a0:1 -a1:1 -a2:1 -a3:1
|
||||
var MACHOPT_F=-m8
|
||||
|
||||
# Override the setting in fe so that files compiled for this platform can see
|
||||
# the platform-specific headers.
|
||||
|
||||
var C_INCLUDES=-I{PLATFORMDIR}/include -I{EM}/share/ack/include/ansi
|
||||
|
||||
name be
|
||||
from .m.g
|
||||
to .s
|
||||
program {EM}/lib/ack/{PLATFORM}/ncg
|
||||
args <
|
||||
stdout
|
||||
need .e
|
||||
end
|
||||
name as
|
||||
from .s.so
|
||||
to .o
|
||||
program {EM}/lib/ack/{PLATFORM}/as
|
||||
args - -o > <
|
||||
prep cond
|
||||
end
|
||||
name led
|
||||
from .o.a
|
||||
to .out
|
||||
program {EM}/lib/ack/em_led
|
||||
mapflag -l* LNAME={PLATFORMDIR}/lib*
|
||||
mapflag -i SEPID=-b1:0
|
||||
mapflag -fp FLOATS={EM}/{ILIB}fp
|
||||
args {ALIGN} {SEPID?} \
|
||||
(.e:{HEAD}={PLATFORMDIR}/boot.o) \
|
||||
({RTS}:.ocm.b={PLATFORMDIR}/c-ansi.o) \
|
||||
({RTS}:.c={PLATFORMDIR}/c-ansi.o) \
|
||||
({RTS}:.mod={PLATFORMDIR}/modula2.o) \
|
||||
({RTS}:.p={PLATFORMDIR}/pascal.o) \
|
||||
-o > < \
|
||||
(.p:{TAIL}={PLATFORMDIR}/libpascal.a) \
|
||||
(.b:{TAIL}={PLATFORMDIR}/libbasic.a) \
|
||||
(.mod:{TAIL}={PLATFORMDIR}/libmodula2.a) \
|
||||
(.ocm:{TAIL}={PLATFORMDIR}/liboccam.a) \
|
||||
(.ocm.b.mod.c.p:{TAIL}={PLATFORMDIR}/libc.a) \
|
||||
{FLOATS?} \
|
||||
(.e:{TAIL}={PLATFORMDIR}/libem.a \
|
||||
{PLATFORMDIR}/libsys.a \
|
||||
{PLATFORMDIR}/libend.a)
|
||||
linker
|
||||
end
|
||||
name cv
|
||||
from .out
|
||||
to .img
|
||||
program {EM}/bin/aslod
|
||||
args < >
|
||||
outfile raspberrypi.bin
|
||||
end
|
||||
11
plat/rpi/include/ack/config.h
Normal file
11
plat/rpi/include/ack/config.h
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#ifndef _ACK_CONFIG_H
|
||||
#define _ACK_CONFIG_H
|
||||
|
||||
#endif
|
||||
73
plat/rpi/include/unistd.h
Normal file
73
plat/rpi/include/unistd.h
Normal file
|
|
@ -0,0 +1,73 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#ifndef _UNISTD_H
|
||||
#define _UNISTD_H
|
||||
|
||||
#include <stddef.h>
|
||||
|
||||
/* Types */
|
||||
|
||||
typedef int pid_t;
|
||||
typedef int mode_t;
|
||||
|
||||
/* Constants for file access (open and friends) */
|
||||
|
||||
enum
|
||||
{
|
||||
O_ACCMODE = 0x3,
|
||||
|
||||
O_RDONLY = 0,
|
||||
O_WRONLY = 1,
|
||||
O_RDWR = 2,
|
||||
|
||||
O_CREAT = 0100,
|
||||
O_TRUNC = 01000,
|
||||
O_APPEND = 02000,
|
||||
O_NONBLOCK = 04000
|
||||
};
|
||||
|
||||
/* Special variables */
|
||||
|
||||
extern char** environ;
|
||||
|
||||
/* Implemented system calls */
|
||||
|
||||
extern void _exit(int);
|
||||
extern pid_t getpid(void);
|
||||
extern void* sbrk(intptr_t increment);
|
||||
extern int isatty(int d);
|
||||
extern off_t lseek(int fildes, off_t offset, int whence);
|
||||
extern int close(int d);
|
||||
extern int open(const char* path, int access, ...);
|
||||
extern int creat(const char* path, mode_t mode);
|
||||
extern int read(int fd, void* buffer, size_t count);
|
||||
extern int write(int fd, void* buffer, size_t count);
|
||||
|
||||
/* Unimplemented system calls (these are just prototypes to let the library
|
||||
* compile). */
|
||||
|
||||
extern int fcntl(int fd, int op, ...);
|
||||
|
||||
/* Signal handling */
|
||||
|
||||
typedef int sig_atomic_t;
|
||||
|
||||
#define SIG_ERR ((sighandler_t) -1) /* Error return. */
|
||||
#define SIG_DFL ((sighandler_t) 0) /* Default action. */
|
||||
#define SIG_IGN ((sighandler_t) 1) /* Ignore signal. */
|
||||
|
||||
#define SIGABRT 6 /* Abort (ANSI) */
|
||||
#define SIGILL 11 /* Illegal instruction */
|
||||
|
||||
#define _NSIG 32 /* Biggest signal number + 1
|
||||
(not including real-time signals). */
|
||||
typedef void (*sighandler_t)(int);
|
||||
extern sighandler_t signal(int signum, sighandler_t handler);
|
||||
extern int raise(int signum);
|
||||
|
||||
#endif
|
||||
22
plat/rpi/libsys/_hol0.s
Normal file
22
plat/rpi/libsys/_hol0.s
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
#
|
||||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
! Declare segments (the order is important).
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
|
||||
.sect .bss
|
||||
|
||||
! This data block is used to store information about the current line number
|
||||
! and file.
|
||||
|
||||
.define hol0
|
||||
.comm hol0, 8
|
||||
26
plat/rpi/libsys/_sys_rawread.s
Normal file
26
plat/rpi/libsys/_sys_rawread.s
Normal file
|
|
@ -0,0 +1,26 @@
|
|||
#
|
||||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
! Declare segments (the order is important).
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
|
||||
.sect .text
|
||||
|
||||
! Reads a single byte.
|
||||
|
||||
.define __sys_rawread
|
||||
__sys_rawread:
|
||||
xorb ah, ah
|
||||
int 0x16
|
||||
xorb ah, ah
|
||||
ret
|
||||
|
||||
32
plat/rpi/libsys/_sys_rawwrite.s
Normal file
32
plat/rpi/libsys/_sys_rawwrite.s
Normal file
|
|
@ -0,0 +1,32 @@
|
|||
#
|
||||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
! Declare segments (the order is important).
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
|
||||
.sect .text
|
||||
|
||||
! Writes a single byte to the console.
|
||||
|
||||
.define __sys_rawwrite
|
||||
.extern __sys_rawwrite
|
||||
|
||||
__sys_rawwrite:
|
||||
push bp
|
||||
mov bp, sp
|
||||
|
||||
movb al, 4(bp)
|
||||
movb ah, 0x0E
|
||||
mov bx, 0x0007
|
||||
int 0x10
|
||||
jmp .cret
|
||||
|
||||
45
plat/rpi/libsys/brk.c
Normal file
45
plat/rpi/libsys/brk.c
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
|
||||
#define OUT_OF_MEMORY (void*)(-1) /* sbrk returns this on failure */
|
||||
#define STACK_BUFFER 128 /* number of bytes to leave for stack */
|
||||
|
||||
extern char _end[1];
|
||||
static char* current = _end;
|
||||
|
||||
int brk(void* newend)
|
||||
{
|
||||
/* This variable is used to figure out the current stack pointer,
|
||||
* by taking its address. */
|
||||
char dummy;
|
||||
char* p = newend;
|
||||
|
||||
if ((p > (&dummy - STACK_BUFFER)) ||
|
||||
(p < _end))
|
||||
return -1;
|
||||
|
||||
current = p;
|
||||
return 0;
|
||||
}
|
||||
|
||||
void* sbrk(intptr_t increment)
|
||||
{
|
||||
char* old;
|
||||
|
||||
if (increment == 0)
|
||||
return current;
|
||||
|
||||
old = current;
|
||||
if (brk(old + increment) < 0)
|
||||
return OUT_OF_MEMORY;
|
||||
|
||||
return old;
|
||||
}
|
||||
16
plat/rpi/libsys/close.c
Normal file
16
plat/rpi/libsys/close.c
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
|
||||
int close(int fd)
|
||||
{
|
||||
errno = EBADF;
|
||||
return -1;
|
||||
}
|
||||
17
plat/rpi/libsys/creat.c
Normal file
17
plat/rpi/libsys/creat.c
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
#include "libsys.h"
|
||||
|
||||
int open(const char* path, int access, ...)
|
||||
{
|
||||
errno = EACCES;
|
||||
return -1;
|
||||
}
|
||||
31
plat/rpi/libsys/errno.s
Normal file
31
plat/rpi/libsys/errno.s
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
#
|
||||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
! Declare segments (the order is important).
|
||||
|
||||
.sect .text
|
||||
.sect .rom
|
||||
.sect .data
|
||||
.sect .bss
|
||||
|
||||
#define D(e) .define e; e
|
||||
|
||||
.sect .data
|
||||
|
||||
! Define various ACK error numbers. Note that these are *not* ANSI C
|
||||
! errnos, and are used for different purposes.
|
||||
|
||||
D(ERANGE) = 1
|
||||
D(ESET) = 2
|
||||
D(EIDIVZ) = 6
|
||||
D(EHEAP) = 17
|
||||
D(EILLINS) = 18
|
||||
D(EODDZ) = 19
|
||||
D(ECASE) = 20
|
||||
D(EBADMON) = 25
|
||||
|
||||
15
plat/rpi/libsys/getpid.c
Normal file
15
plat/rpi/libsys/getpid.c
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
|
||||
pid_t getpid(void)
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
15
plat/rpi/libsys/isatty.c
Normal file
15
plat/rpi/libsys/isatty.c
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
|
||||
int isatty(int fd)
|
||||
{
|
||||
return 1;
|
||||
}
|
||||
16
plat/rpi/libsys/kill.c
Normal file
16
plat/rpi/libsys/kill.c
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
|
||||
int kill(pid_t pid, int sig)
|
||||
{
|
||||
errno = EINVAL;
|
||||
return -1;
|
||||
}
|
||||
18
plat/rpi/libsys/libsys.h
Normal file
18
plat/rpi/libsys/libsys.h
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#ifndef LIBSYS_H
|
||||
#define LIBSYS_H
|
||||
|
||||
extern void _sys_rawwrite(unsigned char b);
|
||||
extern unsigned char _sys_rawread(void);
|
||||
|
||||
extern void _sys_write_tty(char c);
|
||||
|
||||
/* extern int _sys_ttyflags; */
|
||||
|
||||
#endif
|
||||
16
plat/rpi/libsys/lseek.c
Normal file
16
plat/rpi/libsys/lseek.c
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
|
||||
off_t lseek(int fd, off_t offset, int whence)
|
||||
{
|
||||
errno = EINVAL;
|
||||
return -1;
|
||||
}
|
||||
16
plat/rpi/libsys/open.c
Normal file
16
plat/rpi/libsys/open.c
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
#include "libsys.h"
|
||||
|
||||
int creat(const char* path, int mode)
|
||||
{
|
||||
return open(path, O_CREAT|O_WRONLY|O_TRUNC, mode);
|
||||
}
|
||||
45
plat/rpi/libsys/read.c
Normal file
45
plat/rpi/libsys/read.c
Normal file
|
|
@ -0,0 +1,45 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
#include "libsys.h"
|
||||
|
||||
int read(int fd, void* buffer, size_t count)
|
||||
{
|
||||
char i;
|
||||
|
||||
/* We're only allowed to read from fd 0, 1 or 2. */
|
||||
|
||||
if ((fd < 0) || (fd > 2))
|
||||
{
|
||||
errno = EBADF;
|
||||
return -1;
|
||||
}
|
||||
|
||||
/* Empty buffer? */
|
||||
|
||||
if (count == 0)
|
||||
return 0;
|
||||
|
||||
/* Read one byte. */
|
||||
|
||||
i = _sys_rawread();
|
||||
#if 0
|
||||
if ((i == '\r') && !(_sys_ttyflags & RAW))
|
||||
i = '\n';
|
||||
if (_sys_ttyflags & ECHO)
|
||||
_sys_write_tty(i);
|
||||
#endif
|
||||
if (i == '\r')
|
||||
i = '\n';
|
||||
_sys_write_tty(i);
|
||||
|
||||
*(char*)buffer = i;
|
||||
return 1;
|
||||
}
|
||||
17
plat/rpi/libsys/signal.c
Normal file
17
plat/rpi/libsys/signal.c
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
#include <signal.h>
|
||||
#include "libsys.h"
|
||||
|
||||
sighandler_t signal(int signum, sighandler_t handler)
|
||||
{
|
||||
return SIG_DFL;
|
||||
}
|
||||
19
plat/rpi/libsys/time.c
Normal file
19
plat/rpi/libsys/time.c
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
#include <time.h>
|
||||
#include "libsys.h"
|
||||
|
||||
time_t time(time_t* t)
|
||||
{
|
||||
if (t)
|
||||
*t = 0;
|
||||
return 0;
|
||||
}
|
||||
50
plat/rpi/libsys/write.c
Normal file
50
plat/rpi/libsys/write.c
Normal file
|
|
@ -0,0 +1,50 @@
|
|||
/*
|
||||
* Raspberry Pi support library for the ACK
|
||||
* © 2013 David Given
|
||||
* This file is redistributable under the terms of the 3-clause BSD license.
|
||||
* See the file 'Copying' in the root of the distribution for the full text.
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <errno.h>
|
||||
#include <unistd.h>
|
||||
#include "libsys.h"
|
||||
|
||||
void _sys_write_tty(char c)
|
||||
{
|
||||
_sys_rawwrite(c);
|
||||
#if 0
|
||||
if ((c == '\n') && !(_sys_ttyflags & RAW))
|
||||
_sys_rawwrite('\r');
|
||||
#endif
|
||||
if (c == '\n')
|
||||
_sys_rawwrite('\r');
|
||||
}
|
||||
|
||||
int write(int fd, void* buffer, size_t count)
|
||||
{
|
||||
int i;
|
||||
char* p = buffer;
|
||||
|
||||
/* We're only allowed to write to fd 0, 1 or 2. */
|
||||
|
||||
if ((fd < 0) || (fd > 2))
|
||||
{
|
||||
errno = EBADF;
|
||||
return -1;
|
||||
}
|
||||
|
||||
/* Write all data. */
|
||||
|
||||
i = 0;
|
||||
while (i < count)
|
||||
{
|
||||
_sys_write_tty(*p++);
|
||||
|
||||
i++;
|
||||
}
|
||||
|
||||
/* No failures. */
|
||||
|
||||
return count;
|
||||
}
|
||||
Loading…
Add table
Reference in a new issue