diff options
Diffstat (limited to 'misc/pascal/insn16/prun')
-rw-r--r-- | misc/pascal/insn16/prun/pdbg.c | 8 | ||||
-rw-r--r-- | misc/pascal/insn16/prun/pexec.c | 14 |
2 files changed, 11 insertions, 11 deletions
diff --git a/misc/pascal/insn16/prun/pdbg.c b/misc/pascal/insn16/prun/pdbg.c index d941ebb6f..1865c571b 100644 --- a/misc/pascal/insn16/prun/pdbg.c +++ b/misc/pascal/insn16/prun/pdbg.c @@ -421,7 +421,7 @@ static int32_t pdbg_readdecimal(char *ptr) while (isspace(*ptr)) ptr++; for (; ((*ptr >= '0') && (*ptr <= '9')); ptr++) decimal = 10*decimal + (int32_t)*ptr - (int32_t)'0'; - + return decimal; } /* end pdbg_readdecimal */ @@ -495,7 +495,7 @@ static paddr_t pdbg_printpcode(struct pexec_s *st, paddr_t pc, int16_t nitems) printf("%02x", op.arg1); opsize++; } /* end if */ - else + else printf(".."); if ((op.op & o16) != 0) @@ -575,7 +575,7 @@ static void pdbg_printtracearray(struct pexec_s *st) for (nprinted = 0; nprinted < g_ntracepoints; nprinted++) { printf("SP:%04x %04x ", - g_tracearray[ index ].sp, g_tracearray[ index ].tos); + g_tracearray[ index ].sp, g_tracearray[ index ].tos); /* Print the instruction executed at this traced address */ (void)pdbg_printpcode(st, g_tracearray[ index ].pc, 1); @@ -627,7 +627,7 @@ static void pdbg_deletebreakpoint(int16_t bpno) for (; (bpno < g_nbreakpoints); bpno++) g_breakpoint[bpno-1] = g_breakpoint[bpno]; - + g_nbreakpoints--; } /* end if */ diff --git a/misc/pascal/insn16/prun/pexec.c b/misc/pascal/insn16/prun/pexec.c index b22e52835..07809f840 100644 --- a/misc/pascal/insn16/prun/pexec.c +++ b/misc/pascal/insn16/prun/pexec.c @@ -294,7 +294,7 @@ static uint16_t pexec_sysio(struct pexec_s *st, uint8_t fno, uint16_t subfunc) * Name: pexec_libcall * * Description: - * This function process a system I/O operation + * This function process a system I/O operation * ****************************************************************************/ @@ -327,7 +327,7 @@ static uint16_t pexec_libcall(struct pexec_s *st, uint16_t subfunc) case lbGETENV : len = TOS(st, 0); /* Number of bytes in string */ src = (uint8_t*)&GETSTACK(st, TOS(st, 1)); /* Pointer to string */ - + /* Make a C string out of the pascal string */ name = pexec_mkcstring(src, len); @@ -348,7 +348,7 @@ static uint16_t pexec_libcall(struct pexec_s *st, uint16_t subfunc) break; /* Copy pascal string to a pascal string - * + * * ON INPUT: * TOS(st, 0) = address of dest string hdr * TOS(st, 1) = length of source string @@ -408,7 +408,7 @@ static uint16_t pexec_libcall(struct pexec_s *st, uint16_t subfunc) break; /* Copy C string to a pascal string - * + * * ON INPUT: * TOS(st, 0) = address of dest hdr * TOS(st, 1) = MS 16-bits of 32-bit C string pointer @@ -571,7 +571,7 @@ static uint16_t pexec_libcall(struct pexec_s *st, uint16_t subfunc) break; /* Convert a string to a numeric value - * procedure val(const s : string; var v; var code : word); + * procedure val(const s : string; var v; var code : word); * * Description: * val() converts the value represented in the string S to a numerical @@ -668,7 +668,7 @@ static uint16_t pexec_libcall(struct pexec_s *st, uint16_t subfunc) uparm1 = TOS(st, 0); /* Original string size */ addr1 = TOS(st, 1); /* Original string data pointer */ - + /* Check if there is space on the string stack for the new string * FIXME: This logic does not handle strings with other than the * default size! @@ -842,7 +842,7 @@ static uint16_t pexec_libcall(struct pexec_s *st, uint16_t subfunc) * TOS(st, 3)=length of string1 * TOS(st, 4)=address of string1 data * ON OUTPUT - * TOS(st, 0)=(-1=less than, 0=equal, 1=greater than} + * TOS(st, 0)=(-1=less than, 0=equal, 1=greater than} */ case lbSTRCMP : |