[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