paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* dynamic arrays have size OS_ADDR

Browse Source
This commit is contained in:
peter 2003-03-20 17:51:45 +00:00
parent 4a0bda8041
commit 26f160a541
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cgbase.pas
View File

@ -573,7 +573,12 @@ implementation
if not is_special_array(def) then if not is_special_array(def) then
result := int_cgsize(def.size) result := int_cgsize(def.size)
else else
result := OS_NO; begin
if is_dynamic_array(def) then
result := OS_ADDR
else
result := OS_NO;
end;
end; end;
else else
begin begin
@ -646,7 +651,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.36 2003-01-08 18:43:56 daniel Revision 1.37 2003-03-20 17:51:45 peter
* dynamic arrays have size OS_ADDR
Revision 1.36 2003/01/08 18:43:56 daniel
* Tregister changed into a record * Tregister changed into a record
Revision 1.35 2003/01/01 21:04:48 peter Revision 1.35 2003/01/01 21:04:48 peter