paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 12:11:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* renamed windows related units from win32 to win so it can contain ce and 64 bit stuff

Browse Source 
git-svn-id: trunk@213 -
This commit is contained in:
florian 2005-06-05 13:42:35 +00:00
parent 62121a9029
commit c97714de9f
7 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.gitattributes vendored
View File

@ -398,7 +398,7 @@ compiler/systems/i_palmos.pas svneol=native#text/plain
compiler/systems/i_sunos.pas svneol=native#text/plain
compiler/systems/i_watcom.pas svneol=native#text/plain
compiler/systems/i_wdosx.pas svneol=native#text/plain
compiler/systems/i_win32.pas svneol=native#text/plain
compiler/systems/i_win.pas svneol=native#text/plain
compiler/systems/mac_crea.txt svneol=native#text/plain
compiler/systems/t_amiga.pas svneol=native#text/plain
compiler/systems/t_atari.pas svneol=native#text/plain
@ -416,7 +416,7 @@ compiler/systems/t_palmos.pas svneol=native#text/plain
compiler/systems/t_sunos.pas svneol=native#text/plain
compiler/systems/t_watcom.pas svneol=native#text/plain
compiler/systems/t_wdosx.pas svneol=native#text/plain
compiler/systems/t_win32.pas svneol=native#text/plain
compiler/systems/t_win.pas svneol=native#text/plain
compiler/tgobj.pas svneol=native#text/plain
compiler/tokens.pas svneol=native#text/plain
compiler/utils/Makefile -text

2
compiler/compiler.pas
View File

@ -202,7 +202,7 @@ uses
,i_wdosx
{$endif wdosx}
{$ifdef win32}
,i_win32
,i_win
{$endif win32}
{ assembler readers }
{$ifdef i386}

4
compiler/i386/cputarg.pas
View File

@ -50,8 +50,8 @@ implementation
{$ifndef NOTARGETOS2}
,t_os2
{$endif}
{$ifndef NOTARGETWIN32}
,t_win32
{$ifndef NOTARGETWIN}
,t_win
{$endif}
{$ifndef NOTARGETNETWARE}
,t_nwm

2
compiler/systems/i_win32.pas → compiler/systems/i_win.pas
View File

@ -19,7 +19,7 @@
****************************************************************************
}
{ This unit implements support information structures for win32. }
unit i_win32;
unit i_win;
interface

2
compiler/systems/t_wdosx.pas
View File

@ -31,7 +31,7 @@ implementation
uses
cutils,
fmodule,globals,systems,
import,export,link,t_win32,i_wdosx;
import,export,link,t_win,i_wdosx;
type
timportlibwdosx=class(timportlibwin32)

4
compiler/systems/t_win32.pas → compiler/systems/t_win.pas
View File

@ -19,7 +19,7 @@
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
****************************************************************************
}
unit t_win32;
unit t_win;
{$i fpcdefs.inc}
@ -34,7 +34,7 @@ interface
{$ifdef GDB}
gdb,
{$endif}
import,export,link,cgobj,i_win32;
import,export,link,cgobj,i_win;
const

14
compiler/x86/cgx86.pas
View File

@ -142,9 +142,9 @@ unit cgx86;
S_NO,S_NO,S_NO,S_NO,S_T);
{$endif x86_64}
{$ifndef NOTARGETWIN32}
{$ifndef NOTARGETWIN}
winstackpagesize = 4096;
{$endif NOTARGETWIN32}
{$endif NOTARGETWIN}
implementation
@ -1644,7 +1644,7 @@ unit cgx86;
begin
case target_info.system of
{$ifndef NOTARGETWIN32}
{$ifndef NOTARGETWIN}
system_i386_win32,
{$endif}
system_i386_freebsd,
@ -1687,18 +1687,18 @@ unit cgx86;
procedure tcgx86.g_stackpointer_alloc(list : taasmoutput;localsize : longint);
{$ifdef i386}
{$ifndef NOTARGETWIN32}
{$ifndef NOTARGETWIN}
var
href : treference;
i : integer;
again : tasmlabel;
{$endif NOTARGETWIN32}
{$endif NOTARGETWIN}
{$endif i386}
begin
if localsize>0 then
begin
{$ifdef i386}
{$ifndef NOTARGETWIN32}
{$ifndef NOTARGETWIN}
{ windows guards only a few pages for stack growing, }
{ so we have to access every page first }
if (target_info.system=system_i386_win32) and
@ -1729,7 +1729,7 @@ unit cgx86;
end
end
else
{$endif NOTARGETWIN32}
{$endif NOTARGETWIN}
{$endif i386}
list.concat(Taicpu.Op_const_reg(A_SUB,tcgsize2opsize[OS_ADDR],localsize,NR_STACK_POINTER_REG));
end;