| version 1.20 | | version 1.21 |
|---|
| | |
| /* | | /* |
| * static char *rcsid_porting_c = | | * static char *rcsid_porting_c = |
| * "$Id: porting.c,v 1.20 2003/04/05 05:39:48 mwedel Exp $"; | | * "$Id: porting.c,v 1.21 2003/06/30 19:14:13 tchize Exp $"; |
| */ | | */ |
| | | |
| /* | | /* |
| | |
| *(--cp)='-'; | | *(--cp)='-'; |
| return cp; | | return cp; |
| } | | } |
| | | char *doubletostr10(double v){ |
| | | static char tbuf[200]; |
| | | sprintf(tbuf,"%f",v); |
| | | return tbuf; |
| | | } |
| | | |
| /* | | /* |
| * A fast routine which appends the name and decimal number specified | | * A fast routine which appends the name and decimal number specified |
| | |
| * Could be faster, though, if the strcat()s at the end could be changed | | * Could be faster, though, if the strcat()s at the end could be changed |
| * into alternate strcat which returned a pointer to the _end_, not the | | * into alternate strcat which returned a pointer to the _end_, not the |
| * start! | | * start! |
| | | * |
| | | * Hey good news, it IS faster now, according to changes in get_ob_diff |
| | | * Completly redone prototype and made define in loader.l. See changes there. |
| | | * Didn't touch those for speed reason (don't use them anymore) . |
| | | * Tchize |
| */ | | */ |
| | | |
| void save_long(char *buf, char *name, long n) { | | void save_long(char *buf, char *name, long n) { |
| char buf2[MAX_BUF]; | | char buf2[MAX_BUF]; |
| | | |
| strcpy(buf2,name); | | strcpy(buf2,name); |
| strcat(buf2," "); | | strcat(buf2," "); |
| strcat(buf2,ltostr10(n)); | | strcat(buf2,ltostr10(n)); |