Free Pascal和Turbo Pascal 的区别

本文部分是我自己翻译的Freepascal官网的文件,部分参考www.noi.cn的文件

虽然Free Pascal尽量设计得和Turbo Pascal接近,但是由于以下的两个原因,两者之间还是有一些区别的

最主要的:
1. Free Pascal是一个32位的编译器,而Turbo Pascal只是16位编译器;
2. Free Pascal是一个跨平台的编译器,而Turbo Pascal只在windows上使用。
如果你的代码是遵守ANSI Pascal的,那么代码从Turbo Pascal移植到Free Pascal是没有问题的。

下面是在Turbo Pascal上可以使用,但是在Free Pascal就不能使用的一些语言特性:
1. 函数和过程在使用时,参数的类型必须和定义时完全一致。原因是在Free Pascal中添加了函数重载功能。
2. PROTECTED,PUBLIC,PUBLISHED,TRY,FINALLY,EXCEPT,RAISE成为了关键字,因此不能作为函数和过程的名字。
3. FAR,NEAR不再是关键字了。原因是Free Pascal是32位系统,不再需要这些关键字。
4. 布尔表达式不一定要全部进行计算。只要最终结果已经能够确定,就不再计算其它还没有计算的部分了。比如布尔表达式exp1 AND exp2 AND exp3,如果已知exp1的结果是false,那么怎么表达式的结果肯定是false,exp2和exp3就不用进行计算了。
5. 在Free Pascal中,集合中的元素都是4个字节长的。
6. 表达式执行的顺序是不确定的。比如对于表达式a:=g(2)+f(3); 不保证g(2)一定在f(3)之前执行。
7. 如果用Rewrite打开文件,那么文件就只能被写入了。如果需要读取这个文件,要对文件执行Reset。
8. Free Pascal在程序结束之前一定要关闭输出文件,否则输出文件可能不能被正确的写入。
9. Free Pascal理论上可以使用4GB的内存,因此实际上几乎可以使用系统中的所有剩余内存(除非赛题中有内存限制)。这是Free Pascal由于32位的编译器。但是对于Turbo Pascal来说,由于是16位的编译器,因此不能定义大小超过64KB的数据类型和变量,并且在DOS实模式下可以使用的内存总数只有640KB。

下面是Free Pascal相对于Turbo Pascal扩充的一些功能:

1. 函数可以返回复杂的类型,比如记录和数组。
2. 在函数中,函数的返回值可以作为一个变量来处理。比如:
function a : longint;
begin
a:=12;
while a>4 do
begin
{…}
end;
end;
这个例子在Turbo Pascal中,a>4会被认为是函数的递归调用,但是在Free Pascal中会认为a只是一个变量。如果想在Free Pascal中实现递归调用,就要写成下面的形式:
function a : longint;
begin
a:=12;
{ this is the recursive call }
if a()>4 then
begin
{…}
end;
end;
3. exit可以接受一个参数作为函数的返回值。比如:
function a : longint;
begin
a:=12;
if a>4 then
begin
exit(a*67); {函数的返回值就是a*67 }
end;
end;
4. Free Pascal支持函数重载。可以用相同的名字定义不同的函数,只要这些函数的参数不同,就是不同的函数。比如:
procedure DoSomething (a : longint);
begin
{…}
end;

procedure DoSomething (a : real);
begin
{…}
end;
可以使用不同的参数类型longint或者real来调用不同的DoSomething过程。
由于这个功能,函数的提前声明必须有完整的参数声明:
procedure x (v : longint); forward;
{…}

procedure x;{ 这里定义的过程x重载了前面声明的过程x。因此这里的两个x是不同的}
begin
{…}
end;
5. Free Pascal容许运算符重载。比如,可以自己为矩阵运算定义一个“+”运算。
6. Free Pascal在windows 95及其以上的windows版本上支持长文件名。对于文件名,由于windows系统对大小写不敏感,因此在程序中,文件名的大小写是无关的。但是对于其它大小写敏感的系统,比如linux,程序中用到的文件名必须和系统中的文件名完全一致。但是由于信息学竞赛的评测系统一般是linux,因此要求程序中的文件名和系统中的文件名一样。

汇编程序:
1。默认的汇编程序使用另一种语法,但是你也能打开INTEL风格汇编程序进行阅(也就是TP7所使用的,不过对于我们似乎没有用),在命令行上加上选项-Rintel,或者在源程序中加入编译选项{asmmode intel} 。
2。32位存储器The 32 bit memory model requires a complete recoding of your assembler blocks.

运行库:
1。使用接口队列,在你的使用从句加入一个PORTS unit(只能在Dos/Go32v2 and Linux下)。
2。在TP7下可以使用MEM[seg:ofs](像MemW和MemL)读实模式内存,但是FP中只能在Go32v2中使用,这个方法也是原来竞赛时使用卡时的。
3。OFS()将返回一个longint取代word的类型数
4。OVERLAY UNIT(覆盖单元)是不能使用的
5。TP中还有不可利用的的单元版权问题

预处理程序及语法:
1。如果你在命令行下使用-So 命令开关或者使用{mode TP}在你的源程序中,编译器会进入TP的兼容模式,几个FP的先进的功能将无法使用(像函数重载),以便更好的和TP兼容。
3。嵌套的注释是允许的,不过在TP模式下不行

语法:
1。FAR 和NEAR是不起作用的。
2。取得一个函数或过程的地址赋给过程变量是允许的,你必须使用@操作符(在TP模式下不变),这个学过C的一般比较好理解,就是函数指针.
procedure p;
begin
end;
var
proc : procedure;
begin
proc:=@p;
end;
3.INLINE功能被编译器提供,但是被用来插入pascal代码,而不是二进制代码,INLINE应该和C是同一个用途.
4.The headers of forward declared functions/procedures always have to be completely rewritten in the definition, otherwise the compiler thinks that they are overloaded (not required if you use -So).
5.有更多的保留字.
6.一些DELPHI中扩展的功能部分的提供了.

语法:
1.Intel下最大的参数传递给子程序达64K,摩托罗拉版本32K.
2.记录总是以字节内对齐,使用”packed record”或者{PACKRECORDS 1}可以获得与TP兼容的类型,一个字节警告:只有你到非用不可的时候使用紧缩的,否则有可能在非INTEL的CPU下没有对齐的出问题,数据将被切断在所有的可能情况下.
type
r1=record
a : byte;
b : word;
end;
r2=packed record
a : byte;
b : word;
end;
begin
writeln(sizeof(r1)); { outputs 4 }
writeln(sizeof(r2)); { outputs 3 }
end.
3.警告:FP中许多当前设置为longint或32位的,在TP中常常是word或者byte的A current work around for this is declaring your sets as a byte/word and then use the bit manipulation unit available on the contributions page to manually include/exclude items. Of course, this is only necessary if you need TP compatible records, otherwise you can use the standard FPC sets
4.在FP中函数返回类型可以是复杂的类型.
5.在FP中函数可以作为一个变量使用,可以直接赋值. 上面说咯

7.exit可以带一个数作为函数值退出函数时:
function a : longint;
begin
a:=12;
if a>4 then
exit(a*67);
end;
8.Forward defined functions always have to be defined with the full header (not in TP mode):
procedure x(v : longint);forward;
procedure x; { this overloads the procedure x !!!!}
begin
{ … }
end;
{ write instead: }
procedure x(v : longint);
begin
{ … }
end;
9.BOOL数据都是短类型的(似乎和DELPHI不一样);

其他:
1.命令行参数不同.
2.不是所有的编译开关都支持.
3.单元并不是二进制兼容的,也就是说FP编译的和TP编译的单元不能彼此调用

发布者:巫山霏云

巫山霏云,87年生巨蟹,文科生,IT男,喜读书,不求甚解,

留下评论

您的电子邮箱地址不会被公开。

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据