* made it compilable

fcl/inc/parser.inc

@@ -260,6 +260,7 @@ var
   P                : PChar;
 begin
   CheckToken(toSymbol);
+
   P := FSourcePtr;
   while P^ = '.' do
   begin
@@ -299,7 +300,7 @@ Function TParser.TokenString: string;
 var
   L                : Integer;
   StrBuf           : array[0..1023] of Char;
-begin 
+begin
   if FToken = toString then begin
     L := FStringPtr - FTokenPtr 
   end else begin
@@ -316,7 +317,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.4  1998-10-30 14:52:51  michael
+  Revision 1.5  1999-01-28 23:55:41  florian
+    * made it compilable
+
+  Revision 1.4  1998/10/30 14:52:51  michael
   + Added format in interface
   + Some errors in parser fixed, it uses exceptions now
   + Strings now has no more syntax errors.

fcl/inc/streams.inc

@@ -344,7 +344,7 @@ function TCustomMemoryStream.Read(var Buffer; Count: Longint): Longint;
 
 begin
   Result:=0;
-  If FSize>0 and FPosition<Fsize then
+  If (FSize>0) and (FPosition<Fsize) then
     begin
     Result:=FSize-FPosition;
     If Result>Count then Result:=Count;
@@ -610,7 +610,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  1998-10-02 22:41:30  michael
+  Revision 1.9  1999-01-28 23:55:42  florian
+    * made it compilable
+
+  Revision 1.8  1998/10/02 22:41:30  michael
   + Added exceptions for error handling
 
   Revision 1.7  1998/08/24 12:38:24  michael
@@ -634,4 +637,4 @@ end;
   Revision 1.1  1998/05/04 14:30:12  michael
   * Split file according to Class; implemented dummys for all methods, so unit compiles.
 
-}
+}

fcl/inc/strings.inc

@@ -888,7 +888,7 @@ end;
 Procedure TStringList.Sort; 
 
 begin
-  If Not Sorted and FCount>1 then
+  If Not Sorted and (FCount>1) then
     begin
     Changing;
     QuickSOrt(0,FCount-1);
@@ -898,7 +898,10 @@ end;
 
 {
   $Log$
-  Revision 1.8  1998-11-13 09:40:16  michael
+  Revision 1.9  1999-01-28 23:55:43  florian
+    * made it compilable
+
+  Revision 1.8  1998/11/13 09:40:16  michael
   + Restored old version
 
   Revision 1.6  1998/11/09 10:07:24  michael