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

* removed memavail

Browse Source
This commit is contained in:
peter 2004-11-22 17:52:19 +00:00
parent 295d18939a
commit 46d1fc9546
5 changed files with 75 additions and 132 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
utils/tply/lextable.pas
View File

@ -44,15 +44,6 @@ interface
uses LexBase; uses LexBase;
{$IFNDEF Win32}
var max_bytes : LongInt;
(* available memory *)
function n_bytes : LongInt;
(* memory actually used *)
{$ENDIF}
const const
(* Maximum table sizes: *) (* Maximum table sizes: *)
@ -206,13 +197,6 @@ implementation
uses LexMsgs; uses LexMsgs;
{$IFNDEF Win32}
function n_bytes : LongInt;
begin
n_bytes := max_bytes-memAvail
end(*n_bytes*);
{$ENDIF}
(* Hash table routines: *) (* Hash table routines: *)
function lookup(k : Integer) : String; function lookup(k : Integer) : String;
@ -466,10 +450,6 @@ begin
verbose := false; verbose := false;
optimize := false; optimize := false;
{$IFNDEF Win32}
max_bytes := memAvail;
{$ENDIF}
n_pos := 0; n_pos := 0;
n_states := 0; n_states := 0;
n_trans := 0; n_trans := 0;

6
utils/tply/plex.pas
View File

@ -732,12 +732,6 @@ begin
if warnings>0 then writeln(warnings, ' warnings.'); if warnings>0 then writeln(warnings, ' warnings.');
{$ifndef fpc}
{$IFNDEF Win32}
writeln( n_bytes, '/', max_bytes, ' bytes of memory used.');
{$ENDIF}
{$endif}
(* terminate: *) (* terminate: *)
if errors>0 then erase(yyout); if errors>0 then erase(yyout);

6
utils/tply/pyacc.pas
View File

@ -2512,12 +2512,6 @@ begin
if warnings>0 then writeln(warnings, ' warnings.'); if warnings>0 then writeln(warnings, ' warnings.');
{$ifndef fpc}
{$IFNDEF Win32}
writeln( n_bytes, '/', max_bytes, ' bytes of memory used.');
{$ENDIF}
{$endif}
(* terminate: *) (* terminate: *)
if errors>0 then if errors>0 then

6
utils/tply/pyacc.y
View File

@ -848,12 +848,6 @@ begin
if warnings>0 then writeln(warnings, ' warnings.'); if warnings>0 then writeln(warnings, ' warnings.');
{$ifndef fpc}
{$IFNDEF Win32}
writeln( n_bytes, '/', max_bytes, ' bytes of memory used.');
{$ENDIF}
{$endif}
(* terminate: *) (* terminate: *)
if errors>0 then if errors>0 then

19
utils/tply/yacctabl.pas
View File

@ -48,14 +48,6 @@ uses
YaccBase; YaccBase;
{$IFNDEF Win32}
var max_bytes : LongInt;
(* available memory *)
function n_bytes : LongInt;
(* memory actually used *)
{$ENDIF}
const const
(* Maximum table sizes: *) (* Maximum table sizes: *)
@ -431,13 +423,6 @@ implementation
uses YaccMsgs; uses YaccMsgs;
{$IFNDEF Win32}
function n_bytes : LongInt;
begin
n_bytes := max_bytes-memAvail
end(*n_bytes*);
{$ENDIF}
(* Symbol table routines: *) (* Symbol table routines: *)
function new_nt : Integer; function new_nt : Integer;
@ -929,10 +914,6 @@ begin
debug := false; debug := false;
startnt := 0; startnt := 0;
{$IFNDEF Win32}
max_bytes := memAvail;
{$ENDIF}
n_nts := 1; n_nts := 1;
n_lits := 257; n_lits := 257;
n_rules := 0; n_rules := 0;