search for: outc

I'm trying to figure out why the presence of a Fortran call affects the result of a floating-point operation. I have C functions void test1(int *n, double *f){ int outC; double c0; c0 = (double) *n * *f; outC = floor(c0); printf("when f computed by R, C says %d by itself\n",outC); } void test2(int *n, double *f){ extern int F77_NAME(ifloor)(double *); int outC,outFor; double c0; c0 = (double) *n * *f; outFor = F77_CALL(ifloor)(&amp...

...org/?p=libs/klibc/klibc.git;a=commit;h=8ce54e2a6adb82cbbb988e1f335fa5ebf370f6c5 Author: Jonathan Nieder <jrnieder at gmail.com> AuthorDate: Thu, 7 Jul 2011 15:20:29 +0800 Committer: maximilian attems <max at stro.at> CommitDate: Mon, 2 Jul 2012 10:43:24 +0200 [klibc] [OUTPUT] Make outc an inline function As "gcc -pedantic" warns, ISO C forbids conditional expressions with only one void side. So the (needslow ? slowpath() : fastpath) code for outc in the !USE_GLIBC_STDIO case might not be portable. More importantly, it's hard to read. Rip it out and replace it w...

...12 x i32]* @weights, i32 0, i32 %k.3.ph Ok, we see it all: Index of @weights in value list = 26 Index of "i32 0" in value list = 64 Index of "i32 %k.3.ph" in value list = 429 But in the second instructions: %tmp67.1 = getelementptr [8 x [8 x i32]]* %inter, i32 0, i32 1, i32 %outc.0.reg2mem.0 As the first one, we see: Index of %inter in value list = 341 Index of "i32 0" in value list = 64 Index of "i32 1" in value list = 101 Index of "i32 %outc.0.reg2mem.0" in value list = 499 ==> What is the last one, "op4=0" ? And the index of...

Hello, I have a loop with 1000 repetitions which includes OR computation of an exposure factor and outcome. I compute OR like this: t<-table(exposure,outcome) oddsratio(t)$measure["estimate"] This gives me the estimates for exposure=0 and exposure=1 but exposure=0 is the reference group and i need only the estimate for exposure=1. I specified a matrix OR with 3 columns (for OR estima...

Hi, Could someone help with coding this in R? I need to select one row per patient i in clinic j. The data is organized similar to that shown below. Two columns - patient i in column j identify each unique patient. There are two columns on outcome. Some patients have multiple rows with each row representing one visit, coded for in the column, visit. Some patients have just one row indicating data from a single visit. I need to select one row per patient i in clinic j using the following algorithm: If patient has outcome recorded at visi...

...t; size_t nleft; @@ -186,8 +187,8 @@ alloc: err: dest->flags |= OUTPUT_ERR; } -} #endif +} void @@ -201,7 +202,7 @@ outstr(const char *p, struct output *file) size_t len; len = strlen(p); - __outstr(p, len, file); + outmem(p, len, file); #endif } @@ -213,7 +214,7 @@ void outcslow(int c, struct output *dest) { char buf = c; - __outstr(&buf, 1, dest); + outmem(&buf, 1, dest); } #endif @@ -283,35 +284,58 @@ fmtstr(char *outbuf, size_t length, const char *fmt, ...) } +static int xvasprintf(char **sp, size_t size, const char *f, va_list ap) +{ + char *s;...

...t; size_t nleft; @@ -186,8 +187,8 @@ alloc: err: dest->flags |= OUTPUT_ERR; } -} #endif +} void @@ -201,7 +202,7 @@ outstr(const char *p, struct output *file) size_t len; len = strlen(p); - __outstr(p, len, file); + outmem(p, len, file); #endif } @@ -213,7 +214,7 @@ void outcslow(int c, struct output *dest) { char buf = c; - __outstr(&buf, 1, dest); + outmem(&buf, 1, dest); } #endif @@ -283,35 +284,58 @@ fmtstr(char *outbuf, size_t length, const char *fmt, ...) } +static int xvasprintf(char **sp, size_t size, const char *f, va_list ap) +{ + char *s;...

...c; - nonl += print_escape_str("%s", NULL, NULL, *argv); + if (likely(*argv)) + nonl += print_escape_str("%s", NULL, NULL, *argv++); if (nonl > 0) break; - c = ' '; - if (!*++argv) { -end: - if (nonl) { - break; - } - c = '\n'; - } - outc(c, outs); + c = *argv ? ' ' : '\n'; + out1c(c); } while (*argv); return 0; }

...c; - nonl += print_escape_str("%s", NULL, NULL, *argv); + if (likely(*argv)) + nonl += print_escape_str("%s", NULL, NULL, *argv++); if (nonl > 0) break; - c = ' '; - if (!*++argv) { -end: - if (nonl) { - break; - } - c = '\n'; - } - outc(c, outs); + c = *argv ? ' ' : '\n'; + out1c(c); } while (*argv); return 0; }

...not used [klibc] [MEMALLOC] Avoid clang warning about dead store to "size" [klibc] [EVAL] Avoid using undefined handler [klibc] Avoid overflow for very long variable name Jonathan Nieder (2): [klibc] [EVAL] Remove unused EV_BACKCMD flag [klibc] [OUTPUT] Make outc an inline function Steve McIntyre (1): [klibc] arm/setjmp.S: fix longjmp Thorsten Glaser (3): [klibc] arm: fix trashing of callee-saved registers in thumb setjmp() [klibc] arm: unbreak armhf shared binaries (those with thumb) [klibc] arm: remove unused variable maximilian...

I have a new problem: Register RBP is used in a function foo. (I am not allocating RBP to any virtual register, the instances of RBP in function foo are in the machine code when my register allocator starts.) Function foo calls function bar. Register RBP is not saved across the call, though it is live after the call. Function bar includes a virtual register. The code that I'm using to

...rn void out_hex (const char [], unsigned int); extern void out_line_count (const char []); extern void out_str (const char [], const char []); extern void out_str3 (const char [], const char [], const char [], const char []); extern void out_str_dec (const char [], const char [], int); extern void outc (int); extern void outn (const char []); extern char *readable_form (int); extern void skelout (void); extern void transition_struct_out (int, int); extern void *yy_flex_xmalloc ( int ); extern void zero_out (char *, size_t); extern void add_accept (int, int); extern int copysingl (int, int); exter...

...goto next; - if (c != '\\') - goto print; - - outstr(conv_escape_str(*argv - 1), outs); + outstr(conv_escape_str(*argv), outs); if (rval & 0x100) break; -next: + c = ' '; if (!*++argv) { end: @@ -469,7 +463,6 @@ end: } c = '\n'; } -print: outc(c, outs); } while (*argv); return 0; commit 2e8e9f66247d854dcb813ce0f3a02772daa4cedd Author: Herbert Xu <herbert at gondor.apana.org.au> Date: Sun Nov 13 21:15:19 2005 +1100 Remove unnecessary truncation in _STPUTC Using char in the function argument causes unnecessary tr...