[openfirmware] r1502 - in cpu: ppc/Linux ppc/build x86/Linux
svn at openfirmware.info
svn at openfirmware.info
Wed Nov 25 21:31:53 CET 2009
Author: wmb
Date: 2009-11-25 21:31:53 +0100 (Wed, 25 Nov 2009)
New Revision: 1502
Modified:
cpu/ppc/Linux/
cpu/ppc/build/
cpu/x86/Linux/
cpu/x86/Linux/Makefile
cpu/x86/Linux/graphdev.fth
Log:
svn ignores
Property changes on: cpu/ppc/Linux
___________________________________________________________________
Modified: svn:ignore
- ppcforth.trace
ppcforth
+ ppcforth.trace
ppcforth
forth
Property changes on: cpu/ppc/build
___________________________________________________________________
Modified: svn:ignore
- ppcforth
build
+ ppcforth
build
*.tag
Property changes on: cpu/x86/Linux
___________________________________________________________________
Modified: svn:ignore
- forth
x86forth
ppcforth
+ forth
x86forth
ppcforth
*.tag
Modified: cpu/x86/Linux/Makefile
===================================================================
--- cpu/x86/Linux/Makefile 2009-11-25 20:27:12 UTC (rev 1501)
+++ cpu/x86/Linux/Makefile 2009-11-25 20:31:53 UTC (rev 1502)
@@ -3,7 +3,8 @@
BP=../../..
CFLAGS = -O -g -m32 -DTARGET_X86
-# CFLAGS += -DUSE_XCB
+CFLAGS += -DUSE_XCB
+LIBS += -lxcb
WRTAIL = forth/wrapper
WRDIR = ${BP}/${WRTAIL}
@@ -12,7 +13,7 @@
ZIPOBJS = zipmem.o deflate.o trees.o bits.o util.o inflate.o
-OBJS = wrapper.o logger.o ${ZIPOBJS}
+OBJS = wrapper.o logger.o ${ZIPOBJS} xcbifce.o
all: forth x86forth ../build/inflate.bin
@@ -21,7 +22,7 @@
# Use x86forth when you need to compile new dictionaries that will
# run on x86 systems.
forth: ${OBJS}
- ${CC} -m32 -o $@ ${OBJS}
+ ${CC} -m32 -o $@ ${OBJS} ${LIBS}
@ln -sf forth x86forth
# Compile with -O0 because with GCC4, higher optimization levels cause the
Modified: cpu/x86/Linux/graphdev.fth
===================================================================
--- cpu/x86/Linux/graphdev.fth 2009-11-25 20:27:12 UTC (rev 1501)
+++ cpu/x86/Linux/graphdev.fth 2009-11-25 20:31:53 UTC (rev 1502)
@@ -1,8 +1,16 @@
purpose: Simulation of OFW graphics using X
+[ifndef] screen-ih
+dev / : open true ; : close ; dend
+0 value screen-ih
+: $call-screen screen-ih $call-method ;
+[then]
+[ifndef] show-state : show-state 2drop ; [then]
+
dev / new-device
" xgraphics" device-name
: open ( -- okay? ) d# 1200 d# 900 d# 392 syscall 2drop retval 0= ;
+debug open
: close ( -- ) d# 396 syscall ;
: fill-rectangle ( color565 x y w h -- ) d# 404 syscall 4drop drop ;
More information about the openfirmware
mailing list