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

* reduce amount of asmfiles generated

Browse Source 
* no stabs are written in writefilelineinfo when debuginfo is off
This commit is contained in:
peter 1998-08-26 10:06:34 +00:00
parent cf8640b638
commit c316229a7f
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/assemble.pas
View File

@ -45,6 +45,7 @@ type
as_bin : string; as_bin : string;
{outfile} {outfile}
AsmSize, AsmSize,
AsmStartSize,
outcnt : longint; outcnt : longint;
outbuf : array[0..AsmOutSize-1] of char; outbuf : array[0..AsmOutSize-1] of char;
outfile : file; outfile : file;
@ -56,6 +57,7 @@ type
Procedure RemoveAsm; Procedure RemoveAsm;
procedure NextSmartName; procedure NextSmartName;
Procedure AsmFlush; Procedure AsmFlush;
Procedure AsmClear;
Procedure AsmWrite(const s:string); Procedure AsmWrite(const s:string);
Procedure AsmWritePChar(p:pchar); Procedure AsmWritePChar(p:pchar);
Procedure AsmWriteLn(const s:string); Procedure AsmWriteLn(const s:string);
@ -228,6 +230,12 @@ begin
end; end;
Procedure TAsmList.AsmClear;
begin
outcnt:=0;
end;
Procedure TAsmList.AsmWrite(const s:string); Procedure TAsmList.AsmWrite(const s:string);
begin begin
if OutCnt+length(s)>=AsmOutSize then if OutCnt+length(s)>=AsmOutSize then
@ -303,6 +311,7 @@ begin
end; end;
outcnt:=0; outcnt:=0;
AsmSize:=0; AsmSize:=0;
AsmStartSize:=0;
end; end;
@ -437,7 +446,11 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.18 1998-08-21 14:08:39 pierre Revision 1.19 1998-08-26 10:06:34 peter
* reduce amount of asmfiles generated
* no stabs are written in writefilelineinfo when debuginfo is off
Revision 1.18 1998/08/21 14:08:39 pierre
+ TEST_FUNCRET now default (old code removed) + TEST_FUNCRET now default (old code removed)
works also for m68k (at least compiles) works also for m68k (at least compiles)