diff options
Diffstat (limited to 'misc/pascal/libpas')
-rw-r--r-- | misc/pascal/libpas/psignextend16.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/misc/pascal/libpas/psignextend16.c b/misc/pascal/libpas/psignextend16.c index a89737d2c..fe80691b2 100644 --- a/misc/pascal/libpas/psignextend16.c +++ b/misc/pascal/libpas/psignextend16.c @@ -51,7 +51,7 @@ sint32 signExtend16(uint16 arg16) { - sint32 arg32 = arg16 << 16; + sint32 arg32 = (sint32)arg16 << 16; return arg32 >> 16; } |