mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 00:47:52 +02:00
* removed some Hints
* small speed optimization for AsmLn
This commit is contained in:
parent
9c5d07fbba
commit
b7ff96bb48
@ -130,7 +130,7 @@ end;
|
||||
Procedure TAsmList.AsmWriteLn(const s:string);
|
||||
begin
|
||||
AsmWrite(s);
|
||||
AsmWrite(target_info.newline);
|
||||
AsmLn;
|
||||
end;
|
||||
|
||||
|
||||
@ -157,7 +157,15 @@ end;
|
||||
|
||||
Procedure TAsmList.AsmLn;
|
||||
begin
|
||||
AsmWrite(target_info.newline);
|
||||
if OutCnt>=AsmOutSize-2 then
|
||||
AsmFlush;
|
||||
OutBuf[OutCnt]:=target_info.newline[1];
|
||||
inc(OutCnt);
|
||||
if length(target_info.newline)>1 then
|
||||
begin
|
||||
OutBuf[OutCnt]:=target_info.newline[2];
|
||||
inc(OutCnt);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
||||
@ -410,7 +418,11 @@ end;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.2 1998-04-08 11:34:18 peter
|
||||
Revision 1.3 1998-04-10 14:41:43 peter
|
||||
* removed some Hints
|
||||
* small speed optimization for AsmLn
|
||||
|
||||
Revision 1.2 1998/04/08 11:34:18 peter
|
||||
* nasm works (linux only tested)
|
||||
|
||||
Revision 1.1.1.1 1998/03/25 11:18:16 root
|
||||
|
@ -211,8 +211,6 @@ unit parser;
|
||||
|
||||
var
|
||||
a : PAsmFile;
|
||||
g : file;
|
||||
ftime : longint;
|
||||
label
|
||||
done;
|
||||
|
||||
@ -532,7 +530,11 @@ done:
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.4 1998-04-08 16:58:03 pierre
|
||||
Revision 1.5 1998-04-10 14:41:43 peter
|
||||
* removed some Hints
|
||||
* small speed optimization for AsmLn
|
||||
|
||||
Revision 1.4 1998/04/08 16:58:03 pierre
|
||||
* several bugfixes
|
||||
ADD ADC and AND are also sign extended
|
||||
nasm output OK (program still crashes at end
|
||||
|
@ -196,7 +196,6 @@ unit pmodules;
|
||||
pu : pused_unit;
|
||||
a : pasmfile;
|
||||
hs : pstring;
|
||||
i : longint;
|
||||
begin
|
||||
old_current_module:=current_module;
|
||||
{ be sure not to mix lines from different files }
|
||||
@ -935,7 +934,11 @@ unit pmodules;
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 1998-04-03 09:51:00 daniel
|
||||
Revision 1.4 1998-04-10 14:41:43 peter
|
||||
* removed some Hints
|
||||
* small speed optimization for AsmLn
|
||||
|
||||
Revision 1.3 1998/04/03 09:51:00 daniel
|
||||
* Fixed heap allocation for OS/2.
|
||||
|
||||
Revision 1.2 1998/03/30 15:53:01 florian
|
||||
|
Loading…
Reference in New Issue
Block a user