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

- graphget/freememptr

Browse Source
This commit is contained in:
peter 1999-09-08 18:55:29 +00:00
parent 38a2727fb2
commit d39d35ff55
1 changed files with 4 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
rtl/go32v2/graph.pp
View File

@ -349,8 +349,6 @@ var { X/Y Verhaeltnis des Bildschirm }
GranShift : byte;
Granular : longint;
Granularity : longint;
graphgetmemptr,
graphfreememptr,
bankswitchptr :pointer;
isDPMI :Boolean;
SwitchCS,SwitchIP : word;
@ -411,27 +409,6 @@ begin
end;
end;
(* Unused, commented 20/11/98 PM
procedure getmem(var p : pointer;size : longint);
begin
asm
pushl 12(%ebp)
pushl 8(%ebp)
movl _GRAPHGETMEMPTR,%eax
call %eax
end;
end;
procedure freemem(var p : pointer;size : longint);
begin
asm
pushl 12(%ebp)
pushl 8(%ebp)
movl _GRAPHFREEMEMPTR,%eax
call %eax
end;
end; *)
{$I COLORS.PPI}
@ -996,8 +973,6 @@ begin
PrevExitProc:=ExitProc;
ExitProc:=@GraphExit;
bankswitchptr:=@switchbank;
GraphGetMemPtr:=@system.getmem;
GraphFreeMemPtr:=@system.freemem;
Getdefaultfont;
if not isDPMI then begin
wrbuffer:=pointer($D0000000);
@ -1015,7 +990,10 @@ end.
{
$Log$
Revision 1.5 1999-05-04 17:17:31 florian
Revision 1.6 1999-09-08 18:55:29 peter
- graphget/freememptr
Revision 1.5 1999/05/04 17:17:31 florian
* some explicit language removed
Revision 1.4 1999/04/08 12:23:00 peter