From 02665f6061ac2edd5f22a43ab016067fe6f15d81 Mon Sep 17 00:00:00 2001 From: patacongo Date: Thu, 7 Feb 2008 01:49:38 +0000 Subject: changes for build with SDCC toolchain git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@657 42af7a65-404d-4744-a932-0658087f49c3 --- misc/pascal/insn16/prun/pexec.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'misc/pascal/insn16/prun') diff --git a/misc/pascal/insn16/prun/pexec.c b/misc/pascal/insn16/prun/pexec.c index 0c099d298..10204ae3c 100644 --- a/misc/pascal/insn16/prun/pexec.c +++ b/misc/pascal/insn16/prun/pexec.c @@ -308,7 +308,7 @@ static uint16 pexec_libcall(struct pexec_s *st, uint16 subfunc) ubyte *dest; ubyte *name; int len; - int value; + sint32 value; switch (subfunc) { @@ -599,7 +599,7 @@ static uint16 pexec_libcall(struct pexec_s *st, uint16 subfunc) len = TOS(st, 2); /* Number of bytes in string */ src = (ubyte*)&GETSTACK(st, TOS(st, 3)); /* Pointer to string */ - + /* Make a C string out of the pascal string */ name = pexec_mkcstring(src, len); -- cgit v1.2.3