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

* target_os.use_bound_instruction boolean

Browse Source
This commit is contained in:
peter 1998-12-03 10:17:32 +00:00
parent 242244016d
commit 37c2997e50
1 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/systems.pas
View File

@ -123,6 +123,7 @@ unit systems;
stackalignment : {longint this is a little overkill no ?? }byte; stackalignment : {longint this is a little overkill no ?? }byte;
size_of_pointer : byte; size_of_pointer : byte;
size_of_longint : byte; size_of_longint : byte;
use_bound_instruction : boolean;
use_function_relative_addresses : boolean; use_function_relative_addresses : boolean;
end; end;
@ -139,12 +140,10 @@ unit systems;
tlinkinfo = packed record tlinkinfo = packed record
id : tlink; id : tlink;
linkbin : string[8]; linkbin : string[8];
{* Changes made by Ozerski 23.10.1998}
linkcmd : string[127]; linkcmd : string[127];
binders:word; binders : word;
bindbin:array[1..2]of string[8]; bindbin : array[1..2]of string[8];
bindcmd:array[1..2]of string[127]; bindcmd : array[1..2]of string[127];
{* End changes}
stripopt : string[2]; stripopt : string[2];
libpathprefix : string[13]; libpathprefix : string[13];
libpathsuffix : string[2]; libpathsuffix : string[2];
@ -229,6 +228,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : true use_function_relative_addresses : true
), ),
( (
@ -247,6 +247,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : true;
use_function_relative_addresses : true use_function_relative_addresses : true
), ),
( (
@ -265,6 +266,7 @@ implementation
stackalignment : 4; stackalignment : 4;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : true use_function_relative_addresses : true
), ),
( (
@ -283,6 +285,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : false use_function_relative_addresses : false
), ),
( (
@ -301,6 +304,7 @@ implementation
stackalignment : 4; stackalignment : 4;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : true;
use_function_relative_addresses : true use_function_relative_addresses : true
), ),
( (
@ -319,6 +323,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : false use_function_relative_addresses : false
), ),
( (
@ -337,6 +342,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : false use_function_relative_addresses : false
), ),
( (
@ -355,6 +361,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : false use_function_relative_addresses : false
), ),
( (
@ -373,6 +380,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : true use_function_relative_addresses : true
), ),
( (
@ -391,6 +399,7 @@ implementation
stackalignment : 2; stackalignment : 2;
size_of_pointer : 4; size_of_pointer : 4;
size_of_longint : 4; size_of_longint : 4;
use_bound_instruction : false;
use_function_relative_addresses : false use_function_relative_addresses : false
) )
); );
@ -1204,7 +1213,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.51 1998-11-30 09:43:23 pierre Revision 1.52 1998-12-03 10:17:32 peter
* target_os.use_bound_instruction boolean
Revision 1.51 1998/11/30 09:43:23 pierre
* some range check bugs fixed (still not working !) * some range check bugs fixed (still not working !)
+ added DLL writing support for win32 (also accepts variables) + added DLL writing support for win32 (also accepts variables)
+ TempAnsi for code that could be used for Temporary ansi strings + TempAnsi for code that could be used for Temporary ansi strings