summaryrefslogtreecommitdiff
path: root/compiler/owbase.pas
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/owbase.pas')
-rw-r--r--compiler/owbase.pas8
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/owbase.pas b/compiler/owbase.pas
index 592d463aac..56558b2fa4 100644
--- a/compiler/owbase.pas
+++ b/compiler/owbase.pas
@@ -31,7 +31,7 @@ uses
type
tobjectwriter=class
private
- f : TCFileStream;
+ f : TCCustomFileStream;
opened : boolean;
buf : pchar;
bufidx : longword;
@@ -54,7 +54,7 @@ type
tobjectreader=class
private
- f : TCFileStream;
+ f : TCCustomFileStream;
opened : boolean;
buf : pchar;
ffilename : string;
@@ -108,7 +108,7 @@ end;
function tobjectwriter.createfile(const fn:string):boolean;
begin
createfile:=false;
- f:=TCFileStream.Create(fn,fmCreate);
+ f:=CFileStreamClass.Create(fn,fmCreate);
if CStreamError<>0 then
begin
Message1(exec_e_cant_create_objectfile,fn);
@@ -233,7 +233,7 @@ end;
function tobjectreader.openfile(const fn:string):boolean;
begin
openfile:=false;
- f:=TCFileStream.Create(fn,fmOpenRead);
+ f:=CFileStreamClass.Create(fn,fmOpenRead);
if CStreamError<>0 then
begin
Comment(V_Error,'Can''t open object file: '+fn);