** Calls the 'close' function from a file handle. The 'volatile' avoids ** a bug in some versions of the Clang compiler (e.g., clang 3.0 for ** 32 bits). */
| 200 | ** 32 bits). |
| 201 | */ |
| 202 | static int aux_close (lua_State *L) { |
| 203 | LStream *p = tolstream(L); |
| 204 | volatile lua_CFunction cf = p->closef; |
| 205 | p->closef = NULL; /* mark stream as closed */ |
| 206 | return (*cf)(L); /* close it */ |
| 207 | } |
| 208 | |
| 209 | |
| 210 | static int f_close (lua_State *L) { |
no outgoing calls
no test coverage detected