openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3717 - cpu/arm/olpc/4.0
by repository service 19 Mar '14

19 Mar '14

Author: quozl Date: Wed Mar 19 22:20:04 2014 New Revision: 3717 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3717 Log: OLPC XO-4 - bump EC, Android power button up event support Modified: cpu/arm/olpc/4.0/ec-version.fth Modified: cpu/arm/olpc/4.0/ec-version.fth ============================================================================== --- cpu/arm/olpc/4.0/ec-version.fth Wed Mar 19 03:33:07 2014 (r3716) +++ cpu/arm/olpc/4.0/ec-version.fth Wed Mar 19 22:20:04 2014 (r3717) @@ -1,6 +1,6 @@ \ The EC microcode macro: EC_PLATFORM cl4 -macro: EC_VERSION 7_0_4_11 +macro: EC_VERSION 7_0_4_12 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r3716 - dev/olpc
by repository service 19 Mar '14

19 Mar '14

Author: quozl Date: Wed Mar 19 03:33:07 2014 New Revision: 3716 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3716 Log: OLPC - preserve some comments against th seti camera initialisation as compared with kernel Modified: dev/olpc/seti.fth Modified: dev/olpc/seti.fth ============================================================================== --- dev/olpc/seti.fth Wed Mar 19 03:32:05 2014 (r3715) +++ dev/olpc/seti.fth Wed Mar 19 03:33:07 2014 (r3716) @@ -13,7 +13,7 @@ 34 10 ov! 27 11 ov! 21 12 ov! - 17 13 ov! + 17 13 ov! \ (not in siv120d.c, not in datasheet) ce 16 ov! aa 17 ov! @@ -21,6 +21,7 @@ 01 21 ov! \ P_HBNKT 01 22 ov! \ P_ROWFIL 65 23 ov! \ P_VBNKT - 01 for 30 fps, 65 for 25 fps + \ vertical blank time, (siv120d.c uses 01) \ AE 01 00 ov!

1 0

[commit] r3715 - cpu/arm/olpc
by repository service 19 Mar '14

19 Mar '14

Author: quozl Date: Wed Mar 19 03:32:05 2014 New Revision: 3715 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3715 Log: OLPC XO-4 - reserve RTC CMOS for dual boot state Modified: cpu/arm/olpc/build-fw.fth Modified: cpu/arm/olpc/build-fw.fth ============================================================================== --- cpu/arm/olpc/build-fw.fth Fri Mar 14 22:24:32 2014 (r3714) +++ cpu/arm/olpc/build-fw.fth Wed Mar 19 03:32:05 2014 (r3715) @@ -551,8 +551,9 @@ \ 81 audio volume \ 82 alternate boot \ 83 nfs rpc xid +\ 84 android vs linux dual boot state \ 80 -> 8f (erased by driver when magic number wrong) -\ 84 -> ad (unallocated) +\ 85 -> ad (unallocated) fload ${BP}/cpu/arm/mmp2/clocks.fth fload ${BP}/cpu/arm/olpc/banner.fth

1 0

[commit] r3714 - cpu/ppc
by repository service 14 Mar '14

14 Mar '14

Author: wmb Date: Fri Mar 14 22:24:32 2014 New Revision: 3714 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3714 Log: Fixed bugs in PowerPC 16- and 32-bit framebuffer operations. Modified: cpu/ppc/fb8-ops.fth Modified: cpu/ppc/fb8-ops.fth ============================================================================== --- cpu/ppc/fb8-ops.fth Wed Feb 26 04:40:33 2014 (r3713) +++ cpu/ppc/fb8-ops.fth Fri Mar 14 22:24:32 2014 (r3714) @@ -55,6 +55,7 @@ mfspr t6,ctr \ Save counter subf t0,t1,t0 \ Account for inner loop incrementing + subf t0,t1,t0 \ (2 bytes per pixel) addi t3,t3,-2 \ Account for inner loop incrementing begin \ Outer loop @@ -94,6 +95,9 @@ mfspr t6,ctr \ Save counter subf t0,t1,t0 \ Account for inner loop incrementing + subf t0,t1,t0 \ (4 bytes per pixel) + subf t0,t1,t0 \ (4 bytes per pixel) + subf t0,t1,t0 \ (4 bytes per pixel) addi t3,t3,-4 \ Account for inner loop incrementing begin \ Outer loop @@ -200,6 +204,7 @@ addi t3,t3,-2 \ Account for pre-incrementing subf t2,t5,t2 \ Account for inner loop incrementing + subf t2,t5,t2 \ (2 bytes per pixel) mfspr t8,ctr \ Save counter addi r0,r0,8 \ Constant 8 (pixels/font-byte), needed below @@ -263,6 +268,9 @@ addi t3,t3,-4 \ Account for pre-incrementing subf t2,t5,t2 \ Account for inner loop incrementing + subf t2,t5,t2 \ (4 bytes per pixel) + subf t2,t5,t2 \ (4 bytes per pixel) + subf t2,t5,t2 \ (4 bytes per pixel) mfspr t8,ctr \ Save counter addi r0,r0,8 \ Constant 8 (pixels/font-byte), needed below

1 0

[commit] r3713 - cpu/arm/olpc
by repository service 26 Feb '14

26 Feb '14

Author: quozl Date: Wed Feb 26 04:40:33 2014 New Revision: 3713 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3713 Log: OLPC XO-1.75 XO-4 - edi-open-active broke stack balance by returning 0 if the EC was freshly powered up, fixes #12751 Modified: cpu/arm/olpc/edi.fth Modified: cpu/arm/olpc/edi.fth ============================================================================== --- cpu/arm/olpc/edi.fth Fri Feb 21 21:58:38 2014 (r3712) +++ cpu/arm/olpc/edi.fth Wed Feb 26 04:40:33 2014 (r3713) @@ -342,7 +342,7 @@ \ Does a dummy ready and throws away the result. \ required to get the EDI interface enabled - h# ff22 ['] edi-b@ catch if noop else drop then + h# ff22 ['] edi-b@ catch 2drop set-chip-id

1 0

[commit] r3712 - dev/usb2/device/storage
by repository service 21 Feb '14

21 Feb '14

Author: quozl Date: Fri Feb 21 21:58:38 2014 New Revision: 3712 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3712 Log: usb - trivial comment improvement Modified: dev/usb2/device/storage/scsi.fth Modified: dev/usb2/device/storage/scsi.fth ============================================================================== --- dev/usb2/device/storage/scsi.fth Fri Feb 21 21:57:56 2014 (r3711) +++ dev/usb2/device/storage/scsi.fth Fri Feb 21 21:58:38 2014 (r3712) @@ -40,8 +40,8 @@ 1 field >csw-stat constant /csw -h# 43425355 constant cbw-signature \ little-endian -h# 53425355 constant csw-signature \ little-endian +h# 43425355 constant cbw-signature \ little-endian (USBC) +h# 53425355 constant csw-signature \ little-endian (USBS) 0 value cbw-tag 0 value cbw

1 0

[commit] r3711 - cpu/x86/pc/olpc
by repository service 21 Feb '14

21 Feb '14

Author: quozl Date: Fri Feb 21 21:57:56 2014 New Revision: 3711 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3711 Log: OLPC XO-1.75, XO-4 - add boost charge command, for developer use Modified: cpu/x86/pc/olpc/apt.fth Modified: cpu/x86/pc/olpc/apt.fth ============================================================================== --- cpu/x86/pc/olpc/apt.fth Fri Feb 21 21:57:18 2014 (r3710) +++ cpu/x86/pc/olpc/apt.fth Fri Feb 21 21:57:56 2014 (r3711) @@ -18,6 +18,8 @@ : .os " more int:\boot\olpc_build" eval ; +: boost .bat h# 3b ec-cmd d# 1000 ms h# 3c ec-cmd d# 1000 ms .bat ; + stand-init: wifi " NN" find-tag if ?-null $essid then \ network name " PP" find-tag if ?-null $wpa then \ pass phrase

1 0

[commit] r3710 - cpu/x86/pc/olpc
by repository service 21 Feb '14

21 Feb '14

Author: quozl Date: Fri Feb 21 21:57:18 2014 New Revision: 3710 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3710 Log: OLPC - keyject, avoid cancel, use black-letters throughout Modified: cpu/x86/pc/olpc/keyject.fth Modified: cpu/x86/pc/olpc/keyject.fth ============================================================================== --- cpu/x86/pc/olpc/keyject.fth Thu Jan 23 19:18:01 2014 (r3709) +++ cpu/x86/pc/olpc/keyject.fth Fri Feb 21 21:57:18 2014 (r3710) @@ -97,7 +97,7 @@ 2over 2over ($add-tag) ( value$ name$ ) ." Added " type cr ( value$ ) then ( value$ ) - cancel ( value$ ) + black-letters ( value$ ) free-mem ( ) else ( name$ ) ." Warning: key " type ." is not in firmware image dropins" cr ( ) @@ -116,7 +116,7 @@ : keyject-error ( msg$ -- ) cr - red-letters ." Not injecting because: " type cr cancel + red-letters ." Not injecting because: " type cr black-letters cr ." Will update firmware in 20 seconds" cr d# 21 1 do i .d (cr d# 1,000 ms loop @@ -217,7 +217,7 @@ : ?keyject ( -- ) visible - green-letters cr ." Security Key Injector" cr cr cancel + green-letters cr ." Security Key Injector" cr cr black-letters \ Get the new firmware first, so any security checks use the old keys get-new-firmware do-keyject? if

1 0

[commit] r3709 - cpu/ppc
by repository service 23 Jan '14

23 Jan '14

Author: wmb Date: Thu Jan 23 19:18:01 2014 New Revision: 3709 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3709 Log: PowerPC kernel - fixed bug in isconstant, completing the previous fix. Modified: cpu/ppc/kerncode.fth Modified: cpu/ppc/kerncode.fth ============================================================================== --- cpu/ppc/kerncode.fth Sun Jan 19 02:21:01 2014 (r3708) +++ cpu/ppc/kerncode.fth Thu Jan 23 19:18:01 2014 (r3709) @@ -214,7 +214,7 @@ c; code isconstant ( n -- ) - literal-to-t0 + tliteral-to-t0 stw tos,/cf(t0) pop-tos c;

1 0

[commit] r3708 - cpu/ppc cpu/ppc/ppcsim cpu/x86/Linux forth/wrapper
by repository service 19 Jan '14

19 Jan '14

Author: wmb Date: Sun Jan 19 02:21:01 2014 New Revision: 3708 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3708 Log: 1) Eliminated some C compiler warnings by being strict about return values. 2) Fixed the PowerPC build. Modified: cpu/ppc/basefw.bth cpu/ppc/kerncode.fth cpu/ppc/ppcsim/ppcsim.c cpu/x86/Linux/Makefile cpu/x86/Linux/Makefile.ppcforth forth/wrapper/logger.c forth/wrapper/wrapper.c Modified: cpu/ppc/basefw.bth ============================================================================== --- cpu/ppc/basefw.bth Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/ppc/basefw.bth Sun Jan 19 02:21:01 2014 (r3708) @@ -69,6 +69,8 @@ fload ${BP}/ofw/fs/cdfs/loadpkg.fth \ ISO 9660 CD-ROM file system reader end-support-package +fload ${BP}/ofw/disklabel/gpttools.fth + support-package: disk-label fload ${BP}/ofw/disklabel/loadpkg.fth \ Disk label package end-support-package Modified: cpu/ppc/kerncode.fth ============================================================================== --- cpu/ppc/kerncode.fth Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/ppc/kerncode.fth Sun Jan 19 02:21:01 2014 (r3708) @@ -88,6 +88,7 @@ :-h skip-branch " addi ip,ip,/branch" evaluate ;-h :-h literal-to-tos " lwzu tos,/token(ip)" evaluate ;-h :-h literal-to-t0 " lwzu t0,/token(ip)" evaluate ;-h +:-h tliteral-to-t0 " lwzu t0,/token(ip) add t0,t0,base" evaluate ;-h :-h rdrop " addi rp,rp,1cell" evaluate ;-h :-h rdrop3 " addi rp,rp,3cells" evaluate ;-h @@ -191,21 +192,22 @@ meta definitions code isdefer ( xt -- ) - literal-to-t0 + tliteral-to-t0 lwz t0,/cf(t0) \ User number in t0 + subfc tos,base,tos stwx tos,t0,up pop-tos c; code isvalue ( n -- ) - literal-to-t0 + tliteral-to-t0 lwz t0,/cf(t0) \ User number in t0 stwx tos,t0,up pop-tos c; code isuser ( n -- ) - literal-to-t0 + tliteral-to-t0 lwz t0,/cf(t0) \ User number in t0 stwx tos,t0,up pop-tos @@ -218,7 +220,7 @@ c; code isvariable ( n -- ) - literal-to-t0 + tliteral-to-t0 stw tos,/cf(t0) pop-tos c; @@ -384,6 +386,15 @@ pop-tos c; +\ ($endof) is the same as branch, and ($endcase) is the same as drop, +\ but redefining them this way makes the decompiler much easier. +code ($endof) (s -- ) + take-branch +c; +code ($endcase) (s n -- ) + pop-tos +c; + assembler mlabel dofalse addi tos,r0,0 @@ -762,6 +773,145 @@ pop2 c; +\ Find the first occurence of bvalue, returning the residual string +code bscan ( adr len bvalue -- adr' len' ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + addi sp,sp,1cell \ Move stack pointer by one + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + lwz t0,0(sp) \ t0:adr + + addi t0,t0,-1 \ Account for pre-incrementing + begin + lbzu t2,1(t0) + cmp 0,0,t1,t2 = if + stw t0,0(sp) + next + then + addic. tos,tos,-1 + 0= until + + addi t0,t0,1 + stw t0,0(sp) +c; + +code wscan ( adr len wvalue -- adr' len' ) + mr t1,tos \ t1:lvalue + lwz tos,0(sp) \ tos:len + addi sp,sp,1cell \ Move stack pointer by one + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + lwz t0,0(sp) \ t0:adr + + addi t0,t0,-2 \ Account for pre-incrementing + begin + lhzu t2,2(t0) + cmp 0,0,t1,t2 = if + stw t0,0(sp) + next + then + addic. tos,tos,-2 + 0= until + + addi t0,t0,2 + stw t0,0(sp) +c; + +code lscan ( adr len lvalue -- adr' len' ) + mr t1,tos \ t1:lvalue + lwz tos,0(sp) \ tos:len + addi sp,sp,1cell \ Move stack pointer by one + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + lwz t0,0(sp) \ t0:adr + + addi t0,t0,-4 \ Account for pre-incrementing + begin + lwzu t2,4(t0) + cmp 0,0,t1,t2 = if + stw t0,0(sp) + next + then + addic. tos,tos,-4 + 0= until + + addi t0,t0,4 + stw t0,0(sp) +c; + +\ Skip initial occurrences of bvalue, returning the residual length +code bskip ( adr len bvalue -- residue ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + lwz t0,1cell(sp) \ t0:adr + addi sp,sp,2cells \ Move stack pointer by two + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + addi t0,t0,-1 \ Account for pre-incrementing + begin + lbzu t2,1(t0) + cmp 0,0,t1,t2 <> if + next + then + addic. tos,tos,-1 + 0= until +c; + +\ Skip initial occurrences of wvalue, returning the residual length +code wskip ( adr len wvalue -- residue ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + lwz t0,1cell(sp) \ t0:adr + addi sp,sp,2cells \ Move stack pointer by two + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + addi t0,t0,-2 \ Account for pre-incrementing + begin + lhzu t2,2(t0) + cmp 0,0,t1,t2 <> if + next + then + addic. tos,tos,-2 + 0= until +c; + +\ Skip initial occurrences of bvalue, returning the residual length +code lskip ( adr len lvalue -- residue ) + mr t1,tos \ t1:bvalue + lwz tos,0(sp) \ tos:len + lwz t0,1cell(sp) \ t0:adr + addi sp,sp,2cells \ Move stack pointer by two + + cmpi 0,0,tos,0 0= if \ Bail out if len=0 + next + then + + addi t0,t0,-4 \ Account for pre-incrementing + begin + lwzu t2,4(t0) + cmp 0,0,t1,t2 <> if + next + then + addic. tos,tos,-4 + 0= until +c; + code noop (s -- ) c; code lowbyte (s n -- low ) andi. tos,tos,h#ff c; Modified: cpu/ppc/ppcsim/ppcsim.c ============================================================================== --- cpu/ppc/ppcsim/ppcsim.c Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/ppc/ppcsim/ppcsim.c Sun Jan 19 02:21:01 2014 (r3708) @@ -1805,19 +1805,19 @@ power: if (!TBAR) printf("Unimplemented POWER instruction %08lx (%s) at %lx\n", - (long)instruction, (long)opname, (long)CIA); + (long)instruction, opname, (long)CIA); goto trapout; unimplemented: if (!TBAR) printf("Unimplemented instruction %08lx (%s)at %lx\n", - (long)instruction, (long)opname, (long)CIA); + (long)instruction, opname, (long)CIA); goto trapout; illegal: if (!TBAR) printf("Illegal instruction %08lx at %lx\n", - (long)instruction, (long)CIA, (long)0); + (long)instruction, (long)CIA); trapout: if (TBAR) { @@ -1875,7 +1875,7 @@ " r0 r1 r2 r3 r4 r5\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[ 0], greg[ 1], greg[ 2], greg[ 3], greg[ 4], greg[ 5] ); @@ -1883,7 +1883,7 @@ " r6 r7 r8 r9 r10 r11\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[ 6], greg[ 7], greg[ 8], greg[ 9], greg[10], greg[11] ); #endif @@ -1891,24 +1891,24 @@ " r20 t0 r21 t1 r22 t2 r23 t3 r24 t4 r25 t5\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[20], greg[21], greg[22], greg[23], greg[24], greg[25] ); printf( " r26 base r27 up r28 tos r29 ip r30 rp r31 sp\n" ); printf( - "%8x %8x %8x %8x %8x %8x\n\n", + "%8lx %8lx %8lx %8lx %8lx %8lx\n\n", greg[26], greg[27], greg[28], greg[29], greg[30], greg[31] ); - printf("pc %x LR %x CTR %x CR %x", - pc, LR, CTR, CR.all + printf("pc %lx LR %lx CTR %lx CR %lx", + pc, LR, CTR, CR.all ); #ifndef SIMROM - printf(" CALLS: %x", greg[29] /* IP */); + printf(" CALLS: %lx", greg[29] /* IP */); if (greg[30]) - printf(" %x %x %x", + printf(" %lx %lx %lx", ((u_long *)greg[30])[0], /* Return stack */ ((u_long *)greg[30])[1], ((u_long *)greg[30])[2] @@ -1919,13 +1919,13 @@ dumpallregs() { int i; - for (i=0; i<8 ; i++) printf("%9x", greg[i]); putchar('\n'); - for ( ; i<16; i++) printf("%9x", greg[i]); putchar('\n'); - for ( ; i<24; i++) printf("%9x", greg[i]); putchar('\n'); - for ( ; i<32; i++) printf("%9x", greg[i]); putchar('\n'); + for (i=0; i<8 ; i++) printf("%9lx", greg[i]); putchar('\n'); + for ( ; i<16; i++) printf("%9lx", greg[i]); putchar('\n'); + for ( ; i<24; i++) printf("%9lx", greg[i]); putchar('\n'); + for ( ; i<32; i++) printf("%9lx", greg[i]); putchar('\n'); - printf("pc %x LR %x CTR %x CR %x ", - pc, LR, CTR, CR.all + printf("pc %lx LR %lx CTR %lx CR %lx ", + pc, LR, CTR, CR.all ); printf("\n"); } @@ -1956,7 +1956,7 @@ u_long *reladr; reladr = (u_long *) &xmem[ (int)adr ]; - printf("%x: %8x %8x %8x %8x %8x %8x %8x %8x\n", + printf("%lx: %8lx %8lx %8lx %8lx %8lx %8lx %8lx %8lx\n", adr, reladr[0], reladr[1], reladr[2], reladr[3], reladr[4], reladr[5], reladr[6], reladr[7] @@ -1983,7 +1983,7 @@ IABR = 0; stepping = 1; - printf("%x %x %s ", pc, greg[29], name); + printf("%lx %lx %s ", pc, greg[29], name); for (done=0; !done; ) { printf(" : "); #ifndef SIMROM @@ -1994,13 +1994,14 @@ #endif switch(c) { - case 'b': scanf("%x", &IABR); stepping = 0; break; + int res; + case 'b': res = scanf("%lx", &IABR); stepping = 0; break; case 'n': IABR = greg[27]; stepping = 0; break; - case 'u': scanf("%x", &arg); + case 'u': res = scanf("%x", &arg); dumpmem((long)(greg[27]+arg)); GETLINE; break; - case 'm': scanf("%x", &arg); + case 'm': res = scanf("%x", &arg); dumpmem((long)arg); GETLINE; break; Modified: cpu/x86/Linux/Makefile ============================================================================== --- cpu/x86/Linux/Makefile Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/x86/Linux/Makefile Sun Jan 19 02:21:01 2014 (r3708) @@ -44,7 +44,7 @@ @ln -sf forth x86forth xinflate.lo: ${ZIPDIR}/inflate.c - ${CC} -c ${MFLAGS} -Wall -fno-stack-protector -ffreestanding -D_FORTIFY_SOURCE=0 -DNEED_BCOPY -O3 -fpic $< -o $@ + ${CC} -c ${MFLAGS} -Wall -fno-builtin -fno-stack-protector -ffreestanding -DNEED_BCOPY -O2 -fpic $< -o $@ xinflate.o: xinflate.lo ${LD} -melf_i386 -T inflate.ld $< -o $@ Modified: cpu/x86/Linux/Makefile.ppcforth ============================================================================== --- cpu/x86/Linux/Makefile.ppcforth Sat Jan 11 07:24:15 2014 (r3707) +++ cpu/x86/Linux/Makefile.ppcforth Sun Jan 19 02:21:01 2014 (r3708) @@ -5,6 +5,8 @@ BP=../../.. CFLAGS = -DPPCSIM -DTARGET_POWERPC +CFLAGS += -m32 +LFLAGS += -m32 CC = gcc Modified: forth/wrapper/logger.c ============================================================================== --- forth/wrapper/logger.c Sat Jan 11 07:24:15 2014 (r3707) +++ forth/wrapper/logger.c Sun Jan 19 02:21:01 2014 (r3708) @@ -241,6 +241,7 @@ void log_command_line(int argc, char *argv[]) { int i; + char *pret; char cwdbuf[MAXPATHLEN*2]; #ifdef __unix__ @@ -278,7 +279,7 @@ sprintf(info, "host: %s\n", hostname); record(&misc); - getcwd(cwdbuf, 128); + pret = getcwd(cwdbuf, 128); sprintf(info, "cwd: %s\n", cwdbuf); record(&misc); } Modified: forth/wrapper/wrapper.c ============================================================================== --- forth/wrapper/wrapper.c Sat Jan 11 07:24:15 2014 (r3707) +++ forth/wrapper/wrapper.c Sun Jan 19 02:21:01 2014 (r3708) @@ -326,10 +326,6 @@ extern void log_command_line(int, char **); extern void log_env(char *, char *); -#if !defined(LinuxPOWERPC) && !defined(__APPLE__) - extern int read(), write(); -#endif - INTERNAL char * substr(); INTERNAL long path_open(); INTERNAL void keymode(); @@ -348,7 +344,11 @@ long c_key(); long s_bye(); void restoremode(); +#ifdef PPCSIM + void simulate(char *, char *, char *, long (**)(), char *, int, char **, int); +#else void simulate(char *, char *, char *, long (**)(), char *, int, char **); +#endif long find(long, int, long, char *); #else INTERNAL long c_key(); @@ -710,12 +710,14 @@ void set_bp(void) { + char *pret; + int ret; char here[MAXPATHLEN]; - getcwd(here, MAXPATHLEN); - getcwd(bpval, MAXPATHLEN); + pret = getcwd(here, MAXPATHLEN); + pret = getcwd(bpval, MAXPATHLEN); while (1) { if (access(host_cpu, F_OK) == 0) { - getcwd(hostdirval, MAXPATHLEN); + pret = getcwd(hostdirval, MAXPATHLEN); strcat(hostdirval, "/"); strcat(hostdirval, host_cpu); strcat(hostdirval, "/"); @@ -723,14 +725,14 @@ } if (access("ofw", F_OK) == 0) break; - chdir(".."); - getcwd(bpval, MAXPATHLEN); + ret = chdir(".."); + pret = getcwd(bpval, MAXPATHLEN); if (strcmp(bpval, "/") == 0) { bpval[0] = '\0'; break; } } - chdir(here); + ret = chdir(here); } struct woptions { char *dashopt; char *forthopt; } woptions[] = @@ -1112,6 +1114,7 @@ #endif #ifdef TARGET_POWERPC +#ifndef PPCSIM # ifdef NOGLUE { long toc_entry[2]; int c; toc_entry[1] = 0; @@ -1127,6 +1130,7 @@ s_bye(0L); # endif #endif +#endif #ifdef __APPLE_CC__ { @@ -1694,16 +1698,16 @@ INTERNAL long c_expect(long max, char *buffer) { - int c = 0; + int c = 0, ret; register char *p = buffer; linemode(); fflush(stdout); - read(0, &c, 1); + ret = read(0, &c, 1); while (max-- && c != '\n' && c != EOF ) { *p++ = c; - read(0, &c, 1); + ret = read(0, &c, 1); } keymode(); return ( (long)(p - buffer) ); @@ -1756,9 +1760,10 @@ void error(char *str1, char *str2) { - write(2,str1,strlen(str1)); - write(2,str2,strlen(str2)); - write(2,"\n",1); + int ret; + ret = write(2,str1,strlen(str1)); + ret = write(2,str2,strlen(str2)); + ret = write(2,"\n",1); } @@ -1791,11 +1796,11 @@ char output_filename[MAXPATHLEN]; #ifdef USE_STDIO -#define NONE -1 -int output_fd = NONE; + #define NONE (FILE *)0 + FILE *output_fd = NONE; #else -#define NONE (FILE *)0 -FILE *output_fd = NONE; + #define NONE -1 + int output_fd = NONE; #endif #ifdef USE_STDIO @@ -1849,7 +1854,7 @@ if (result != -1) { strcpy(output_filename, name); output_fd = result; - } + } #else #ifdef __unix__ result = open(expand_name(name), O_RDWR|O_CREAT|O_TRUNC, (int)mode); @@ -1858,8 +1863,8 @@ #endif if (result != -1) { strcpy(output_filename, name); - output_fd = (FILE *)result; - } + output_fd = result; + } #endif return((long)result); }

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
301
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware