|
@@ -816,8 +816,8 @@ uses
|
|
|
constructor tasmsymbol.init(const s:string;_typ:TAsmsymtype);
|
|
constructor tasmsymbol.init(const s:string;_typ:TAsmsymtype);
|
|
|
begin;
|
|
begin;
|
|
|
inherited initname(s);
|
|
inherited initname(s);
|
|
|
- reset;
|
|
|
|
|
typ:=_typ;
|
|
typ:=_typ;
|
|
|
|
|
+ reset;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
procedure tasmsymbol.GenerateAltSymbol;
|
|
procedure tasmsymbol.GenerateAltSymbol;
|
|
@@ -1044,7 +1044,10 @@ uses
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.73 2000-01-19 22:53:57 florian
|
|
|
|
|
|
|
+ Revision 1.74 2000-01-23 16:31:38 peter
|
|
|
|
|
+ * fixed uninited asmsymbol.typ var
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.73 2000/01/19 22:53:57 florian
|
|
|
* empty records/objects would generate static data of size 0 which is optimized away, tai_datablock
|
|
* empty records/objects would generate static data of size 0 which is optimized away, tai_datablock
|
|
|
checks now the size and sets it to a value > 0
|
|
checks now the size and sets it to a value > 0
|
|
|
|
|
|
peter