paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 18:59:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* more temp symbols removed

Browse Source
This commit is contained in:
peter 1998-12-16 00:22:24 +00:00
parent 101b1902c5
commit efaf241dba
3 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/heap.inc
View File

@ -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

9
rtl/inc/objects.pp
View File

@ -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)

13
rtl/inc/typefile.inc
View File

@ -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