bug fix in lseek.e

1987-04-29 13:36:52 +00:00 · 1987-04-29 13:36:52 +00:00 · 1dba69eb38
commit 1dba69eb38
parent ed582b0752
1 changed files with 8 additions and 0 deletions
--- a/lang/cem/libcc/mon/lseek.e
+++ b/lang/cem/libcc/mon/lseek.e
@ -21,5 +21,13 @@
 loc -1
 #endif
 1
+#if EM_WSIZE==1
+ ret 4*EM_WSIZE
+#endif
+#if EM_WSIZE==2
 ret 2*EM_WSIZE
+#endif
+#if EM_WSIZE==4
+ ret EM_WSIZE
+#endif
 end