git-svn-id: trunk@14229 -
@@ -1,6 +1,8 @@
{ %target=darwin }
{ %cpu=powerpc,powerpc64,i386,x86_64,arm }
+{ Written by Jonas Maebe in 2009, released into the public domain }
+
{$mode objfpc}
{$modeswitch objectivec1}
{$packenum 1}
@@ -2,6 +2,8 @@
{ %norun }
@@ -3,6 +3,8 @@
type
program project1;
{$mode objfpc}{$H+}
program protocoltest;
uses
{ %recompile }
{ %fail }
{ %opt=-vh -Seh }
{ %NEEDLIBRARY }
@@ -20,7 +22,7 @@ type
fa: byte;
fb: byte;
{ this field is declared as private in the real class,
- and the non-fragile ABI should be sure that this
+ and the non-fragile ABI should make sure that this
gives a linker error }
fc: byte;
function publicfun: byte; message 'publicfun';
@@ -1,5 +1,7 @@
unit uobjc24;
interface
unit uobjc26;
unit uobjc27a;
unit uobjc27b;
{ %cpu=powerpc,i386 }
unit uobjcl1;