+ Removed ifdef useansistrings

rtl/inc/astrings.pp

@@ -35,7 +35,6 @@
 
 }
 
-// Type shortstring=string;
 
 Function  NewAnsiString (Len : Longint) : Pointer; forward;
 Procedure DisposeAnsiString (Var S : Pointer); forward;
@@ -105,7 +104,6 @@ Procedure DisposeAnsiString(Var S : Pointer);
   Deallocates a AnsiString From the heap.
 }
 begin
-//  Writeln ('In disposeAnsiSTring');
   If S=Nil
     then exit;
   Dec (Longint(S),FirstOff);
@@ -695,7 +693,10 @@ end;
 
 {
   $Log$
-  Revision 1.28  1998-11-04 15:39:44  michael
+  Revision 1.29  1998-11-04 20:34:04  michael
+  + Removed ifdef useansistrings
+
+  Revision 1.28  1998/11/04 15:39:44  michael
   + Small fixes to assign and add
 
   Revision 1.27  1998/11/04 10:20:48  peter

rtl/inc/system.inc

@@ -93,27 +93,12 @@ Procedure Rewrite(var f : TypedFile); [INTERNPROC: In_Rewrite_TypedFile];
 
 {$i sstrings.inc}
 
-{$ifdef UseAnsiStrings}
-
 Type
    PLongint = ^Longint;
    PByte = ^Byte;
 
 {$i astrings.pp}
 
-{$else}
-
-{ Provide dummy procedures needed for rtti}
-Procedure decr_ansi_ref (P : pointer);[Alias : 'FPC_DECR_ANSI_REF'];
-  begin
-  end;
-
-Procedure incr_ansi_ref (P : pointer);[Alias : 'FPC_INCR_ANSI_REF'];
-  begin
-  end;
-
-{$endif}
-
 
 {****************************************************************************
                          Run-Time Type Information (RTTI)
@@ -476,7 +461,10 @@ end;
 
 {
   $Log$
-  Revision 1.39  1998-10-12 22:11:28  jonas
+  Revision 1.40  1998-11-04 20:34:02  michael
+  + Removed ifdef useansistrings
+
+  Revision 1.39  1998/10/12 22:11:28  jonas
     * fixed RandSeed bug
 
   Revision 1.38  1998/10/12 12:43:37  florian

rtl/inc/systemh.inc

@@ -273,7 +273,6 @@ Procedure Val(const s:shortstring;Var d:ValReal);
                              AnsiString Handling
 ****************************************************************************}
 
-{$ifdef UseAnsiStrings }
 
 Procedure SetLength (Var S : AnsiString; l : Longint);
 Procedure UniqueAnsiString (Var S : AnsiString);
@@ -304,7 +303,6 @@ Procedure Str (Const I : Integer;len : Longint; Var S : AnsiString);
 Procedure Str (Const B : Byte; Len : longint; Var S : AnsiString);
 Procedure Str (Const SI : ShortInt; Len : longint; Var S : AnsiString);
 }
-{$endif}
 
 
 {****************************************************************************
@@ -432,7 +430,10 @@ const
 
 {
   $Log$
-  Revision 1.38  1998-11-04 10:20:51  peter
+  Revision 1.39  1998-11-04 20:34:01  michael
+  + Removed ifdef useansistrings
+
+  Revision 1.38  1998/11/04 10:20:51  peter
     * ansistring fixes
 
   Revision 1.37  1998/10/10 15:28:47  peter