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) |