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

* name field of filedef corrected

Browse Source
This commit is contained in:
pierre 1998-09-08 10:23:44 +00:00
parent cbe7d4629c
commit 70b08b24f2
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symdef.inc
View File

@ -1078,11 +1078,11 @@
'MODE:'+typeglobalnumber('longint')+',32,32;'+ 'MODE:'+typeglobalnumber('longint')+',32,32;'+
'RECSIZE:'+typeglobalnumber('longint')+',64,32;'+ 'RECSIZE:'+typeglobalnumber('longint')+',64,32;'+
'_PRIVATE:ar'+typeglobalnumber('word')+';1;32;'+typeglobalnumber('byte') '_PRIVATE:ar'+typeglobalnumber('word')+';1;32;'+typeglobalnumber('byte')
+',92,256;'+ +',96,256;'+
'USERDATA:ar'+typeglobalnumber('word')+';1;16;'+typeglobalnumber('byte') 'USERDATA:ar'+typeglobalnumber('word')+';1;16;'+typeglobalnumber('byte')
+',348,128;'+ +',352,128;'+
'NAME:ar'+typeglobalnumber('word')+';0;255;'+typeglobalnumber('char') 'NAME:ar'+typeglobalnumber('word')+';0;255;'+typeglobalnumber('char')
+',476,2048;;'); +',480,2048;;');
{$EndIf} {$EndIf}
end; end;
@ -2899,7 +2899,10 @@
{ {
$Log$ $Log$
Revision 1.38 1998-09-07 23:10:23 florian Revision 1.39 1998-09-08 10:23:44 pierre
* name field of filedef corrected
Revision 1.38 1998/09/07 23:10:23 florian
* a lot of stuff fixed regarding rtti and publishing of properties, * a lot of stuff fixed regarding rtti and publishing of properties,
basics should now work basics should now work