|
@@ -309,7 +309,7 @@ unit temp_gen;
|
|
|
so we need to convert that space into
|
|
so we need to convert that space into
|
|
|
a tempfreeitem ! }
|
|
a tempfreeitem ! }
|
|
|
new(tl);
|
|
new(tl);
|
|
|
- tl^.pos:=lastoccupied;
|
|
|
|
|
|
|
+ tl^.pos:=maxtemp;
|
|
|
tl^.size:=lastoccupied-maxtemp;
|
|
tl^.size:=lastoccupied-maxtemp;
|
|
|
tl^.next:=tmpfreelist;
|
|
tl^.next:=tmpfreelist;
|
|
|
lastoccupied:=maxtemp;
|
|
lastoccupied:=maxtemp;
|
|
@@ -331,7 +331,7 @@ unit temp_gen;
|
|
|
end;
|
|
end;
|
|
|
gettempansioffset:=ofs;
|
|
gettempansioffset:=ofs;
|
|
|
end;
|
|
end;
|
|
|
-
|
|
|
|
|
|
|
+
|
|
|
procedure gettempansistringreference(var ref : treference);
|
|
procedure gettempansistringreference(var ref : treference);
|
|
|
|
|
|
|
|
begin
|
|
begin
|
|
@@ -635,7 +635,10 @@ begin
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.15 1999-04-09 13:05:45 pierre
|
|
|
|
|
|
|
+ Revision 1.16 1999-04-14 09:10:46 peter
|
|
|
|
|
+ * fixed tempansi which set wrong pos in free temp
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.15 1999/04/09 13:05:45 pierre
|
|
|
* Minenumsize=1 under TEST_ENUMSIZE cond because buggy
|
|
* Minenumsize=1 under TEST_ENUMSIZE cond because buggy
|
|
|
|
|
|
|
|
Revision 1.14 1999/04/09 09:55:20 peter
|
|
Revision 1.14 1999/04/09 09:55:20 peter
|
peter