paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 21:09:32 +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;
{outfile}
AsmSize,
AsmStartSize,
outcnt : longint;
outbuf : array[0..AsmOutSize-1] of char;
outfile : file;
@ -56,6 +57,7 @@ type
Procedure RemoveAsm;
procedure NextSmartName;
Procedure AsmFlush;
Procedure AsmClear;
Procedure AsmWrite(const s:string);
Procedure AsmWritePChar(p:pchar);
Procedure AsmWriteLn(const s:string);
@ -228,6 +230,12 @@ begin
end;
Procedure TAsmList.AsmClear;
begin
outcnt:=0;
end;
Procedure TAsmList.AsmWrite(const s:string);
begin
if OutCnt+length(s)>=AsmOutSize then
@ -303,6 +311,7 @@ begin
end;
outcnt:=0;
AsmSize:=0;
AsmStartSize:=0;
end;
@ -437,7 +446,11 @@ end;
end.
{
$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)
works also for m68k (at least compiles)