+ Fixed some functions. TFileStream OK.

fcl/inc/classesh.inc

@@ -49,8 +49,10 @@ const
 
 { TFileStream create mode }
 
-  fmCreate = $FFFF;
-  fmOpenRead = fmInput;
+  fmCreate        = $FFFF;
+  fmOpenRead      = 0;
+  fmOpenWrite     = 1;
+  fmOpenReadWrite = 2;
 
 { TParser special tokens }
 
@@ -1047,7 +1049,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
 
 {
   $Log$
-  Revision 1.5  1998-06-10 21:53:06  michael
+  Revision 1.6  1998-06-11 13:46:32  michael
+  + Fixed some functions. TFileStream OK.
+
+  Revision 1.5  1998/06/10 21:53:06  michael
   + Implemented Handle/FileStreams
 
   Revision 1.4  1998/05/27 11:41:43  michael

fcl/inc/streams.inc

@@ -18,13 +18,13 @@
   function TStream.GetPosition: Longint;
 
     begin
-       GetPosition:=Seek(0,soFromCurrent);
+       Result:=Seek(0,soFromCurrent);
     end;
 
   procedure TStream.SetPosition(Pos: Longint);
 
     begin
-       Seek(soFromBeginning,Pos);
+       Seek(pos,soFromBeginning);
     end;
 
   function TStream.GetSize: Longint;
@@ -34,8 +34,8 @@
 
     begin
        p:=GetPosition;
-       GetSize:=Seek(soFromEnd,0);
-       Seek(soFromBeginning,p);
+       GetSize:=Seek(0,soFromEnd);
+       Seek(p,soFromBeginning);
     end;
 
   procedure TStream.SetSize(NewSize: Longint);
@@ -330,7 +330,7 @@ end;
 function TFileStream.Seek(Offset: Longint; Origin: Word): Longint;
 
 begin
-  OSSeekHandle (FHandle,OffSet,Origin);
+  Result:=OSSeekHandle (FHandle,OffSet,Origin);
 end;
 
 
@@ -504,7 +504,10 @@ end;
 
 {
   $Log$
-  Revision 1.4  1998-06-10 21:53:07  michael
+  Revision 1.5  1998-06-11 13:46:33  michael
+  + Fixed some functions. TFileStream OK.
+
+  Revision 1.4  1998/06/10 21:53:07  michael
   + Implemented Handle/FileStreams
 
   Revision 1.3  1998/05/06 12:58:35  michael

fcl/linux/osfile.inc

@@ -50,7 +50,6 @@ Begin
   regs.reg4:=438;        { 666 octal }
   Do_SysCall(SysCall_nr_open,regs);
   Result:=regs.reg1;
-  Writeln ('Create result : ', regs.reg1);
   If Result<0 then Result:=-1;
 End;
 
@@ -129,6 +128,7 @@ begin
   sr.reg4:=Origin;
   Do_Syscall(Syscall_nr_lseek,sr);
   Result:=sr.reg1;
+
   If Result<-1 then Result:=-1;
 end;