X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=usb%2Fhost%2Fohci.c;h=d696294a04de06bad11a3a5b151cde5a2a61daf3;hb=113b79747a3b5c358f1b1f0af5c562ca5a5bd2eb;hp=8a2eff6e6ca4f0bb73126e40ddd5a91cac7e36c8;hpb=1857a7c4faa63b728fdfdd0455bcc3b9bd12ce23;p=ppcskel.git

diff --git a/usb/host/ohci.c b/usb/host/ohci.c
index 8a2eff6..d696294 100644
--- a/usb/host/ohci.c
+++ b/usb/host/ohci.c
@@ -18,19 +18,21 @@ Copyright (C) 2009     Sebastian Falbesoner <sebastian.falbesoner@gmail.com>
 #include "host.h"
 #include "../usbspec/usb11spec.h"
 
-// macro for accessing u32 variables that need to be in little endian byte order;
-// whenever you read or write from an u32 field that the ohci host controller
-// will read or write from too, use this macro for access!
-#define ACCESS_LE(dword) (u32)( (((dword) & 0xFF000000) >> 24) | \
+/* macro for accessing u32 variables that need to be in little endian byte order;
+ *
+ * whenever you read or write from an u32 field that the ohci host controller
+ * will read or write from too, use this macro for access!
+ */
+#define LE(dword) (u32)( (((dword) & 0xFF000000) >> 24) | \
 			   (((dword) & 0x00FF0000) >> 8)  | \
 			   (((dword) & 0x0000FF00) << 8)  | \
 			   (((dword) & 0x000000FF) << 24) )
 
 static struct endpoint_descriptor *allocate_endpoint();
-static struct general_td *allocate_general_td(size_t);
+static struct general_td *allocate_general_td();
 static void control_quirk();
 static void dbg_op_state();
-static void dbg_td_flag(u32 flag);
+//static void dbg_td_flag(u32 flag);
 static void configure_ports(u8 from_init);
 static void setup_port(u32 reg, u8 from_init);
 
@@ -40,28 +42,21 @@ static struct ohci_hcca hcca_oh0;
 static struct endpoint_descriptor *allocate_endpoint()
 {
 	struct endpoint_descriptor *ep;
-	//memalign instead of calloc doesn't work here?! WTF
-	ep = (struct endpoint_descriptor *)memalign(sizeof(struct endpoint_descriptor), 16);
-	ep->flags = ACCESS_LE(OHCI_ENDPOINT_GENERAL_FORMAT);
-	ep->headp = ep->tailp = ep->nexted = ACCESS_LE(0);
+	ep = (struct endpoint_descriptor *)memalign(16, sizeof(struct endpoint_descriptor));
+	memset(ep, 0, sizeof(struct endpoint_descriptor));
+	ep->flags = LE(OHCI_ENDPOINT_GENERAL_FORMAT);
+	ep->headp = ep->tailp = ep->nexted = LE(0);
 	return ep;
 }
 
-static struct general_td *allocate_general_td(size_t bsize)
+static struct general_td *allocate_general_td()
 {
 	struct general_td *td;
-	td = (struct general_td *)memalign(sizeof(struct general_td), 16);
-	td->flags = ACCESS_LE(0);
-	// TODO !! nexttd?
-	td->nexttd = ACCESS_LE(virt_to_phys(td));
-	//td->nexttd = ACCESS_LE(0);
-	if(bsize == 0) {
-		td->cbp = td->be = ACCESS_LE(0);
-	} else {
-		//td->cbp = ACCESS_LE(virt_to_phys(memalign(bsize, 16))); //memailgn required here?
-		td->cbp = ACCESS_LE(virt_to_phys(malloc(bsize)));
-		td->be = ACCESS_LE(ACCESS_LE(td->cbp) + bsize - 1);
-	}
+	td = (struct general_td *)memalign(16, sizeof(struct general_td));
+	memset(td, 0, sizeof(struct general_td));
+	td->flags = LE(0);
+	td->nexttd = LE(0);
+	td->cbp = td->be = LE(0);
 	return td;
 }
 
@@ -89,9 +84,8 @@ static void control_quirk()
 			return;
 		}
 
-#define ED_MASK ((u32)~0x0f)
-		ed->tailp = ed->headp = ACCESS_LE(virt_to_phys((void*) ((u32)td & ED_MASK)));
-		ed->flags |= ACCESS_LE(OHCI_ENDPOINT_DIRECTION_OUT);
+		ed->tailp = ed->headp = LE(virt_to_phys((void*) ((u32)td & OHCI_ENDPOINT_HEAD_MASK)));
+		ed->flags |= LE(OHCI_ENDPOINT_DIRECTION_OUT);
 	}
 
 	/*
@@ -171,123 +165,200 @@ static void dbg_td_flag(u32 flag)
 	printf("********************************************************\n");
 }
 
+static void general_td_fill(struct general_td *dest, const usb_transfer_descriptor *src)
+{
+	if(src->actlen) {
+		dest->cbp = LE(virt_to_phys(src->buffer));
+		dest->be = LE(LE(dest->cbp) + src->actlen - 1);
+		/* save virtual address here */
+		dest->bufaddr = (u32) src->buffer;
+	}
+	else {
+		dest->cbp = dest->be = LE(0);
+		dest->bufaddr = 0;
+	}
 
+	dest->buflen = src->actlen;
 
-/**
- * Enqueue a transfer descriptor.
- */
-u8 hcdi_enqueue(usb_transfer_descriptor *td) {
-	control_quirk(); //required? YES! :O
-
-	static struct endpoint_descriptor dummyconfig;
-	dummyconfig.flags = ACCESS_LE(OHCI_ENDPOINT_GENERAL_FORMAT);
-	dummyconfig.headp = dummyconfig.tailp = dummyconfig.nexted = ACCESS_LE(0);
-
-	printf(	"===========================\n"
-			"===========================\n");
-	sync_before_read(&hcca_oh0, 256);
-	printf("done head (nach sync): 0x%08X\n", ACCESS_LE(hcca_oh0.done_head));
-	printf("HCCA->frame_no: %d\nhcca->hccapad1: %d\n",
-			((ACCESS_LE(hcca_oh0.frame_no) & 0xffff)>>16),
-			ACCESS_LE(hcca_oh0.frame_no)&0x0000ffff );
-
-	struct general_td *tmptd = allocate_general_td(td->actlen);
-	(void) memcpy((void*) (phys_to_virt(ACCESS_LE(tmptd->cbp))), td->buffer, td->actlen); 
-
-	tmptd->flags &= ACCESS_LE(~OHCI_TD_DIRECTION_PID_MASK);
-	switch(td->pid) {
+	dest->flags &= LE(~OHCI_TD_DIRECTION_PID_MASK);
+	switch(src->pid) {
 		case USB_PID_SETUP:
 			printf("pid_setup\n");
-			tmptd->flags |= ACCESS_LE(OHCI_TD_DIRECTION_PID_SETUP);
+			dest->flags |= LE(OHCI_TD_DIRECTION_PID_SETUP);
+			dest->flags |= LE(OHCI_TD_TOGGLE_0);
+			dest->flags |= LE(OHCI_TD_BUFFER_ROUNDING);
 			break;
 		case USB_PID_OUT:
 			printf("pid_out\n");
-			tmptd->flags |= ACCESS_LE(OHCI_TD_DIRECTION_PID_OUT);
+			dest->flags |= LE(OHCI_TD_DIRECTION_PID_OUT);
+			dest->flags |= LE(OHCI_TD_BUFFER_ROUNDING);
+
+			/*
+			 * TODO: just temporary solution! (consider it with len?)
+			 * there can be also regular PID_OUT pakets
+			 */
+			dest->flags |= LE(OHCI_TD_TOGGLE_1);
 			break;
 		case USB_PID_IN:
 			printf("pid_in\n");
-			tmptd->flags |= ACCESS_LE(OHCI_TD_DIRECTION_PID_IN);
+			dest->flags |= LE(OHCI_TD_DIRECTION_PID_IN);
+			dest->flags |= LE(OHCI_TD_BUFFER_ROUNDING);
+			/*
+			 * let the endpoint do the togglestuff!
+			 * TODO: just temporary solution!
+			 * there can be also inregular PID_IN pakets (@Status Stage)
+			 */
+			dest->flags |= LE(OHCI_TD_TOGGLE_CARRY);
+#if 0
+			/* should be done by HC!
+			 * first pid_in start with DATA0 */
+			 */
+			dummyconfig.headp = LE( src->togl ?
+					LE(dummyconfig.headp) | OHCI_ENDPOINT_TOGGLE_CARRY :
+					LE(dummyconfig.headp) & ~OHCI_ENDPOINT_TOGGLE_CARRY);
+#endif
 			break;
 	}
-	tmptd->flags |= ACCESS_LE((td->togl) ? OHCI_TD_TOGGLE_1 : OHCI_TD_TOGGLE_0);
+	dest->flags |= LE(OHCI_TD_SET_DELAY_INTERRUPT(7));
+}
 
-	printf("tmptd hexdump (before) 0x%08X:\n", tmptd);
-	hexdump(tmptd, sizeof(struct general_td));
-	printf("tmptd->cbp hexdump (before) 0x%08X:\n", phys_to_virt(ACCESS_LE(tmptd->cbp)));
-	hexdump((void*) phys_to_virt(ACCESS_LE(tmptd->cbp)), td->actlen);
+static void dump_address(void *addr, u32 size, const char* str)
+{
+	printf("%s hexdump (%d) @ 0x%08X:\n", str, size, addr);
+	hexdump(addr, size);
+}
 
-	sync_after_write(tmptd, sizeof(struct general_td));
-	sync_after_write((void*) phys_to_virt(ACCESS_LE(tmptd->cbp)), td->actlen);
+struct endpoint_descriptor *edhead = 0;
+void hcdi_fire()
+{
+	printf("<^>  <^>  <^> hcdi_fire(start)\n");
 
+	if(edhead == 0)
+		return;
 
-#define ED_MASK2 ~0 /*((u32)~0x0f) */
-#define ED_MASK ((u32)~0x0f) 
-	dummyconfig.headp = ACCESS_LE(virt_to_phys((void*) ((u32)tmptd & ED_MASK)));
+	control_quirk(); //required? YES! :O ... erm... or no? :/ ... in fact I have no idea
+	write32(OHCI0_HC_CTRL_HEAD_ED, virt_to_phys(edhead));
 
-	dummyconfig.flags |= ACCESS_LE(OHCI_ENDPOINT_LOW_SPEED | 
-		OHCI_ENDPOINT_SET_DEVICE_ADDRESS(td->devaddress) | 
-		OHCI_ENDPOINT_SET_ENDPOINT_NUMBER(td->endpoint) |
-		OHCI_ENDPOINT_SET_MAX_PACKET_SIZE(td->maxp));
+	/* sync it all */
+	sync_after_write(edhead, sizeof(struct endpoint_descriptor));
+	dump_address(edhead, sizeof(struct endpoint_descriptor), "edhead(before)");
 
-	printf("dummyconfig hexdump (before) 0x%08X:\n", &dummyconfig);
-	hexdump((void*) &dummyconfig, 16);
+	struct general_td *x = phys_to_virt(LE(edhead->headp) & OHCI_ENDPOINT_HEAD_MASK);
+	printf("STRUCT LEN: %d\n", sizeof(struct general_td));
+	while(virt_to_phys(x)) {
+		sync_after_write(x, sizeof(struct general_td));
+		dump_address(x, sizeof(struct general_td), "x(before)");
 
-	sync_after_write(&dummyconfig, 16);
-	write32(OHCI0_HC_CTRL_HEAD_ED, virt_to_phys(&dummyconfig));
+		if(x->buflen > 0) {
+			sync_after_write((void*) phys_to_virt(LE(x->cbp)), x->buflen);
+			dump_address((void*) phys_to_virt(LE(x->cbp)), x->buflen, "x->cbp(before)");
+		}
+		x = phys_to_virt(LE(x->nexttd));
+	}
 
-	printf("OHCI_CTRL_CLE: 0x%08X || ", read32(OHCI0_HC_CONTROL)&OHCI_CTRL_CLE);
-	printf("OHCI_CLF: 0x%08X\n", read32(OHCI0_HC_COMMAND_STATUS)&OHCI_CLF);
+	/* trigger control list */
 	set32(OHCI0_HC_CONTROL, OHCI_CTRL_CLE);
 	write32(OHCI0_HC_COMMAND_STATUS, OHCI_CLF);
 
-	printf("+++++++++++++++++++++++++++++\n");
-	/* spin until the controller is done with the control list */
-	u32 current = read32(OHCI0_HC_CTRL_CURRENT_ED);
-	printf("current: 0x%08X\n", current);
-	while(!current) {
-		udelay(2);
-		current = read32(OHCI0_HC_CTRL_CURRENT_ED);
+	/* poll until edhead->headp is null */
+	do {
+		sync_before_read(edhead, sizeof(struct endpoint_descriptor));
+		printf("edhead->headp: 0x%08X\n", LE(edhead->headp));
+	} while(LE(edhead->headp)&~0xf);
+
+	struct general_td *n = phys_to_virt(read32(OHCI0_HC_DONE_HEAD) & ~1);
+	printf("hc_done_head: 0x%08X\n", read32(OHCI0_HC_DONE_HEAD));
+
+	struct general_td *prev = 0, *next = 0;
+	/* reverse done queue */
+	while(virt_to_phys(n) && edhead->tdcount) {
+		sync_before_read((void*) n, sizeof(struct general_td));
+		printf("n: 0x%08X\n", n);
+		printf("next: 0x%08X\n", next);
+		printf("prev: 0x%08X\n", prev);
+
+		next = n;
+		n = (struct general_td*) phys_to_virt(LE(n->nexttd));
+		next->nexttd = (u32) prev;
+		prev = next;
+
+		edhead->tdcount--;
+	}
+
+	n = next;
+	prev = 0;
+	while(virt_to_phys(n)) {
+		if(prev) {
+			free(prev);
+		}
+
+		dump_address(n, sizeof(struct general_td), "n(after)");
+
+		if(n->buflen > 0) {
+			sync_before_read((void*) n->bufaddr, n->buflen);
+			dump_address((void*) n->bufaddr, n->buflen, "n->bufaddr(after)");
+		}
+		dbg_td_flag(LE(n->flags));
+		prev = n;
+		n = (struct general_td*) n->nexttd;
+	}
+	if(prev) {
+		free(prev);
 	}
 
-	udelay(20000);
-	current = read32(OHCI0_HC_CTRL_CURRENT_ED);
-	printf("current: 0x%08X\n", current);
-	printf("+++++++++++++++++++++++++++++\n");
-	udelay(20000);
+	hcca_oh0.done_head = 0;
+	sync_after_write(&hcca_oh0, sizeof(hcca_oh0));
 
-	sync_before_read(tmptd, sizeof(struct general_td));
-	printf("tmptd hexdump (after) 0x%08X:\n", tmptd);
-	hexdump(tmptd, sizeof(struct general_td));
-	dbg_td_flag(ACCESS_LE(tmptd->flags));
+	write32(OHCI0_HC_CONTROL, read32(OHCI0_HC_CONTROL)&~OHCI_CTRL_CLE);
 
-	sync_before_read((void*) phys_to_virt(ACCESS_LE(tmptd->cbp)), td->actlen);
-	printf("tmptd->cbp hexdump (after) 0x%08X:\n", phys_to_virt(ACCESS_LE(tmptd->cbp)));
-	hexdump((void*) phys_to_virt(ACCESS_LE(tmptd->cbp)), td->actlen);
+	free(edhead);
+	edhead = 0;
 
-	sync_before_read(&dummyconfig, 16);
-	printf("dummyconfig hexdump (after) 0x%08X:\n", &dummyconfig);
-	hexdump((void*) &dummyconfig, 16);
+	printf("<^>  <^>  <^> hcdi_fire(end)\n");
+}
 
-	sync_before_read(&hcca_oh0, 256);
-	printf("done head (nach sync): 0x%08X\n", ACCESS_LE(hcca_oh0.done_head));
+/**
+ * Enqueue a transfer descriptor.
+ */
+u8 hcdi_enqueue(const usb_transfer_descriptor *td) {
+	printf("*()*()*()*()*()*()*() hcdi_enqueue(start)\n");
+	if(!edhead) {
+		edhead = allocate_endpoint();
+		edhead->flags = LE(OHCI_ENDPOINT_GENERAL_FORMAT);
+		edhead->headp = edhead->tailp = edhead->nexted = LE(0);
+		edhead->flags |= LE(OHCI_ENDPOINT_LOW_SPEED |
+				OHCI_ENDPOINT_SET_DEVICE_ADDRESS(td->devaddress) |
+				OHCI_ENDPOINT_SET_ENDPOINT_NUMBER(td->endpoint) |
+				OHCI_ENDPOINT_SET_MAX_PACKET_SIZE(td->maxp));
+		edhead->tdcount = 0;
+	}
 
-	sync_before_read((void*) phys_to_virt(ACCESS_LE(tmptd->cbp)), td->actlen);
-	(void) memcpy((void*) (td->buffer), phys_to_virt(ACCESS_LE(tmptd->cbp)), td->actlen);
+	struct general_td *tdhw = allocate_general_td();
+	general_td_fill(tdhw, td);
+	edhead->tdcount ++;
 
-	write32(OHCI0_HC_CONTROL, read32(OHCI0_HC_CONTROL)&~OHCI_CTRL_CLE);
-	dummyconfig.headp = dummyconfig.tailp = dummyconfig.nexted = ACCESS_LE(0);
-	//should be free'd after taking it from the done queue
-	//however, it fails?! WTF
-#if 0
-	printf("WTF1\n");
-	free(tmptd);
-	printf("WTF0\n");
-	free((void*) tmptd->cbp);
-	printf("WTF3\n");
-#endif
+	if(!edhead->headp) {
+		/* first transfer */
+		edhead->headp = LE(virt_to_phys((void*) ((u32)tdhw & OHCI_ENDPOINT_HEAD_MASK)));
+	}
+	else {
+		/* headp in endpoint already exists
+		 * => go to list end
+		 */
+		struct general_td *n = (struct general_td*) phys_to_virt(LE(edhead->headp) & OHCI_ENDPOINT_HEAD_MASK);
+		while(LE(n->nexttd)) {
+			n = phys_to_virt(LE(n->nexttd));
+		}
+		n->nexttd = LE(virt_to_phys((void*) ((u32)tdhw & OHCI_ENDPOINT_HEAD_MASK)));
+		printf("n: 0x%08X\n", n);
+		printf("n->nexttd: 0x%08X\n", phys_to_virt(LE(n->nexttd)));
+	}
+
+	printf("*()*()*()*()*()*()*() hcdi_enqueue(end)\n");
 	return 0;
 }
 
+
 /**
  * Remove an transfer descriptor from transfer queue.
  */
@@ -359,15 +430,17 @@ void hcdi_init()
 	write32(OHCI0_HC_CONTROL, OHCI_CONTROL_INIT | OHCI_USB_OPER);
 
 	/* wake on ConnectStatusChange, matching external hubs */
-	set32(OHCI0_HC_RH_STATUS, RH_HS_DRWE);
+	write32(OHCI0_HC_RH_STATUS, /*RH_HS_DRWE |*/ RH_HS_LPSC);
 
 	/* Choose the interrupts we care about now, others later on demand */
 	write32(OHCI0_HC_INT_STATUS, ~0);
 	write32(OHCI0_HC_INT_ENABLE, OHCI_INTR_INIT);
 
-	irq_restore(cookie);
+	//wtf?
+	wait_ms ((read32(OHCI0_HC_RH_DESCRIPTOR_A) >> 23) & 0x1fe);
 
 	configure_ports((u8)1);
+	irq_restore(cookie);
 
 	dbg_op_state();
 }
@@ -382,28 +455,29 @@ static void configure_ports(u8 from_init)
 
 	setup_port(OHCI0_HC_RH_PORT_STATUS_1, from_init);
 	setup_port(OHCI0_HC_RH_PORT_STATUS_2, from_init);
+	printf("configure_ports done\n");
 }
 
 static void setup_port(u32 reg, u8 from_init)
 {
 	u32 port = read32(reg);
 	if((port & RH_PS_CCS) && ((port & RH_PS_CSC) || from_init)) {
-		if(!from_init)
-			write32(reg, RH_PS_CSC);
+		write32(reg, RH_PS_CSC);
 
-		wait_ms(100);
+		wait_ms(120);
 
 		/* clear CSC flag, set PES and start port reset (PRS) */
 		write32(reg, RH_PS_PES);
+		while(!(read32(reg) & RH_PS_PES)) {
+			printf("fu\n");
+			return;
+		}
+
 		write32(reg, RH_PS_PRS);
 
 		/* spin until port reset is complete */
-		port = read32(reg);
-		while(!(port & RH_PS_PRSC)) {
-			udelay(2);
-			printf("fuck\n");
-			port = read32(reg);
-		}
+		while(!(read32(reg) & RH_PS_PRSC)); // hint: it may stuck here
+		printf("loop done\n");
 
 		(void) usb_add_device();
 	}
@@ -476,3 +550,8 @@ void hcdi_irq()
 	}
 }
 
+void show_frame_no()
+{
+	sync_before_read(&hcca_oh0, 256);
+	printf("***** frame_no: %d *****\n", LE(hcca_oh0.frame_no));
+}