* more temp symbols removed

rtl/inc/heap.inc

@@ -139,13 +139,13 @@ begin
 end;
 
 
-procedure GetMem(Var p:pointer;Size:Longint);[public,alias:{$ifdef FPCNAMES}'FPC_'+{$endif}'GETMEM'];
+procedure GetMem(Var p:pointer;Size:Longint);[public,alias:'FPC_GETMEM'];
 begin
   MemoryManager.GetMem(p,Size);
 end;
 
 
-procedure FreeMem(Var p:pointer;Size:Longint);[public,alias:{$ifdef FPCNAMES}'FPC_'+{$endif}'FREEMEM'];
+procedure FreeMem(Var p:pointer;Size:Longint);[public,alias:'FPC_FREEMEM'];
 begin
   MemoryManager.FreeMem(p,Size);
 end;
@@ -1086,7 +1086,10 @@ end;
 
 {
   $Log$
-  Revision 1.3  1998-10-22 23:50:45  peter
+  Revision 1.4  1998-12-16 00:22:24  peter
+    * more temp symbols removed
+
+  Revision 1.3  1998/10/22 23:50:45  peter
     + check for < 0 which otherwise segfaulted
 
   Revision 1.2  1998/10/01 14:55:17  peter

rtl/inc/objects.pp

@@ -679,7 +679,6 @@ CONST
 {                        STREAM REGISTRATION RECORDS                        }
 {---------------------------------------------------------------------------}
 
-{$ifndef VER0_99_8}
 CONST
    RCollection: TStreamRec = (
      ObjType: 50;
@@ -710,7 +709,6 @@ CONST
      VmtLink: Ofs(TypeOf(TStrListMaker)^);
      Load: Nil;
      Store: @TStrListMaker.Store);
-{$endif VER0_99_8}
 
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                                 IMPLEMENTATION
@@ -2643,11 +2641,9 @@ END;
 {---------------------------------------------------------------------------}
 PROCEDURE RegisterObjects;
 BEGIN
-{$ifndef VER0_99_8}
    RegisterType(RCollection);                         { Register object }
    RegisterType(RStringCollection);                   { Register object }
    RegisterType(RStrCollection);                      { Register object }
-{$endif}
 END;
 
 {---------------------------------------------------------------------------}
@@ -2688,7 +2684,10 @@ END;
 END.
 {
   $Log$
-  Revision 1.16  1998-12-08 10:11:27  peter
+  Revision 1.17  1998-12-16 00:22:25  peter
+    * more temp symbols removed
+
+  Revision 1.16  1998/12/08 10:11:27  peter
     * tpoint contains now sw_integer (needed to support 64k files in the
       editor)
 

rtl/inc/typefile.inc

@@ -46,7 +46,7 @@ begin
 end;
 
 
-Procedure Int_Typed_Reset(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias: {$ifdef FPCNAMES}'FPC_RESET_TYPED'{$else}'RESET_TYPED'{$endif}];
+Procedure Int_Typed_Reset(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_RESET_TYPED'];
 Begin
   If InOutRes <> 0 then
    exit;
@@ -54,7 +54,7 @@ Begin
 End;
 
 
-Procedure Int_Typed_Rewrite(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias: {$ifdef FPCNAMES}'FPC_REWRITE_TYPED'{$else}'REWRITE_TYPED'{$endif}];
+Procedure Int_Typed_Rewrite(var f : TypedFile;Size : Longint);[Public,IOCheck, Alias:'FPC_REWRITE_TYPED'];
 Begin
   If InOutRes <> 0 then
    exit;
@@ -62,7 +62,7 @@ Begin
 End;
 
 
-Procedure Int_Typed_Write(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias : {$ifdef FPCNAMES}'FPC_TYPED_WRITE'{$else}'TYPED_WRITE'{$endif}];
+Procedure Int_Typed_Write(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias :'FPC_TYPED_WRITE'];
 Begin
   If InOutRes <> 0 then
    exit;
@@ -70,7 +70,7 @@ Begin
 End;
 
 
-Procedure Int_Typed_Read(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias : {$ifdef FPCNAMES}'FPC_TYPED_READ'{$else}'TYPED_READ'{$endif}];
+Procedure Int_Typed_Read(TypeSize : Longint;var f : TypedFile;var Buf);[IOCheck, Public, Alias :'FPC_TYPED_READ'];
 var
   Result : Longint;
 Begin
@@ -83,7 +83,10 @@ End;
 
 {
   $Log$
-  Revision 1.5  1998-09-14 10:48:26  peter
+  Revision 1.6  1998-12-16 00:22:27  peter
+    * more temp symbols removed
+
+  Revision 1.5  1998/09/14 10:48:26  peter
     * FPC_ names
     * Heap manager is now system independent