paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mark and release are not implemented in FPC

Browse Source
This commit is contained in:
carl 2002-05-02 19:58:42 +00:00
parent 7def99e125
commit 7a7e6eebac
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
docs/ref.tex
View File

@ -6130,15 +6130,14 @@ None.
Procedure Mark (Var P : Pointer); Procedure Mark (Var P : Pointer);
\Description \Description
\var{Mark} copies the current heap-pointer to \var{P}. This routine is here for compatibility with Borland Pascal, but
it is not implemented and currently does nothing.
\Errors \Errors
None. None.
\SeeAlso \SeeAlso
\seep{Getmem}, \seep{Freemem}, \seep{New}, \seep{Dispose}, \seef{Maxavail} \seep{Getmem}, \seep{Freemem}, \seep{New}, \seep{Dispose}, \seef{Maxavail}
\end{procedure} \end{procedure}
\FPCexample{ex39}
\begin{function}{Maxavail} \begin{function}{Maxavail}
\Declaration \Declaration
Function Maxavail : Longint; Function Maxavail : Longint;
@ -6500,16 +6499,15 @@ None.
Procedure Release (Var P : pointer); Procedure Release (Var P : pointer);
\Description \Description
\var{Release} sets the top of the Heap to the location pointed to by This routine is here for compatibility with Borland Pascal, but
\var{P}. All memory at a location higher than \var{P} is marked empty. it is not implemented and currently does nothing.
\Errors \Errors
A run-time error will be generated if \var{P} points to memory outside the None.
heap.
\SeeAlso \SeeAlso
\seep{Mark}, \seef{Memavail}, \seef{Maxavail}, \seep{Getmem}, \seep{Freemem} \seep{Mark}, \seef{Memavail}, \seef{Maxavail}, \seep{Getmem}, \seep{Freemem}
\seep{New}, \seep{Dispose} \seep{New}, \seep{Dispose}
\end{procedure} \end{procedure}
For an example, see \seep{Mark}.
\begin{procedure}{Rename} \begin{procedure}{Rename}
\Declaration \Declaration
Procedure Rename (Var F : Any Filetype; Const S : String); Procedure Rename (Var F : Any Filetype; Const S : String);