* removed some Hints

* small speed optimization for AsmLn
This commit is contained in:
peter 1998-04-10 14:41:43 +00:00
parent 9c5d07fbba
commit b7ff96bb48
3 changed files with 25 additions and 8 deletions

View File

@ -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

View File

@ -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

View File

@ -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