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

* synchronized with trunk

Browse Source 
git-svn-id: branches/wasm@48433 -
This commit is contained in:
nickysn 2021-01-26 22:52:18 +00:00
commit 95e0c7ab6e
24 changed files with 98 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8324,6 +8324,7 @@ packages/pasjpeg/examples/cderror.pas svneol=native#text/plain
packages/pasjpeg/examples/cdjpeg.pas svneol=native#text/plain packages/pasjpeg/examples/cdjpeg.pas svneol=native#text/plain
packages/pasjpeg/examples/cjpeg.pas svneol=native#text/plain packages/pasjpeg/examples/cjpeg.pas svneol=native#text/plain
packages/pasjpeg/examples/cjpeg.res svneol=native#text/plain packages/pasjpeg/examples/cjpeg.res svneol=native#text/plain
packages/pasjpeg/examples/demo.lpi svneol=native#text/plain
packages/pasjpeg/examples/demo.pas svneol=native#text/plain packages/pasjpeg/examples/demo.pas svneol=native#text/plain
packages/pasjpeg/examples/demo.res svneol=native#text/plain packages/pasjpeg/examples/demo.res svneol=native#text/plain
packages/pasjpeg/examples/djpeg.pas svneol=native#text/plain packages/pasjpeg/examples/djpeg.pas svneol=native#text/plain

4
compiler/msg/errorct.msg
View File

@ -1,6 +1,6 @@
# #
# This file is part of the Free Pascal Compiler # This file is part of the Free Pascal Compiler
# Copyright (c) 1993-2020 by the Free Pascal Development team # Copyright (c) 1993-2021 by the Free Pascal Development team
# #
# Catalan Language File for Free Pascal # Catalan Language File for Free Pascal
# #
@ -2103,7 +2103,7 @@ option_code_page_not_available=11039_E_La p
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler versió $FPCFULLVERSION [$FPCDATE] per $FPCCPU Free Pascal Compiler versió $FPCFULLVERSION [$FPCDATE] per $FPCCPU
Copyright (c) 1993-2020 per Florian Klaempfl and others Copyright (c) 1993-2021 per Florian Klaempfl and others
] ]
# #

4
compiler/msg/errord.msg
View File

@ -6,7 +6,7 @@
# Based on errore.msg of SVN revision 45316 # Based on errore.msg of SVN revision 45316
# #
# This file is part of the Free Pascal Compiler # This file is part of the Free Pascal Compiler
# Copyright (c) 1998-2020 by the Free Pascal Development team # Copyright (c) 1998-2021 by the Free Pascal Development team
# #
# See the file COPYING.v2, included in this distribution, # See the file COPYING.v2, included in this distribution,
# for details about the copyright. # for details about the copyright.
@ -3784,7 +3784,7 @@ package_u_ppl_filename=13029_U_PPL Dateiname $1
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler Version $FPCFULLVERSION [$FPCDATE] f<>r $FPCTARGET Free Pascal Compiler Version $FPCFULLVERSION [$FPCDATE] f<>r $FPCTARGET
Copyright (c) 1993-2020 Florian Kl„mpfl und andere Copyright (c) 1993-2021 Florian Kl„mpfl und andere
] ]
# #

2
compiler/msg/errorda.msg
View File

@ -3535,7 +3535,7 @@ wpo_cant_create_feedback_file=12019_E_Cannot create specified whole program opti
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] til $FPCTARGET Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] til $FPCTARGET
Copyright (c) 1993-2020 Florian Klaempfl and others Copyright (c) 1993-2021 Florian Klaempfl and others
] ]
# #

4
compiler/msg/errordu.msg
View File

@ -6,7 +6,7 @@
# Based on errore.msg of SVN revision 45316 # Based on errore.msg of SVN revision 45316
# #
# This file is part of the Free Pascal Compiler # This file is part of the Free Pascal Compiler
# Copyright (c) 1998-2020 by the Free Pascal Development team # Copyright (c) 1998-2021 by the Free Pascal Development team
# #
# See the file COPYING.v2, included in this distribution, # See the file COPYING.v2, included in this distribution,
# for details about the copyright. # for details about the copyright.
@ -3784,7 +3784,7 @@ package_u_ppl_filename=13029_U_PPL Dateiname $1
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler Version $FPCFULLVERSION [$FPCDATE] für $FPCTARGET Free Pascal Compiler Version $FPCFULLVERSION [$FPCDATE] für $FPCTARGET
Copyright (c) 1993-2020 Florian Klämpfl und andere Copyright (c) 1993-2021 Florian Klämpfl und andere
] ]
# #

2
compiler/msg/errore.msg
View File

@ -3756,7 +3756,7 @@ package_u_ppl_filename=13029_U_PPL filename $1
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errores.msg
View File

@ -3477,7 +3477,7 @@ wpo_cant_create_feedback_file=12019_E_Cannot create specified whole program opti
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorf.msg
View File

@ -1715,7 +1715,7 @@ option_asm_forced=11022_W_"$1" assembler use forced
# #
option_logo=11023_[ option_logo=11023_[
Compilateur Free Pascal version $FPCFULLVERSION [$FPCDATE] pour $FPCTARGET Compilateur Free Pascal version $FPCFULLVERSION [$FPCDATE] pour $FPCTARGET
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorfi.msg
View File

@ -3499,7 +3499,7 @@ wpo_cant_create_feedback_file=12019_E_Cannot create specified whole program opti
# Logo (option -l) # Logo (option -l)
# #
option_logo=11023_[ Compilateur Free Pascal version $FPCFULLVERSION [$FPCDATE] for $FPCCPU option_logo=11023_[ Compilateur Free Pascal version $FPCFULLVERSION [$FPCDATE] for $FPCCPU
Copyright (c) 1993-2020, Florian Klaempfl and others] Copyright (c) 1993-2021, Florian Klaempfl and others]
# #
# Info (option -i) # Info (option -i)
# #

2
compiler/msg/errorhe.msg
View File

@ -2407,7 +2407,7 @@ option_confict_asm_debug=11041_W_
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorheu.msg
View File

@ -3496,7 +3496,7 @@ wpo_cant_create_feedback_file=12019_E_Cannot create specified whole program opti
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorid.msg
View File

@ -3504,7 +3504,7 @@ wpo_cant_create_feedback_file=12019_E_Cannot create specified whole program opti
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler versi $FPCFULLVERSION [$FPCDATE] untuk $FPCCPU Free Pascal Compiler versi $FPCFULLVERSION [$FPCDATE] untuk $FPCCPU
Hak Cipta (c) 1993-2020 oleh Florian Klaempfl and others Hak Cipta (c) 1993-2021 oleh Florian Klaempfl and others
] ]
# #

2
compiler/msg/erroriu.msg
View File

@ -2693,7 +2693,7 @@ wpo_cant_create_feedback_file=12019_E_Impossibile creare il file di feedback "$1
# #
option_logo=11023_[ option_logo=11023_[
Compilatore Free Pascal, versione $FPCFULLVERSION [$FPCDATE] per $FPCCPU Compilatore Free Pascal, versione $FPCFULLVERSION [$FPCDATE] per $FPCCPU
Copyright (c) 1993-2020 di Florian Klaempfl and others Copyright (c) 1993-2021 di Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorn.msg
View File

@ -3485,7 +3485,7 @@ wpo_cant_create_feedback_file=12019_E_Cannot create specified whole program opti
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler versie $FPCFULLVERSION [$FPCDATE] voor $FPCTARGET Free Pascal Compiler versie $FPCFULLVERSION [$FPCDATE] voor $FPCTARGET
Copyright (c) 1993-2020 door Florian Klaempfl en anderen Copyright (c) 1993-2021 door Florian Klaempfl en anderen
] ]
# #
# Info (option -i) # Info (option -i)

2
compiler/msg/errorpl.msg
View File

@ -2119,7 +2119,7 @@ option_code_page_not_available=11039_E_Nieznana strona kodowa
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler wersja $FPCFULLVERSION [$FPCDATE] dla $FPCCPU Free Pascal Compiler wersja $FPCFULLVERSION [$FPCDATE] dla $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorpli.msg
View File

@ -2119,7 +2119,7 @@ option_code_page_not_available=11039_E_Nieznana strona kodowa
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler wersja $FPCFULLVERSION [$FPCDATE] dla $FPCCPU Free Pascal Compiler wersja $FPCFULLVERSION [$FPCDATE] dla $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorpt.msg
View File

@ -3086,7 +3086,7 @@ wpo_cant_create_feedback_file=12019_E_Imposs
# #
option_logo=11023_[ option_logo=11023_[
Compilador Free Pascal versÆo $FPCFULLVERSION [$FPCDATE] para $FPCCPU Compilador Free Pascal versÆo $FPCFULLVERSION [$FPCDATE] para $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorptu.msg
View File

@ -3514,7 +3514,7 @@ wpo_cant_create_feedback_file=12019_E_Impossível criar arquivo retorno otimiza
# #
option_logo=11023_[ option_logo=11023_[
Compilador Free Pascal versão $FPCFULLVERSION [$FPCDATE] para $FPCCPU Compilador Free Pascal versão $FPCFULLVERSION [$FPCDATE] para $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorr.msg
View File

@ -2506,7 +2506,7 @@ wpo_cant_create_feedback_file=12019_E_
# #
option_logo=11023_[ option_logo=11023_[
Š®¬¯¨«ïâ®à Free Pascal ¢¥àᨨ $FPCFULLVERSION [$FPCDATE] ¤«ï $FPCCPU Š®¬¯¨«ïâ®à Free Pascal ¢¥àᨨ $FPCFULLVERSION [$FPCDATE] ¤«ï $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorru.msg
View File

@ -3387,7 +3387,7 @@ wpo_cant_create_feedback_file=12019_E_Невозможно создать фай
# #
option_logo=11023_[ option_logo=11023_[
Компилятор Free Pascal версии $FPCFULLVERSION [$FPCDATE] для $FPCCPU Компилятор Free Pascal версии $FPCFULLVERSION [$FPCDATE] для $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msg/errorues.msg
View File

@ -3471,7 +3471,7 @@ wpo_cant_create_feedback_file=12019_E_Cannot create specified whole program opti
# #
option_logo=11023_[ option_logo=11023_[
Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU Free Pascal Compiler version $FPCFULLVERSION [$FPCDATE] for $FPCCPU
Copyright (c) 1993-2020 by Florian Klaempfl and others Copyright (c) 1993-2021 by Florian Klaempfl and others
] ]
# #

2
compiler/msgtxt.inc
View File

@ -1394,7 +1394,7 @@ const msgtxt : array[0..000362,1..240] of char=(
'13029_U_PPL filename $1'#000+ '13029_U_PPL filename $1'#000+
'11023_Free Pascal Compiler',' version $FPCFULLVERSION [$FPCDATE] for $F'+ '11023_Free Pascal Compiler',' version $FPCFULLVERSION [$FPCDATE] for $F'+
'PCCPU'#010+ 'PCCPU'#010+
'Copyright (c) 1993-2020 by Florian Klaempfl and others'#000+ 'Copyright (c) 1993-2021 by Florian Klaempfl and others'#000+
'11024_Free Pascal Compiler version $FPCVERSION'#010+ '11024_Free Pascal Compiler version $FPCVERSION'#010+
#010+ #010+
'Compiler date : $FPCDATE'#010+ 'Compiler date : $FPCDATE'#010+

53
packages/pasjpeg/examples/demo.lpi Normal file
View File

@ -0,0 +1,53 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="12"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
<MainUnitHasScaledStatement Value="False"/>
<UseDefaultCompilerOptions Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="demo"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
</RunParams>
<Units>
<Unit>
<Filename Value="demo.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="Demo"/>
</Unit>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="demo"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="../src"/>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Debugging>
<Exceptions>
<Item>
<Name Value="ECompilerAbort"/>
</Item>
</Exceptions>
</Debugging>
</CONFIG>

19
rtl/i386/cpu.pp
View File

@ -74,13 +74,24 @@ unit cpu;
if _RTMSupport then if _RTMSupport then
begin begin
asm asm
{$ifdef USE_REAL_INSTRUCTIONS}
.Lretry: .Lretry:
xbegin .Lretry xbegin .Lretry
{$else}
{ 3d: c7 f8 fa ff ff ff xbegin }
.byte 0xc7,0xf8, 0xfa, 0xff, 0xff, 0xff
{$endif}
end; end;
Result:=Target; Result:=Target;
if (Result.Lo=Comperand.Lo) and (Result.Hi=Comperand.Hi) then if (Result.Lo=Comperand.Lo) and (Result.Hi=Comperand.Hi) then
Target:=NewValue; Target:=NewValue;
asm asm
{$ifdef USE_REAL_INSTRUCTIONS}
xend
{$else}
{ 8a: 0f 01 d5 xend }
.byte 0x0f, 0x01, 0xd5
{$endif}
xend xend
end; end;
end end
@ -119,7 +130,11 @@ unit cpu;
function cr0 : longint;assembler; function cr0 : longint;assembler;
asm asm
{$ifdef USE_REAL_INSTRUCTIONS}
mov eax,cr0
{$else}
DB 0Fh,20h,0C0h DB 0Fh,20h,0C0h
{$endif}
{ mov eax,cr0 { mov eax,cr0
special registers are not allowed in the assembler special registers are not allowed in the assembler
parsers } parsers }
@ -138,8 +153,12 @@ unit cpu;
function XGETBV(i : dword) : int64;assembler; function XGETBV(i : dword) : int64;assembler;
asm asm
movl %eax,%ecx movl %eax,%ecx
{$ifdef USE_REAL_INSTRUCTIONS}
xgetbv
{$else}
// older FPCs don't know the xgetbv opcode // older FPCs don't know the xgetbv opcode
.byte 0x0f,0x01,0xd0 .byte 0x0f,0x01,0xd0
{$endif}
end; end;