summaryrefslogtreecommitdiff
path: root/misc/pascal/insn16
diff options
context:
space:
mode:
Diffstat (limited to 'misc/pascal/insn16')
-rw-r--r--misc/pascal/insn16/prun/pexec.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/misc/pascal/insn16/prun/pexec.c b/misc/pascal/insn16/prun/pexec.c
index 686f3d776..8249d55c6 100644
--- a/misc/pascal/insn16/prun/pexec.c
+++ b/misc/pascal/insn16/prun/pexec.c
@@ -560,7 +560,7 @@ static uint16 pexec_libcall(struct pexec_s *st, ubyte fileno, uint16 subfunc)
/* Then transfer the string contents */
- memcpy(dest, src, len);
+ memcpy(dest, src, uparm1);
ref[1] = uparm1;
}
break;