Rev 9073 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9073 | Rev 9174 | ||
|---|---|---|---|
| Line 282... | Line 282... | ||
| 282 | IF buf # 0 THEN |
282 | IF buf # 0 THEN |
| 283 | outFile := Create(To); |
283 | outFile := Create(To); |
| 284 | IF outFile # NIL THEN |
284 | IF outFile # NIL THEN |
| 285 | IF size # 0 THEN |
285 | IF size # 0 THEN |
| 286 | res := Write(outFile, buf, size) = size |
286 | res := Write(outFile, buf, size) = size |
| - | 287 | ELSE |
|
| - | 288 | res := TRUE |
|
| 287 | END; |
289 | END; |
| 288 | Close(outFile) |
290 | Close(outFile) |
| 289 | END; |
291 | END; |
| 290 | IF size # 0 THEN |
292 | IF size # 0 THEN |
| 291 | buf := KOSAPI.free(buf) |
293 | buf := KOSAPI.free(buf) |