From e9850f269131890b8b07f2313efcb6d5a4f7ca44 Mon Sep 17 00:00:00 2001 From: keie Date: Fri, 8 Feb 1985 13:12:51 +0000 Subject: [PATCH] Improved. --- lang/basic/lib/mki.c | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/lang/basic/lib/mki.c b/lang/basic/lib/mki.c index 3c2ece7f8..d1cb7bcdd 100644 --- a/lang/basic/lib/mki.c +++ b/lang/basic/lib/mki.c @@ -3,13 +3,13 @@ /* $Header$ */ String *_mki(i) -int i; +long i; { - char *buffer =" "; + char *buffer =" "; String *s; s= _newstr(buffer); - strncpy(s->strval,&i,2); + * ( (long *)s->strval ) = i ; return(s); } String *_mkd(d) @@ -19,19 +19,16 @@ double d; String *s; s= _newstr(buffer); - strncpy(s->strval,&d,8); + * ( (double *)s->strval ) = i ; return(s); } -_cvi(s) +long _cvi(s) String *s; { - int i; - strncpy(&i,s->strval,2); - return(i); + return *( (long *) s->strval) ; } double _cvd(s) String *s; { - double d; - strncpy(&d,s->strval,8); + return *( (double *) s->strval) ; } -- 2.34.1