paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 13:49:30 +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

10
compiler/cgbase.pas
View File

@ -572,9 +572,14 @@ implementation
begin begin
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
begin
if is_dynamic_array(def) then
result := OS_ADDR
else else
result := OS_NO; result := OS_NO;
end; end;
end;
else else
begin begin
{ undefined size } { undefined size }
@ -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