[prev in list] [next in list] [prev in thread] [next in thread] 

List:       openbios
Subject:    [OpenBIOS] r85 - openbios-devel/kernel
From:       svn () openbios ! org
Date:       2006-09-14 16:29:49
Message-ID: E1GNu61-0004iD-95 () khepri ! openbios ! org
[Download RAW message or body]

Author: stepan
Date: 2006-09-14 18:29:48 +0200 (Thu, 14 Sep 2006)
New Revision: 85

Modified:
   openbios-devel/kernel/forth.c
Log:
int-fixes part II


Modified: openbios-devel/kernel/forth.c
===================================================================
--- openbios-devel/kernel/forth.c	2006-09-14 15:08:45 UTC (rev 84)
+++ openbios-devel/kernel/forth.c	2006-09-14 16:29:48 UTC (rev 85)
@@ -633,7 +633,7 @@
 static void wstore(void)
 {
 	const u16 *aaddr = (u16 *)cell2pointer(POP());
-	const ucell word = POP();
+	const u16 word = POP();
 	write_word(aaddr, word);
 }
 
@@ -645,7 +645,7 @@
 static void lstore(void)
 {
 	const u32 *aaddr = (u32 *)cell2pointer(POP());
-	const ucell longval = POP();
+	const u32 longval = POP();
 	write_long(aaddr, longval);
 }
 
@@ -750,7 +750,7 @@
 
 static void unalignedwordread(void)
 {
-	unsigned char *addr = (unsigned char *) cell2pointer(POP());
+	const unsigned char *addr = (const unsigned char *) cell2pointer(POP());
 	PUSH(unaligned_read_word(addr));
 }
 
@@ -761,8 +761,8 @@
 
 static void unalignedwordwrite(void)
 {
-	unsigned char *addr = (unsigned char *) cell2pointer(POP());
-	ucell w = POP();
+	const unsigned char *addr = (const unsigned char *) cell2pointer(POP());
+	u16 w = POP();
 	unaligned_write_word(addr, w);
 }
 
@@ -773,7 +773,7 @@
 
 static void unalignedlongread(void)
 {
-	unsigned char *addr = (unsigned char *) cell2pointer(POP());
+	const unsigned char *addr = (const unsigned char *) cell2pointer(POP());
 	PUSH(unaligned_read_long(addr));
 }
 
@@ -785,7 +785,7 @@
 static void unalignedlongwrite(void)
 {
 	unsigned char *addr = (unsigned char *) cell2pointer(POP());
-	ucell l = POP();
+	u32 l = POP();
 	unaligned_write_long(addr, l);
 }
 


-- 
OpenBIOS                 http://openbios.org/
Mailinglist:  http://lists.openbios.org/mailman/listinfo
Free your System - May the Forth be with you
[prev in list] [next in list] [prev in thread] [next in thread]