paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-03 14:50:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* zero padded alignment was buggy

Browse Source
This commit is contained in:
pierre 1998-12-01 23:36:31 +00:00
parent 0505500441
commit 49e2d0ad2d
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/aasm.pas
View File

@ -161,8 +161,9 @@ unit aasm;
tai_align = object(tai)
aligntype: byte; { 1 = no align, 2 = word align, 4 = dword align }
op: byte; { value to fill with - optional }
use_op : boolean;
constructor init(b:byte);
constructor init_op(b: byte; use_op: byte);
constructor init_op(b: byte; _op: byte);
destructor done;virtual;
end;
@ -693,23 +694,25 @@ uses
inherited init;
typ:=ait_align;
if b in [1,2,4,8,16] then
aligntype := b
aligntype := b
else
aligntype := 1;
aligntype := 1;
op:=0;
use_op:=false;
end;
constructor tai_align.init_op(b: byte; use_op: byte);
constructor tai_align.init_op(b: byte; _op: byte);
begin
inherited init;
typ:=ait_align;
if b in [1,2,4,8,16] then
aligntype := b
aligntype := b
else
aligntype := 1;
op:=use_op;
aligntype := 1;
op:=_op;
use_op:=true;
end;
destructor tai_align.done;
@ -913,7 +916,10 @@ uses
end.
{
$Log$
Revision 1.25 1998-11-30 09:42:52 pierre
Revision 1.26 1998-12-01 23:36:31 pierre
* zero padded alignment was buggy
Revision 1.25 1998/11/30 09:42:52 pierre
* some range check bugs fixed (still not working !)
+ added DLL writing support for win32 (also accepts variables)
+ TempAnsi for code that could be used for Temporary ansi strings