mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-15 22:51:06 +02:00
* completed incomplete typed constant records
This commit is contained in:
Jonas Maebe
parent
57339cbf1c
commit
344fd00373
@ -903,9 +903,11 @@ interface
|
||||
asmbin : 'as';
|
||||
asmcmd : '-o $OBJ $ASM';
|
||||
supported_target : target_any;
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : false;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure : false;
|
||||
labelprefix : '.L';
|
||||
comment : '# ';
|
||||
secnames : ('',
|
||||
@ -921,9 +923,11 @@ interface
|
||||
asmbin : 'as';
|
||||
asmcmd : '-o $OBJ $ASM';
|
||||
supported_target : target_i386_os2;
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : false;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure : false;
|
||||
labelprefix : 'L';
|
||||
comment : '# ';
|
||||
secnames : ('',
|
||||
@ -939,9 +943,11 @@ interface
|
||||
asmbin : 'asw';
|
||||
asmcmd : '-o $OBJ $ASM';
|
||||
supported_target : target_i386_win32;
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : false;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure : false;
|
||||
labelprefix : '.L';
|
||||
comment : '# ';
|
||||
secnames : ('',
|
||||
@ -959,7 +965,10 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.8 2001-04-21 15:33:03 peter
|
||||
Revision 1.9 2001-05-06 17:13:23 jonas
|
||||
* completed incomplete typed constant records
|
||||
|
||||
Revision 1.8 2001/04/21 15:33:03 peter
|
||||
* stupid bug, finalization to initialization renaming
|
||||
|
||||
Revision 1.7 2001/04/21 12:09:00 peter
|
||||
|
||||
@ -759,6 +759,7 @@ ait_stab_function_name : ;
|
||||
asmbin : 'tasm';
|
||||
asmcmd : '/m2 /ml $ASM $OBJ';
|
||||
supported_target : target_any; { what should I write here ?? }
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : true;
|
||||
needar : true;
|
||||
@ -778,9 +779,11 @@ ait_stab_function_name : ;
|
||||
asmbin : 'masm';
|
||||
asmcmd : '/c $ASM /Fo$OBJ';
|
||||
supported_target : target_any; { what should I write here ?? }
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : true;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure : false;
|
||||
labelprefix : '@@';
|
||||
comment : '; ';
|
||||
secnames : ('',
|
||||
@ -795,7 +798,10 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.12 2001-04-21 15:33:03 peter
|
||||
Revision 1.13 2001-05-06 17:13:23 jonas
|
||||
* completed incomplete typed constant records
|
||||
|
||||
Revision 1.12 2001/04/21 15:33:03 peter
|
||||
* stupid bug, finalization to initialization renaming
|
||||
|
||||
Revision 1.11 2001/04/21 12:09:00 peter
|
||||
|
||||
@ -785,9 +785,11 @@ interface
|
||||
asmbin : 'nasm';
|
||||
asmcmd : '-f coff -o $OBJ $ASM';
|
||||
supported_target : target_i386_go32v2;
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : true;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure: false;
|
||||
labelprefix : '..@';
|
||||
comment : '; ';
|
||||
secnames : ('',
|
||||
@ -803,9 +805,11 @@ interface
|
||||
asmbin : 'nasm';
|
||||
asmcmd : '-f win32 -o $OBJ $ASM';
|
||||
supported_target : target_i386_win32;
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : true;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure: false;
|
||||
labelprefix : '..@';
|
||||
comment : '; ';
|
||||
secnames : ('',
|
||||
@ -821,9 +825,11 @@ interface
|
||||
asmbin : 'nasm';
|
||||
asmcmd : '-f obj -o $OBJ $ASM';
|
||||
supported_target : target_any; { what should I write here ?? }
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : true;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure: false;
|
||||
labelprefix : '..@';
|
||||
comment : '; ';
|
||||
secnames : ('',
|
||||
@ -839,9 +845,11 @@ interface
|
||||
asmbin : 'nasm';
|
||||
asmcmd : '-f elf -o $OBJ $ASM';
|
||||
supported_target : target_i386_linux;
|
||||
outputbinary: false;
|
||||
allowdirect : true;
|
||||
externals : true;
|
||||
needar : true;
|
||||
labelprefix_only_inside_procedure: false;
|
||||
labelprefix : '..@';
|
||||
comment : '; ';
|
||||
secnames : ('',
|
||||
@ -859,7 +867,10 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.10 2001-04-21 15:33:03 peter
|
||||
Revision 1.11 2001-05-06 17:13:23 jonas
|
||||
* completed incomplete typed constant records
|
||||
|
||||
Revision 1.10 2001/04/21 15:33:03 peter
|
||||
* stupid bug, finalization to initialization renaming
|
||||
|
||||
Revision 1.9 2001/04/21 12:09:00 peter
|
||||
|
||||
@ -1130,6 +1130,7 @@ implementation
|
||||
allowdirect : false;
|
||||
externals : true;
|
||||
needar : false;
|
||||
labelprefix_only_inside_procedure: false;
|
||||
labelprefix : '.L';
|
||||
comment : '';
|
||||
secnames : ('',
|
||||
@ -1150,6 +1151,7 @@ implementation
|
||||
allowdirect : false;
|
||||
externals : true;
|
||||
needar : false;
|
||||
labelprefix_only_inside_procedure: false;
|
||||
labelprefix : '.L';
|
||||
comment : '';
|
||||
secnames : ('',
|
||||
@ -1165,7 +1167,10 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.14 2001-05-04 19:50:58 peter
|
||||
Revision 1.15 2001-05-06 17:13:23 jonas
|
||||
* completed incomplete typed constant records
|
||||
|
||||
Revision 1.14 2001/05/04 19:50:58 peter
|
||||
* finally added the missing outputbinary field that was missing
|
||||
|
||||
Revision 1.13 2001/04/18 22:01:54 peter
|
||||
|
||||
@ -875,6 +875,7 @@ implementation
|
||||
allowdirect : false;
|
||||
externals : true;
|
||||
needar : false;
|
||||
labelprefix_only_inside_procedure: false;
|
||||
labelprefix : '.L';
|
||||
comment : '';
|
||||
secnames : ('',
|
||||
@ -889,7 +890,10 @@ initialization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.9 2001-05-04 19:50:58 peter
|
||||
Revision 1.10 2001-05-06 17:13:23 jonas
|
||||
* completed incomplete typed constant records
|
||||
|
||||
Revision 1.9 2001/05/04 19:50:58 peter
|
||||
* finally added the missing outputbinary field that was missing
|
||||
|
||||
Revision 1.8 2001/04/18 22:01:54 peter
|
||||
|
||||
@ -215,14 +215,14 @@ const
|
||||
MaxReadBytes = $fffe;
|
||||
invalidhandle = -1;
|
||||
{$ENDIF}
|
||||
{$IFDEF Netware}
|
||||
type
|
||||
FNameStr = String;
|
||||
THandle = Longint;
|
||||
const
|
||||
MaxReadBytes = $7fffffff;
|
||||
invalidhandle = -1;
|
||||
{$ENDIF}
|
||||
{$IFDEF Netware}
|
||||
type
|
||||
FNameStr = String;
|
||||
THandle = Longint;
|
||||
const
|
||||
MaxReadBytes = $7fffffff;
|
||||
invalidhandle = -1;
|
||||
{$ENDIF}
|
||||
|
||||
|
||||
{---------------------------------------------------------------------------}
|
||||
@ -709,31 +709,36 @@ CONST
|
||||
ObjType: 50;
|
||||
VmtLink: Ofs(TypeOf(TCollection)^);
|
||||
Load: @TCollection.Load;
|
||||
Store: @TCollection.Store);
|
||||
Store: @TCollection.Store;
|
||||
Next: Nil);
|
||||
|
||||
RStringCollection: TStreamRec = (
|
||||
ObjType: 51;
|
||||
VmtLink: Ofs(TypeOf(TStringCollection)^);
|
||||
Load: @TStringCollection.Load;
|
||||
Store: @TStringCollection.Store);
|
||||
Store: @TStringCollection.Store;
|
||||
Next: Nil);
|
||||
|
||||
RStrCollection: TStreamRec = (
|
||||
ObjType: 69;
|
||||
VmtLink: Ofs(TypeOf(TStrCollection)^);
|
||||
Load: @TStrCollection.Load;
|
||||
Store: @TStrCollection.Store);
|
||||
Store: @TStrCollection.Store;
|
||||
Next: Nil);
|
||||
|
||||
RStringList: TStreamRec = (
|
||||
ObjType: 52;
|
||||
VmtLink: Ofs(TypeOf(TStringList)^);
|
||||
Load: @TStringList.Load;
|
||||
Store: Nil);
|
||||
Store: Nil;
|
||||
Next: Nil);
|
||||
|
||||
RStrListMaker: TStreamRec = (
|
||||
ObjType: 52;
|
||||
VmtLink: Ofs(TypeOf(TStrListMaker)^);
|
||||
Load: Nil;
|
||||
Store: @TStrListMaker.Store);
|
||||
Store: @TStrListMaker.Store;
|
||||
Next: Nil);
|
||||
|
||||
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
|
||||
IMPLEMENTATION
|
||||
@ -2809,7 +2814,10 @@ END;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.4 2001-04-16 18:36:41 florian
|
||||
Revision 1.5 2001-05-06 17:13:22 jonas
|
||||
* completed incomplete typed constant records
|
||||
|
||||
Revision 1.4 2001/04/16 18:36:41 florian
|
||||
* updates from Armin commited
|
||||
|
||||
Revision 1.3 2000/11/13 13:40:04 marco
|
||||
@ -2817,5 +2825,5 @@ END.
|
||||
|
||||
Revision 1.2 2000/07/13 11:33:44 michael
|
||||
+ removed logs
|
||||
|
||||
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue
Block a user