openfirmware July 2011

openfirmware@openfirmware.info

1 participants
74 discussions

[commit] r2346 - cpu/arm/mmp2
by repository service 12 Jul '11

12 Jul '11

Author: wmb Date: Tue Jul 12 11:17:29 2011 New Revision: 2346 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2346 Log: Checked in a file containing complex code for setting up the clocks on an MMP2. Might be useful some day; although much simpler code is currently in use. Added: cpu/arm/mmp2/clocks-complex.fth Added: cpu/arm/mmp2/clocks-complex.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/arm/mmp2/clocks-complex.fth Tue Jul 12 11:17:29 2011 (r2346) @@ -0,0 +1,308 @@ +purpose: A complex way to do MMP2 clock frequency setting based on Marvell code + +\ Our current chip_id is 00a0.a610 and stepping is 0000.4131 (A1) + +\ vcc pclk pdclk baclk xpclk dclk aclk name +create operating-points +decimal +1230 , 100 , 100 , 100 , 100 , 400 , 100 , \ "Ultra Low MIPS" +1230 , 200 , 200 , 200 , 200 , 400 , 200 , \ "Low MIPS" +1280 , 400 , 200 , 200 , 200 , 400 , 200 , \ "Video M MIPS" +1300 , 800 , 400 , 400 , 400 , 400 , 266 , \ "Video H MIPS" +1350 , 1001 , 500 , 500 , 500 , 400 , 266 , \ "Super H MIPS" +0 , +hex + +0 [if] +1300 , 800 , 400 , 400 , 400 , 400 , 200 , \ "Video H MIPS" - Z0/Z1 settings +1300 , 624 , 312 , 312 , 312 , 312 , 156 , \ "624MHz" - only for Z0 and Z1 steppings + + pj4-cc sp-cc fccr cgr pj4-cc-oct sp-cc-oct + cur 18fd96d9 8fd8241 3077313331 1077301101 + old 78fd8248 8fd8248 7077301110 1077301110 17.077.301.101 + cvr52ADXBCP 52ADXBpP +ok d# 100 find-op new-reg-values .s clear 878b86c3 88b86c3 800000 a000 20742703303 1042703303 +ok d# 200 find-op new-reg-values .s clear 87898241 8898241 800000 a000 20742301101 1042301101 +ok d# 400 find-op new-reg-values .s clear 87898240 8898240 800000 a000 20742301100 1042301100 +ok d# 800 find-op new-reg-values .s clear 87890240 8890240 20800000 8000 20742201100 1042201100 +ok d# 1001 find-op new-reg-values .s clear 87890240 8890240 40800000 c000 20742201100 1042201100 +[then] + +\ IDLE, EXTIDLE, APPS_IDLE, APPS_SLEEP, SYS_SLEEP all have vcc=1280 + +0 value 'op +: pclk ( -- mhz ) 'op 1 na+ @ ; +\ : pdclk ( -- mhz ) 'op 2 na+ @ ; \ This is effectively unused +: baclk ( -- mhz ) 'op 3 na+ @ ; +: xpclk ( -- mhz ) 'op 4 na+ @ ; +: dclk ( -- mhz ) 'op 5 na+ @ ; +: aclk ( -- mhz ) 'op 6 na+ @ ; +: datarate ( -- mhz ) dclk 2* ; + +: ~= ( n1 n2 -- flag ) - -2 2 between ; +: find-op ( mhz -- ) + operating-points begin dup @ while ( mhz adr ) + 2dup na1+ @ ~= if ( mhz adr ) + to 'op drop exit ( -- ) + then ( mhz adr ) + 7 na+ ( mhz adr' ) + repeat ( mhz adr ) + true abort" Can't find operating point" +; + +0 value old-dclk +0 value new-fccr +0 value pll-pj4-frequency +0 value pll-ad-frequency +0 value new-cgr + +: set-field ( val bits bit# -- val' ) lshift or ; +: >bit ( bit# -- ) 1 swap lshift ; +: set-bit ( val bit# -- val' ) >bit or ; + +create frequencies d# 400 , d# 800 , 0 , d# 26 , +: fccr>frequency ( source-id -- mhz ) frequencies swap na+ @ ; +: 'pll2-frequency ( -- adr ) frequencies 2 na+ ; + +create cgr-masks d# 13 >bit , d# 15 >bit , d# 14 >bit , 0 , +: fccr>cgr-mask ( source-id -- mhz ) cgr-masks swap na+ @ ; + +: frequency>fccr ( mhz -- fccr-bits ) + dup d# 26 = if drop 3 exit then \ Special case for VCXO frequency + d# 800 over mod 3 < if ( mhz ) \ Close to a divisor of 800 ? + d# 400 <= if 0 else 1 then ( fccr-bits ) + else ( mhz ) + 'pll2-frequency @ if ( mhz ) + drop ( ) + else ( mhz ) + 'pll2-frequency ! ( ) + then ( ) + 2 ( fccr-bits ) + then ( fccr-bits ) +; + +: mhz>source-frequency ( mhz fccr-bit# -- source-frequency ) + >r frequency>fccr ( fccr-bits r: fccr-bit# ) + dup r> lshift new-fccr or to new-fccr ( fccr-bits ) + dup fccr>cgr-mask new-cgr or to new-cgr ( fccr-bits ) + fccr>frequency ( source-frequency ) +; +: choose-pclk-source ( -- ) + pclk d# 29 mhz>source-frequency to pll-pj4-frequency ( ) +\ clip-pj4-clocks +; + +: choose-dclk-source ( -- ) + datarate d# 23 mhz>source-frequency to pll-ad-frequency ( ) +\ clip-ad-clocks +; + +\ The clock sources have been selected, so pll-pj4-frequency and pll-ad-frequency are valid +\ Calculate the various divisors and insert them into the appropriate fields for the +\ two clock control registers. +: compute-new-cc-regs ( -- pj4-cc sp-cc ) + 0 ( cc-reg ) + pclk if pll-pj4-frequency pclk / 1- 0 set-field then ( cc-reg' ) + xpclk if pll-pj4-frequency xpclk / 1- 9 set-field then ( cc-reg' ) + pll-pj4-frequency baclk / 1- baclk if 6 else 3 then set-field ( cc-reg' ) \ Either BA_CLK (6) or CS_CLK (3) + + datarate if pll-ad-frequency datarate / 1- d# 12 set-field then ( cc-reg' ) + aclk if pll-ad-frequency aclk / 1- d# 15 set-field then ( cc-reg' ) + +\ The lines following this block force both async bits to be set, so this conditional setting is irrelevant +\ pdclk datarate <> if d# 19 set-bit then \ Async2 if pdclock2 != DDRClk +\ baclk aclk <> if d# 23 set-bit then \ Async5 if baclk2 != aclk + + d# 19 set-bit ( cc-reg' ) \ PMUA_CC_MOH_ASYNC2 + d# 23 set-bit ( cc-reg' ) \ PMUA_CC_MOH_ASYNC5 + + \ Write a subset of the fields to the SP's clock control register before finishing the value for the PJ4's CC reg + dup d# 27 >bit or swap ( sp-cc-reg pj4-cc-reg ) \ PMUA_CC_SEA_SEA_ALLOW_SPD_CHG bit + others in PMUA_CC_SP + + pclk 0<> baclk 0<> or ( pdclk 0<> or ) xpclk 0<> or if d# 24 set-bit then ( cc-reg' ) \ PMUA_CC_MOH_MOH_FREQ_CHG_REQ + datarate if d# 25 set-bit then ( sp-cc-reg pj4-cc-reg' ) \ PMUA_CC_MOH_DDR_FREQ_CHG_REQ + aclk if d# 26 set-bit then ( sp-cc-reg pj4-cc-reg' ) \ PMUA_CC_MOH_BUS_FREQ_CHG_REQ +[ifdef] notdef + dup h# 0700.0000 and if d# 27 set-bit then ( sp-cc-reg pj4-cc-reg' ) +[then] + d# 31 set-bit ( sp-cc-reg pj4-cc-reg' ) \ PMUA_CC_MOH_MOH_RD_ST_CLEAR + swap ( pj4-cc-reg sp-cc-reg ) +; + +\ Assumes that 'op already points to an operating point table +: new-reg-values ( -- pj4-cc sp-cc fccr cgr ) + 0 to new-fccr 0 to new-cgr 'pll2-frequency off + choose-pclk-source + choose-dclk-source + +\ I think this write is deferred until the DDR clock setting step +\ writel(fccr, info->pmum_base + FCCR_OFF); + + compute-new-cc-regs ( pj4-cc sp-cc ) + new-fccr new-cgr ( pj4-cc sp-cc fccr cgr ) +; + +\ Beginning of section that accesses the hardware + +: +pmua ( -- adr ) h# d428.2800 + ; +: +pmum ( -- adr ) h# d405.0000 + ; + +: pmum-pll2cr ( -- adr ) h# 34 +pmum ; +: pmum-pll2-ctrl1 ( -- adr ) h# 414 +pmum ; +: get-pll2-frequency ( -- mhz ) + pmum-pll2cr l@ ( regval ) \ PMUM_PLL2CR + dup d# 19 5 bits ( regval refdiv ) + swap d# 10 9 bits ( refdiv fbdiv ) + 2+ d# 26 * ( refdiv numerator ) + swap 2+ / ( mhz ) +; +: reg-set ( mask -- ) >r r@ l@ or r> l! ; +: reg-clr ( mask -- ) >r r@ l@ swap invert and r> l! ; + +4 constant refdiv \ 4 is the only reference divisor value that is mentioned in the documentation + +: setup-pll2 ( freq -- ) + refdiv 2+ * d# 26 rounded-/ ( fbdiv ) + 1 d# 29 lshift pmum-pll2-ctrl1 reg-clr ( fbdiv ) \ make sure pll2 is in reset + + + pmum-pll2cr l@ ( fbdiv val ) + h# 100 invert and ( fbdiv val' ) \ PMUM_PLL2CR_PLL2_SW_EN off + dup pmum-pll2cr l! ( fbdiv val ) + + h# 0007.fc00 invert and refdiv d# 19 lshift or ( fbdiv val' ) + h# 00f8.0000 invert and swap d# 10 lshift or ( val' ) + + h# 200 or ( val' ) \ PMUM_PLL2CR_CTRL + dup pmum-pll2cr l! ( val ) + + h# 100 or ( val ) + pmum-pll2cr l! ( ) \ PMUM_PLL2CR_PLL2_SW_EN on + + 1 d# 29 lshift pmum-pll2-ctrl1 reg-set ( ) \ pll2 out of reset + + d# 20 ms \ C code uses 2M spins +; + +: ?change-pll2-frequency ( -- ) + 'pll2-frequency @ ?dup if ( mhz ) + dup get-pll2-frequency <> if ( mhz ) + setup-pll2 ( ) + else ( mhz ) + drop ( ) + then ( ) + then ( ) +; + +[ifdef] later +: set-sram-table ( table-adr table# -- ) + 4 lshift h# 8000.0000 or ( table-adr common-bits ) + #sram-table 0 do ( table-adr common-bits ) + over i 8 * + ( table-adr common-bits table-entry-adr ) + dup l@ h# c20 dmcu! ( table-adr common-bits table-entry-adr ) + la1+ l@ h# c30 dmcu! ( table-adr common-bits ) + over i or h# c00 dmcu! ( common-bits table-adr ) + loop ( table-adr common-bits ) + 2drop ( ) +; +: x-do-fcs ( cc-reg fccr dclk -- ) + dup old-dclk = if ( cc-reg fccr dclk ) + \ There is no need to do DDR recal if dclk is unchanged + drop ( cc-reg fccr ) + 0 ( cc-reg fccr pmua_mc_par_ctrl-val ) + else ( cc-reg fccr dclk ) + dup to old-dclk ( cc-reg fccr dclk ) + choose-ddr-table 0 set-sram-table ( cc-reg fccr ) + 4 ( cc-reg fccr pmua_mc_par_ctrl-val ) + then to pmua_mc_par_ctrl-val ( cc-reg fccr ) + + +\ STUFF +; +[then] +: do-fcs ( cc-reg fccr dclk -- ) + drop ." FCCR " .x ." CCR " .x cr +; + +: current-dclk ( -- mhz ) + 8 +pmum l@ d# 23 rshift 7 and fccr>frequency ( source-mhz ) + 4 +pmua l@ d# 12 rshift 7 and 1+ / +; + +: PMUcore2_hw_fc_seq ( -- ) + current-dclk to old-dclk +\ get-pll2-frequency to old-pll2-frequency +\ pll2-old-frequency pclk min to new-pll2-frequency + + d# 31 >bit 4 +pmua reg-clr \ PMUA_CC_MOH_MOH_RD_ST_CLEAR - clears PJ_RD_STATUS to allow frequency changing + + d# 21 >bit h# 88 +pmua reg-set \ Omit this on Z stepping - this is an undocumented bit in an undocumented debug register + + 1 >bit h# 98 +pmua reg-set \ PMUA_MOH_IMR_MOH_FC_INTR_MASK bit in PMUA_PJ_IMR register + + begin + 4 +pmua l@ d# 24 >bit and \ PMUA_DM_CC_MOH_SEA_RD_STATUS bit in DM_CC_MOH register + 0= until + + new-reg-values ( pj4-cc sp-cc fccr cgr ) + + ?change-pll2-frequency ( pj4-cc sp-cc fccr cgr ) + + h# 1024 +pmum l! ( pj4-cc sp-cc fccr ) + swap 0 +pmua l! ( pj4-cc-reg fccr ) + dclk do-fcs ( ) + +[ifdef] notdef + 2 >bit h# b4 +pmua reg-clr \ MC_FC_SLP_EN bit in PMUA_MC_SLP_REQ_PJ register +[then] + + d# 31 >bit 4 +pmua reg-clr \ PMUA_CC_MOH_MOH_RD_ST_CLEAR (the documentation is unclear - is this bit write 1 to clr?) +; + +0 [if] +0 value new-pll2-frequency +0 value old-pll2-frequency +: clip-pj4-clocks ( -- ) + pll-pj4-frequency pclk min to pclk ( ) +\ pll-pj4-frequency pdclk min to pdclk ( ) + pll-pj4-frequency baclk min to baclk ( ) + pll-pj4-frequency xpclk min to xpclk ( ) +; +: clip-ad-clocks ( -- ) + pll-ad-frequency aclk min to aclk ( ) + pll-ad-frequency datarate min to datarate ( ) +; + +: old-choose-pclk-source ( -- ) + pclk case + d# 100 of d# 400 d# 13 >bit 0 endof + d# 200 of d# 400 d# 13 >bit 0 endof + d# 400 of d# 400 d# 13 >bit 0 endof + d# 800 of d# 800 d# 15 >bit 1 endof + ( default ) + old-pll2-frequency new-pll2-frequency <> if + new-pll2-frequency setup-pll2 + then + >r new-pll2-frequency d# 14 >bit 2 r> + endcase ( pll-pj4-frequency acgr-bits fccr-bits ) + + d# 29 lshift to new-fccr ( pll-pj4-frequency acgr-bits ) + new-cgr or to new-cgr ( pll-pj4-frequency ) + to pll-pj4-frequency ( ) +\ clip-pj4-clocks +; +: old-choose-dclk-source ( -- ) + datarate case + d# 100 of d# 400 d# 13 >bit 0 endof + d# 200 of d# 400 d# 13 >bit 0 endof + d# 400 of d# 400 d# 13 >bit 0 endof + d# 800 of d# 800 d# 15 >bit 1 endof + ( default ) >r pll-pj4-frequency d# 14 >bit 2 r> + endcase ( pll-ad-frequency acgr-bits fccr-bits ) + + new-fccr over d# 23 set-field to new-fccr ( pll-ad-frequency acgr-bits ) + new-cgr or to new-cgr ( pll-ad-frequency ) + to pll-ad-frequency ( ) +\ clip-ad-clocks +; +[then]

1 0

[commit] r2345 - forth/lib
by repository service 12 Jul '11

12 Jul '11

Author: wmb Date: Tue Jul 12 11:15:11 2011 New Revision: 2345 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2345 Log: Added a couple of tools to forth/lib for handling WinCE binaries. Not used by any standard builds. Added: forth/lib/dumpcebin.fth forth/lib/makecebin.fth Added: forth/lib/dumpcebin.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ forth/lib/dumpcebin.fth Tue Jul 12 11:15:11 2011 (r2345) @@ -0,0 +1,41 @@ +purpose: Show the sections of a WinCE .bin file + +h# 60 constant /buf +/buf buffer: secbuf +: +buf ( offset -- adr ) secbuf + ; +: sec@ ( offset -- l ) +buf l@ ; + +0 value section-len +: .section ( offset -- offset' ) + ." File offset: " dup 8 u.r + dup ifd @ fseek ( offset ) + secbuf d# 12 ifd @ fgets d# 12 <> abort" read failure" + 0 sec@ 0= if + ." Final record: " 4 sec@ 8 u.r ." " 8 sec@ 8 u.r cr + exit + then + + ." Start " 0 sec@ 8 u.r ." Length " 4 sec@ 8 u.r ." Sum " 8 sec@ 8 u.r cr + 4 sec@ to section-len + secbuf h# 60 section-len min ifd @ fgets drop + secbuf h# 60 section-len min ldump cr ( offset ) + d# 12 + section-len + +; + +: (dump-bin) ( filename$ -- ) + hex + $read-open + secbuf h# f ifd @ fgets h# f <> abort" Signature read failure" + secbuf " B000FF"n" comp abort" Bad signature" + + ." Load start " 7 sec@ 8 u.r ." Total length " h# b sec@ 8 u.r cr cr + + h# f begin ifd @ ftell ifd @ fsize < while ( offset ) + .section ( offset' ) + repeat ( offset ) + drop ( ) + ifd @ fclose +; +: dump-bin ( "filename" -- ) + safe-parse-word (dump-bin) +; Added: forth/lib/makecebin.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ forth/lib/makecebin.fth Tue Jul 12 11:15:11 2011 (r2345) @@ -0,0 +1,39 @@ +purpose: Wrap an OFW image in a WinCE ".bin" file format + +h# 100000 constant ofw-load-address +h# 100000 constant ofw-entry-address + +: put-long ( l -- ) + lbsplit swap 2swap swap ( hi hmid lmid lo ) + 4 0 do ofd @ fputc loop +; + +: make-bin-file ( "in-filename" "out-filename" -- ) + reading writing + + " B000FF"n" ofd @ fputs \ Signature + ofw-load-address put-long \ Lowest load address + ifd @ fsize put-long \ Total size + + ofw-load-address put-long \ Section load address - offset h# 0f + ifd @ fsize put-long \ Total size offset h# 13 + 0 put-long \ Checksum, will be patched later - offset h# 17 + + 0 ( sum ) + begin ( sum ) + ifd @ fgetc ( sum char ) + dup -1 <> ( sum char more? ) + while ( sum char ) + dup ofd @ fputc ( sum char ) + + ( sum' ) + repeat ( sum ) + + \ Final record with entry address + 0 put-long ( ) + ofw-entry-address put-long ( ) + 0 put-long ( ) + + h# 17 ofd @ fseek ( sum ) + put-long ( ) + ofd @ fclose ( ) +;

1 0

[commit] r2344 - clients/emacs/arm
by repository service 12 Jul '11

12 Jul '11

Author: wmb Date: Tue Jul 12 11:09:52 2011 New Revision: 2344 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2344 Log: svn ignore Modified: clients/emacs/arm/ (props changed) clients/emacs/arm/Makefile Modified: clients/emacs/arm/Makefile ============================================================================== --- clients/emacs/arm/Makefile Tue Jul 12 11:05:21 2011 (r2343) +++ clients/emacs/arm/Makefile Tue Jul 12 11:09:52 2011 (r2344) @@ -33,6 +33,7 @@ emacs: emacs.elf @$(STRIP) $< -o $@ + @rm emacs.elf emacs.elf: $(LIBDIR)/start.o $(OFILES) $(LIBS) Makefile emacs.lds $(LD) $(LFLAGS) -o $@ $(LIBDIR)/start.o $(OFILES) $(LIBS) -L$(GLIBDIR) -lgcc

1 0

[commit] r2343 - clients/emacs/arm clients/emacs/x86 clients/lib cpu/arm/olpc/1.75
by repository service 12 Jul '11

12 Jul '11

Author: wmb Date: Tue Jul 12 11:05:21 2011 New Revision: 2343 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2343 Log: OLPC XO-1.75 trac #10997 - added emacs to XO-1.75 build. Added: clients/emacs/arm/ clients/emacs/arm/Makefile clients/emacs/arm/config.h clients/emacs/arm/emacs.lds Modified: clients/emacs/x86/emacs.rc clients/lib/mem.c cpu/arm/olpc/1.75/olpc.bth Added: clients/emacs/arm/Makefile ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ clients/emacs/arm/Makefile Tue Jul 12 11:05:21 2011 (r2343) @@ -0,0 +1,55 @@ +# Makefile for MicroEMACS 3.7 for use with Open Firmware. +# +# To make emacs, type: make emacs +# or just: make +# + +TOOLPREFIX=/usr/local/arm/bin/arm-linux- +CC=$(TOOLPREFIX)gcc +LD=$(TOOLPREFIX)ld +STRIP=$(TOOLPREFIX)strip + +BP=../../.. +SRCDIR=.. +HLIBDIR=$(BP)/clients/lib +LIBDIR=$(HLIBDIR)/arm +GLIBDIR=$(dir $(shell $(CC) -print-libgcc-file-name)) + +INCS=-I. -I$(SRCDIR) -I$(HLIBDIR) +MODES=-g -O2 -fno-inline +CFLAGS= $(INCS) $(MODES) + +LFLAGS= -T emacs.lds -N -e _start + +HFILES= ../estruct.h edef.h efunc.h epath.h ebind.h + +OFILES= ansi.o basic.o bind.o buffer.o display.o \ + exec.o file.o fileio.o \ + input.o isearch.o line.o lock.o main.o \ + random.o region.o search.o spawn.o termio.o \ + window.o word.o + +LIBS= $(LIBDIR)/libobp.a + +emacs: emacs.elf + @$(STRIP) $< -o $@ + +emacs.elf: $(LIBDIR)/start.o $(OFILES) $(LIBS) Makefile emacs.lds + $(LD) $(LFLAGS) -o $@ $(LIBDIR)/start.o $(OFILES) $(LIBS) -L$(GLIBDIR) -lgcc + + @# size $@ + @# nm -n $@ >emacs.nm + +$(LIBDIR)/start.o: $(LIBDIR)/start.s + (cd $(LIBDIR); make start.o) + +$(LIBDIR)/libobp.a: $(HLIBDIR)/lib.c + (cd $(LIBDIR); make libobp.a) + +%.o:$(SRCDIR)/%.c + $(CC) $(CFLAGS) -c $< + +main.o: $(SRCDIR)/ebind.h + +clean: + -rm -f *.o *.a emacs Added: clients/emacs/arm/config.h ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ clients/emacs/arm/config.h Tue Jul 12 11:05:21 2011 (r2343) @@ -0,0 +1,55 @@ +/* Machine/OS definitions */ + +#define OFW 1 /* Open Boot Prom */ +#define AMIGA 0 /* AmigaDOS */ +#define ST520 0 /* ST520, TOS */ +#define MSDOS 0 /* MS-DOS */ +#define V7 0 /* V7 UN*X or Coherent or BSD4.2*/ +#define BSD 0 /* UNIX BSD 4.2 and ULTRIX */ +#define USG 0 /* UNIX system V */ +#define VMS 0 /* VAX/VMS */ +#define CPM 0 /* CP/M-86 */ + +/* Compiler definitions */ +#define GCC 1 /* Gnu C Compiler */ +#define MWC86 0 /* marc williams compiler */ +#define LATTICE 0 /* either lattice compiler */ +#define LAT2 0 /* Lattice 2.15 */ +#define LAT3 0 /* Lattice 3.0 */ +#define AZTEC 0 /* Aztec C 3.20e */ +#define MSC 0 /* MicroSoft C compile version 3 */ + +/* Profiling options */ +#define APROF 0 /* turn Aztec C profiling on? */ +#define NBUCK 100 /* number of buckets to profile */ + +/* Special keyboard definitions */ + +#define WANGPC 0 /* WangPC - mostly escape sequences */ + +/* Terminal Output definitions */ + +#define ANSI 1 /* ansi escape sequences */ +#define HP150 0 /* HP150 screen driver */ +#define VMSVT 0 /* various VMS terminal entries */ +#define VT52 0 /* VT52 terminal (Zenith). */ +#define VT100 0 /* Handle VT100 style keypad. */ +#define LK201 0 /* Handle LK201 style keypad. */ +#define RAINBOW 0 /* Use Rainbow fast video. */ +#define TERMCAP 0 /* Use TERMCAP */ +#define IBMPC 0 /* IBM-PC specific driver */ +#define DG10 0 /* Data General system/10 */ + +/* Configuration options */ + +#define CVMVAS 1 /* arguments to page forward/back in pages */ +#define NFWORD 0 /* forward word jumps to begining of word */ +#define CLRMSG 0 /* space clears the message line with no insert */ +#define TYPEAH 1 /* type ahead causes update to be skipped */ +#define FILOCK 0 /* file locking under unix BSD 4.2 */ +#define REVSTA 0 /* Status line appears in reverse video */ +#define COLOR 1 /* color commands and windows */ +#define ACMODE 1 /* auto CMODE on .C and .H files */ +#define CFENCE 1 /* fench matching in CMODE */ +#define ISRCH 1 /* Incremental searches like ITS EMACS */ +#define WORDPRO 1 /* Advanced word processing features */ Added: clients/emacs/arm/emacs.lds ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ clients/emacs/arm/emacs.lds Tue Jul 12 11:05:21 2011 (r2343) @@ -0,0 +1,16 @@ +OUTPUT_FORMAT("elf32-littlearm"); +OUTPUT_ARCH(ARM); + +ENTRY(_start); +SECTIONS { + . = 0x100000; + .text : { + *(.text) + } + .rodata : { + *(.rodata*) + } + .data : { + *(.data) + } +} Modified: clients/emacs/x86/emacs.rc ============================================================================== --- clients/emacs/x86/emacs.rc Tue Jul 12 00:02:40 2011 (r2342) +++ clients/emacs/x86/emacs.rc Tue Jul 12 11:05:21 2011 (r2343) @@ -37,7 +37,7 @@ add-mode "red" begining-of-file 2 resize-window - insert-string " F1 Help on/off F5 Open File F6 Save File F7 Exit" + insert-string " F1 Help on/off F6 Open File F7 Save File F8 Exit" newline insert-string " Move with arrow keys, PageUp, PageDown, Home, and End" begining-of-file Modified: clients/lib/mem.c ============================================================================== --- clients/lib/mem.c Tue Jul 12 00:02:40 2011 (r2342) +++ clients/lib/mem.c Tue Jul 12 11:05:21 2011 (r2343) @@ -15,3 +15,12 @@ while (len--) *(cp + len) = c; } + +int +memcmp(void *s1, void *s2, int len) +{ + for (; len--; ++s1, ++s2) + if (*(unsigned char *)s1 != *(unsigned char *)s2) + return *(unsigned char *)s1 - *(unsigned char *)s2; + return 0; +} Modified: cpu/arm/olpc/1.75/olpc.bth ============================================================================== --- cpu/arm/olpc/1.75/olpc.bth Tue Jul 12 00:02:40 2011 (r2342) +++ cpu/arm/olpc/1.75/olpc.bth Tue Jul 12 11:05:21 2011 (r2343) @@ -14,6 +14,7 @@ in: ${BP}/dev/usb2/device/serial/build/usbserial.fc in: ${BP}/dev/usb2/device/storage/build/usbstorage.fc in: testicons.bin +in: ${BP}/clients/emacs/arm/emacs build-now fload ${BP}/cpu/arm/olpc/1.75/fw-version.fth @@ -56,6 +57,9 @@ end-reserved end-tim +h# e.0000 to reserved-start +h# f.0000 to reserved-end + .( --- Saving as ) " ${FW_VERSION}.rom" expand$ 2dup lower ( adr len ) 2dup type cr ( adr len ) @@ -152,6 +156,9 @@ " ${BP}/cpu/x86/pc/olpc/images/settings.565" " settings.565" $add-deflated-dropin [then] " ec.img" " ecimage.bin" $add-deflated-dropin + " ${BP}/clients/emacs/x86/emacs.rc" " emacs.rc" $add-deflated-dropin + " ${BP}/clients/emacs/emacs.hlp" " emacs.hlp" $add-deflated-dropin + " ${BP}/clients/emacs/arm/emacs" " emacs" $add-deflated-dropin .( Dropin top is ) ofd @ fsize .x cr

1 0

[commit] r2342 - forth/wrapper/zip
by repository service 11 Jul '11

11 Jul '11

Author: tooch Date: Tue Jul 12 00:02:40 2011 New Revision: 2342 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2342 Log: Guard the attribute specification with #ifndef __llvm__ cos it slays LLVM-based compilers. Should be a no-op for everyone else in the universe. (Borland?) Modified: forth/wrapper/zip/inflate.c Modified: forth/wrapper/zip/inflate.c ============================================================================== --- forth/wrapper/zip/inflate.c Fri Jul 8 11:39:28 2011 (r2341) +++ forth/wrapper/zip/inflate.c Tue Jul 12 00:02:40 2011 (r2342) @@ -165,7 +165,11 @@ * Return size of clear. */ int -inflate(struct workspace *wsptr, int nohdr, u_char* clear, u_char *compr) __attribute__((section ("text_inflate"))); +inflate(struct workspace *wsptr, int nohdr, u_char* clear, u_char *compr) +#ifndef __llvm__ + __attribute__((section ("text_inflate"))) +#endif +; int inflate(struct workspace *wsptr, int nohdr, u_char* clear, u_char *compr)

1 0

[commit] r2341 - dev/hdaudio
by repository service 08 Jul '11

08 Jul '11

Author: wmb Date: Fri Jul 8 11:39:28 2011 New Revision: 2341 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2341 Log: Can't suppress warnings in hdaudio/test.fth because it's loaded from FCode in some builds. Modified: dev/hdaudio/test.fth Modified: dev/hdaudio/test.fth ============================================================================== --- dev/hdaudio/test.fth Fri Jul 8 11:38:16 2011 (r2340) +++ dev/hdaudio/test.fth Fri Jul 8 11:39:28 2011 (r2341) @@ -196,7 +196,6 @@ test-with-loopback throw disconnect-loopback ; -warning @ warning off : selftest ( -- error? ) diagnostic-mode? if open 0= if ." Failed to open /audio" cr true exit then @@ -208,7 +207,6 @@ selftest ( error? ) then ; -warning ! \ LICENSE_BEGIN \ Copyright (c) 2009 Luke Gorrie

1 0

[commit] r2340 - ofw/gui
by repository service 08 Jul '11

08 Jul '11

Author: wmb Date: Fri Jul 8 11:38:16 2011 New Revision: 2340 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2340 Log: Fixed bug in ofpong introduced by recent commit. Modified: ofw/gui/ofpong.fth Modified: ofw/gui/ofpong.fth ============================================================================== --- ofw/gui/ofpong.fth Wed Jul 6 22:28:02 2011 (r2339) +++ ofw/gui/ofpong.fth Fri Jul 8 11:38:16 2011 (r2340) @@ -610,7 +610,7 @@ dup updatebats dup updateball - redraw + redraw-table glastupdate + to glastupdate ;

1 0

[commit] r2339 - cpu/arm/olpc/1.75
by repository service 06 Jul '11

06 Jul '11

Author: wmb Date: Wed Jul 6 22:28:02 2011 New Revision: 2339 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2339 Log: Q4B02 Modified: cpu/arm/olpc/1.75/fw-version.fth Modified: cpu/arm/olpc/1.75/fw-version.fth ============================================================================== --- cpu/arm/olpc/1.75/fw-version.fth Wed Jul 6 22:27:06 2011 (r2338) +++ cpu/arm/olpc/1.75/fw-version.fth Wed Jul 6 22:28:02 2011 (r2339) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR B -macro: FW_MINOR 01 +macro: FW_MINOR 02

1 0

[commit] r2338 - cpu/arm/olpc/1.75
by repository service 06 Jul '11

06 Jul '11

Author: wmb Date: Wed Jul 6 22:27:06 2011 New Revision: 2338 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2338 Log: OLPC XO-1.75 - EC version 4.0.1.03 Modified: cpu/arm/olpc/1.75/ec-version.fth Modified: cpu/arm/olpc/1.75/ec-version.fth ============================================================================== --- cpu/arm/olpc/1.75/ec-version.fth Wed Jul 6 22:26:24 2011 (r2337) +++ cpu/arm/olpc/1.75/ec-version.fth Wed Jul 6 22:27:06 2011 (r2338) @@ -1,5 +1,5 @@ \ The EC microcode -macro: EC_VERSION 4_0_1_02 +macro: EC_VERSION 4_0_1_03 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r2337 - in cpu/arm: . olpc/1.75
by repository service 06 Jul '11

06 Jul '11

Author: wmb Date: Wed Jul 6 22:26:24 2011 New Revision: 2337 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2337 Log: OLPC XO-1.75 - Added ATAG exporting OFW callbacks to the Linux kernel. Modified: cpu/arm/linux.fth cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/linux.fth ============================================================================== --- cpu/arm/linux.fth Wed Jul 6 21:16:03 2011 (r2336) +++ cpu/arm/linux.fth Wed Jul 6 22:26:24 2011 (r2337) @@ -49,7 +49,8 @@ : tag-b, ( b -- ) tag-adr c! tag-adr ca1+ to tag-adr ; : tag-l, ( n -- ) tag-adr l! tag-adr la1+ to tag-adr ; -defer fb-tag, ' noop to fb-tag, \ Define externally if appropriate +defer fb-tag, ' noop to fb-tag, \ Define externally if appropriate +defer ofw-tag, ' noop to ofw-tag, \ Define externally if appropriate : set-parameters ( cmdline$ -- ) linux-params to tag-adr @@ -93,6 +94,8 @@ fb-tag, + ofw-tag, + 0 tag-l, \ size of ATAG_NONE is really 2 but must be written as 0 0 tag-l, \ ATAG_NONE ; Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Wed Jul 6 21:16:03 2011 (r2336) +++ cpu/arm/olpc/1.75/fw.bth Wed Jul 6 22:26:24 2011 (r2337) @@ -55,6 +55,17 @@ ; ' mmp-fb-tag, to fb-tag, +\ Add a tag describing the OFW callback +: (ofw-tag,) ( -- ) + 6 tag-l, \ size + h# 41000501 tag-l, \ ATAG_MEM + cif-handler tag-l, \ Client interface handler callback address + page-table@ tag-l, \ OFW's top-level page tables + extra-mem-pa d# 20 >> tag-l, \ First section entry number + fw-pa /fw-ram + extra-mem-pa - d# 20 >> tag-l, \ Number of section entries +; +' (ofw-tag,) to ofw-tag, + \ false to stand-init-debug? true to stand-init-debug?

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware July 2011